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INTRODUCTION 


The Programmer's Guide to GEODYN contains the pro- 
gramming details associated with the GEODYN program. This 
is the second of four volumes which completely document the 
GEODYN System and is to be regarded as a programmer's supple- 
ment to Volume 1, the Systems Description. 

The GEODYN program is the heart of the GEODYN Orbit and 
Geodetic Parameter Estimation System, as it is responsible 
for estimating the orbit and geodetic parameters for the 
System . ‘ * 



SECTION 1.0 

INTRODUCTION TO THE GEODYN PROGRAM 


The major component of the GEODYN System is the program 
GEODYN. The GEODYN program estimates orbit and geodetic 
parameters for the System. It possesses the capability to 
estimate that set of orbital elements, station positions, 
measurement biases, and a set of force model parameters such 
that the orbital tracking data from multiple arcs of multiple 
satellites best fit the entire set of estimated parameters. 

GEODYN currently consists of 113 different program 
segments, including the main program, subroutines, functions, 
and block data routines. All are in G or H‘ level FORTRAN 
and are currently operational on GSFC’s IBM 360/95 and IBM 
360/91. 

Due to the large number of block data routines in 
GEODYN, each has been assigned a unique name. These are, 
of course, not FORTRAN names, but are rather a device to 
enable meaningful discussion. 
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SECTION 2.0 

GEODYN ENVIRONMENTAL REQUIREMENTS 



Normal operation of the GEODYN program requires a - large 
scale IBM 360 Computer with a minimum of 400K bytes of users 
accessable core, one 2314 direct access disk unit, two 9- track 
tape drives, one high speed card reader, and one high speed 
printer. For some applications, GEODYN can operate with only 
one 9 -track tape drive. 

The current GEODYN program is operational under ver- 
sion 19 of the IBM 360 Operating System on the GSFC IBM 360/95 
and version 20 on the GSFG IBM 360/91. 

. For compilation, GEODYN requires an IBM FORTRAN IV 
Level G compiler and an IBM FORTRAN IV Level H compiler, A 
non-GSFC user should ensure that sufficient space is allocated 
for the desired compiler at SYSGEN time to accomodate the 
required table space. More efficient operation of GEODYN may 
be obtained by use of a Level H compiler with level 2 optimiza 
tion for all subroutines which are not affected by compiler 
size restrictions. 


2 . 0-1 



. ' SECTION 3.0 

DIAGRAM OF OVERLAY STRUCTURE 


ROOT SEGMENT 


MAIN * 

♦ 

■ ALL OTHER SUBROUTINES AND 
COMMON BLOCKS NOT REFERENCED 
• ELSEWHERE IN THIS DIAGRAM 


1A 

* 

2AI 





f 

• 


ADFLUX 

NONAME 

DRAG1 

ORBIT! 

STAIF1 

ALIST 

BSCOMP 

DRGBLK 

PDEN 

SUMMRY 

FLUXM 

BSCMP1 

EPHEM 

PDEN2 

SURDEN 

FLUXS 

CBROWN 

ESTIM 

PREDCT 

SURDN1 

JANTHG 

CHARLY 

ESTIM1 

PREDC1 

TRUEP 

RFTMCD 

COMADJ 

F 

PROCES 

TRUEP1 


COMAD! 

FI 

PROCS! 

TRUPOL 


CORREL 

GNDTRK 

RESPAR 

TWOS T A 


COWELL 

GRHRAN 

RESPR1 

TWO ST! 


CSTAT 

GRHRA1 

RMS CMP 

U PD OWN 


CSTHET 

MOONGR 

SMSTAT 

VEVAL 


CUVECT 

OBSDOT 

SQUANT 

VEVAL! 


DATARD 

OBSDT1 

SOANT1 

VMAT 


DATRD1 

ORBIT 

STAINF 

XYZ 


DRAG 

• 


XYZOUT 


3A 


BIAS 

COEFL 

INOUPT 

NEWARC 

PDEN! 

POSVEL 

PRNTPR 

SIGBLK 

SRFBLK 



ARCPAR 

AREAS 

COMPAR 

DELTAZ 

INDENT 

STAINP 

STAPOS 


COEF 

COM 

CSLIM 

DENSTY 

EGRAV 

INTERP 

INTRP 

ORB! 

REFCOR 

REFION 

SUNGRV 

TIDAL 


UPDATE 



DATBSE 

DODDAT 

DODELM 

DODSRD 


PCERD 


SIMRD 



SATCLC 


1C 2C 

[iC 4C 5C 

r t 




SATCL2 

SATC21 

SATC22 


START 


COWCOF 


POLE 

REARG 


GEODYN AVGPOT 
TYPORB GEOIDH 



ERROR BMTWRT 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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SECTION 4.0 

DIAGRAMS OF SUBROUTINE STRUCTURE 


On' the following pages appear diagrams -depicting 
the subroutine call structure of the GEODYN program. These 
diagrams show all possible chains of subroutine calls. 

MAIN is the executive routine of the GEODYN program. 
For ease in explaining the subroutine structure MAIN has 
been broken down into three parts, MAIN 1, MAIN 2, and MAIN 3 

The logic of the diagrams flows down, right or left, 
but never up . Subroutines which have no extensions from 
the bottom are on the lowest level. Subroutines may appear 
at more than one place in the diagrams and, therefore, follow 
ing a branch backwards does not necessarily determine all 
subroutines which might call any. specific subroutine. 



/ 

V FLUXM 


v FLUXS j 
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MAIN 

NONAME 

ADDYMD 

ADFLUX 


ALIST 

ALPMRC 

AND2 

APPER 


SECTION 5*0 

SUMMARY OF SUBPROGRAMS 
USED BY GEODYN 

Reads and calls subroutines to read GEODYN input 
cards, determines array sizes for ^variable 
storage allocation and acts as a driver for all 
segments of GEODYN. 

Serves as a driver for orbit generator and data 
reduction operations and outputs residuals, 
ephemeris, and adjustments. 

Adds or subtracts an integral number of days 
from a date in the form YYMMDD giving a new 
date in the same one-word form. 

Reads flux cards from GEODYN input deck and 
adds solar and magnetic flux to stored tables. 
Writes on scratch file flux information for each 
arc and the Greenwich mean sidereal time on Jan. 
0,0 of the reference year. Counts the number of 
arcs in the run . 

Lists the GEODYN input card deck. 

Block data storage of alpha-numeric information 
used by GEODYN print formats. 

Two byte integer ’AND’ function. 

Computes apogee and perigee heights of a 
satellite. 
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ARCPAR 

m 

AREAS 

AVGPOT 

BIAS 

BMTWRT 

BSCOMP 

CBROWN 

■CHARLY 
CLEAR 
CLEAR 2 
COEF 
COEFL 

COM 

COMADJ 

COMPAR 


Loads individual arc parameters into variable 
storage arrays. 

* 

Computes the ellipsoidal surface area lying between 
two fixed latitudes and two fixed longitudes. 

Computes the average gravitational potential of 
the Earth using only even zonal harmonic 
coefficients . 

Extracts bias start and stop times from data and 
counts biases. 

Writes out the B-matrix. 

Computes electronic biases and corrects normal 
equations for extraction of the electronic biases. 

Passes variable storage arrays to the subroutines 
using them. 

Allocates core for variable storage arrays. 

Clears an array of four-byte integers. 

Clears an array of two-byte integers. 

Computes interpolation coefficients. 

Lists non-zero gravity model coefficients of 
the spherical harmonic expansion of the geo- 
potential used by GEODYN. 

Computes binomial coefficients. 

Prints adjustments to common parameters. 

Loads common parameters into variable storage 

arrays • reproducibility of the 

ORIGINAL PAGE IS POOR ‘ 
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CONSTS 


CORREL 

COWCOF 

COWELL 

DATARD 

DATBSE 

DATES 

DAYEAR 

DELTA Z 
DENSTY 

* DIPF 


Block data storage of input/output file numbers, 
integrator stepsize information, conversion con- 
stants, and Earth parameters', 

, Computes and prints correlation coefficients from 
above diagonal of normal matrix stored in vector form 

Assigns integrator coefficient valdes (orders 5-15) . 

Integrates satellite equations of motion and force 
model partial derivatives to desired time. 

Stores, updates and retrieves individual arc 
parameter information. 

Retrieves observation data from DODS Data Base. 

Converts days elapsed from Jan. 0.0 of the arc 
reference year applying the transf ormat ion from 
the A.l time system to the UTC time system., 
into a three word date of the form YYMMDD , HHMM, 

SEC. 

Converts a date from the year and number of 
days from Jan. 0.0 of that year to integral 
days and fraction of a day in integral seconds. 
Outputs the date in the form YYMMDD*. 

Computes the z-coordinate of a point of given 
latitude on the ellipsoid. 

Computes atmospheric density based on the 
Jacchia -Nicole t model (height and temperature 
dependent) . 

Calculates the difference between any two time 
points in the 20th century. Input date is 
two words in the form YYMMDD and HHMMSS ; output 
date is integral days and seconds of a day. 
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DINRAD 


DNVERT 


DODELM 


DODSRD 


DPFCT 


DRAG 


EGRAV 


ELEM 


EPHEM 


Converts angles expressed in arc measurements 
or time measurements to radians. 

Double-precision matrix inversion using 
Gaus 5- Jordan method of condensation with partial 
(column) pivoting. No restrictions on dimen- 
sion of matrix. 6 

Retrieves satellite orbital, starting elements 
from DODS Data Base. 

Reads observation data tapes in DODS format and 
and partially preprocesses the observations. 

Computes arctangents, denormalization factor 
for geopotential coefficients, Julian dates, 
and dot products. Computes Earth- fixed x and 
y from inertial x and y, and inertial x ■ and y 
from Earth-fixed x and y. 

Computes accleration in rectangular coordinates 
of a satellite due to aerodynamic drag forces. 

Calculates acceleration in rectangular coordi- 
nates on a satellite due to geopotential forces 
(spherical harmonic terms to maximum degree and 
order 30) . 

Converts inertial position arid velocity vector 
to osculating orbital elements. 

Reads and interpolates lunar, solar, and plane- 
tary ephemerides and the nutation in right 
ascension. 
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EQN 


EQUATR 


ERROR 


ESTIM 


F 


FLUXM 


FLUXS 


FMODEL 

GEODYN 


6E0IDH 


GEOSRD 


Computes nul :ion in longitude, obliquity, and 
right ascension, and the true obliquity of date. 
► 

Rotates a vector from the mean or true equator 
and equinox of one epoch to the mean or true 
equator and equinox of another epoch. 

Prints specific error messages when the run is 
abnormally terminated. 

Estimates correction vector to state vector 
using the method of Bayesian leas t- squares . 

Evaluates the .satellite acceleration vector 
and force model derivatives. 

Blockdata storage of magnetic flux data 
through January 1972. 

Blockdata storage of solar flux data through 
February, 1972. 

Blockdata storage of the coefficients of the 
spherical harmonic expansion of the geopotential 

Blockdata storage of date and source tape 
number of this version of GEODYN. 

Positions surface density locations on geoid 
surface and computes matrix of constraint for 
density adjustment. 

Reads observation data in CEOS format and 
partially preprocesses the observations. 
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GR1IRAN 


INDENT 

INOUPT 

INTRP 

JANTHG 

\ ^ 

MULMAT 
NEWARC 
NUMB R 2 

NUMBR4 


Computes the right ascension of Greenwich and 
the satellite vectors used in computing measure 
ment partials. 

Computes Cartesian coordinates and areas of . 
surface density blocks. 

Reads GEODYN input cards. Outputs run and arc 
descriptions. Calls subroutines to read data 
tapes. 

Interpolation routine. 

Selects the Greenwich mean sidereal time on 
Jan. 0.0 of the reference year for each arc 
and selects flux data for each arc from block- 
data storage. Computes average solar flux 
values for each arc. 

Multiplies three 3x3 matrices. 

Initializes switches and constants for each arc 

Searches the entries of an array of 2-byte 
integers and compares them with an input number 
or bit configuration. The index number or 
location of the entry matched is returned. If 
no match is found, zero is returned. 

Searches the entries of an array of ; 4-byte 
integers and compares them with an input 
number or bit configuration. The index number 
or location of the entry matched is returned. 

If no match is found, zero is returned. 
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NUMLOC 


NUTATE 
DBS DOT 


ORBIT 

ORB1 

OUTRAD ' 

PCERD 

PDEN 

PDEN1 


Searches the entries of an array and compares 
them with an input number or bit configuration. 
Index numbers or locations of the entries which 
match and the number of such matching entries 
are returned. 

Generates nutation angles to transform a vector 
from true equator and equinox to mean equator 
and equinox. 

Calculates time derivatives of requested 
observation types., (Observation types avail- 
able: 1 - right ascension, and declination;- 

2 - range; 3 and 4 - range rate; 5 - l and m 
direction cosines; 6 - X and Y angles; 7 - 
azimuth and elevation) . 


Returns satellite state (position and velocity) 
and force model partials at the called time. 

Generates a satellite ephemeris tape in 0RB1 
tape format. 

Converts radians to degrees, minutes and seconds 
or to hours, minutes and seconds. 

Reads PCE format data. 

Prints adjusted surface densities. 

Prints input surface densities. 
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PLHOUT 


POLE 

POSVEL 

PRECES 

PREDCT 

PROCES 

PRNTP'R 

RANDOM 

REARG 

REFCOR 


Converts tracking station location and 
variance - covariance matrix in geocentric 
rectangular coordinates to geodetic latitude, 
longitude and height. Computes partial deri- 
vatives of the geodetic coordinates with respect 
to the geocentric coordinates. 

Selects from a table, for a 
the coordinates of the true 

Converts osculating orbital elements to inertial 
position and velocity vectors. 

Generates the ^matrix for precession from mean 
equator and equinox of one epoch to mean equator 
and equinox of another epoch. 

Computes measurements, residuals and measure- 
ment partials. 

Completes the preprocessing of observation 
measurements. 

Prints the requested observation preprocessing. - 

Unblocks and reads observations from a random 
access file. Blocks and writes observations 
on a random access file. 

Rearranges the back value arrays when the integra 
tion step is changed in variable step mode. 

Precesses and nutates a vector between the true 
equator and the equinox of a reference time to 
the true equator and equinox of date. 


given input date, 
pole . 
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REF I ON 
RESPAR 
RFTMCD 

RMSCMP 

ROTMAT 

SATCLC 

SATCL2 

SATC21 

SATC22 

SIMRD 

SMSTAT 


Dummy ionospheric refraction subroutine. 


Calculates the partials of geopotential resonance 
coefficients requesting adjustment. 

Checks an 80-c.haracter alphanumeric string to 
determine if the first 6 characters are numerals 
and the remaining 74 characters are blank. 

Computes RMS , random normal deviate, and mean ■ 
from summed information. 

Generates a rotation matrix from an angle 
and axis of rotation. 

Applies satellite clock corrections to GEOS 1 
optical data. 

Appl ies satellite clock corrections to GEOS 2 
optical data. 

Part 2 of satellite clock corrections for 
GEOS 2 (SATCL2) . 

Part 3 of satellite clock corrections for 
GEOS 2 (SATCL2) . 

Reads simulated data tapes. 

Sums statistics. 
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SQUANT 


STAINF 

STAINP 

STAPOS 

START 

STORE 

SUMMRY 

SUNGRV 


Converts station positions to geocentric rectangular 
coordinates on the first call. On subsequent calls, 
converts station positions to latitude, longitude 
' and height. Computes partials of the rectangular 
coordinates with respect to latitude, longitude 
and height. e 

Computes statistical information at the end of 
•each inner iteration for each arc and at the end 
of -each outer iteration for all arcs. Corrects 
statistical information for electronic bias 
compensation. • 

Reads input station positions. Determines whether 
position was input in rectangular. of spherical coordi 
nates, converting to spherical whenever necessary and 
stores those station positions to be used in arc. 

Blockdata storage of station positions. 

Starts the integration process using interpolator 
formulas and iterating until desired accuracy is 
obtained . 

Stores common and arc information on disk. 

Prints arc statistical summary. 

Computes the acceleration in rectangular coordi- 
nates on a body in orbit about a central body 
due to the gravitational attraction of a 
disturbing body. (Includes the moon, sun, Venus, 
Mars, Jupiter and Saturn.) 
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SURDEN 


SYMINV 

TDIF 

TIDAL 

TRUEP 

TWOSTA 

TYPORB 

UPDATE 

UPDOWN 

VCONV 

VEVAL 


Computes the gradient of the potential due to sur- 
face densities, and the partials of the gradients 
with respect to the surface densities for those 
, densities to be adjusted. 

Symmetric matrix inversion. • 

Computes time differences between systems A.l, 

•UTC , UT1 and UT2 . 

Computes acceleration due to solid Earth tidal 
bulges caused by lunar and.-solar gravitational 
effects on the' Earth. 

Rotates tracking station coordinates to account 
for polar wandering. 

Computes measurements and partials for VLBI and 
• ■ -ave'r age • rang e r ate "d a t a . 

Prints arc summary page. 

Updates arc adjusted parameters to compensate for 
adjustments to common parameters. 

Computes uplink and downlink transit time for 
average range rate data or the two downlink 
transit times fo^ VLBI data. 

Converts variance - covariance from one system to 
another. 

Computes the variational partials of force model 
parameters . 

Computes for a given date the number of days from 

Jan 0.0 of the reference year for the arc. 

5.0-11. 


YMDAY 



SECTION 6.0 

SUBROUTINE CROSS REFERENCE CHART 


A cross reference chart of the subroutines used by 
the GEODYN program is given on the following two pages. 
The calling routines are listed down the side of the page 
and the called routines are across the top. 
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*Thc starred routines have more than one entry point 


0 , 0-3 
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SECTION. 7.0 

COMMON BLOCK CROSS REFERENCE CHART 


On the following page is a cross-reference chart 
showing the common blocks used in the GEODYN program and 
which routines use them. The subroutines are listed down 
the side of the page and the common block's are across 
the top. 
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SECTION 8.0 
PROGRAM DESCRIPTIONS 


The functions of GEODYN and all of its subroutines 
are described within this section. 

The listings of the GEODYN program and ? each of its sub 
routines have been thoroughly described with internal comment 
cards. All COMMON storage variables used by e.ach subprogram 
are described in Section 9.0. 


Flowcharts 

This document uses the flowcharting systems developed 
for the NONAME documentation. This -system utilizes only six 
basic flowcharting symbols. The symbols and their uses aie 

as follows: 



c) 



a)Entry to sub- 
routine with- 
out multiple 
entry points. 


TT itY of 

origin^ 


b)Entry to sub- 
routine with 
multiple entry 
points. 


2 ) 



c) Return . 

Description of 
operation being 
performed 


\ 
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Subroutine or 
function call 
where : 

NAME - Subroutine 
called 

PURPOSE - Des- 
cription of the 
purpose for the 
call . 





REPRODUCIBILITY of the 
ORIGINAL PAGE IS POOR 


Decision 


a) Statement 
number . 

b) Transfer to 
statement number. 



Off page connector. 


In this new flowcharting system logic lines flow 
down, right, or left but never up. The only way for logic 
to travel opposite to the flow F is to transfer to a state- 
ment number which appears earlier in the flow of logic. 
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At times, statement numbers are not available for 
back transfer. In these cased, an alphabetic name or 
character may be inserted in the line of logic at the 
point to which return of logic flow is desired. The 
name or character inserted must appear within symbol 5. 

... This flowcharting system has been' designed to 
correlate as highly as possible with the program listings. 
The statement numbers used are the same as those used by 
the FORTRAN program and the description boxes contain the 
same information as the comment cards appearing in the 
program. 


Programming Technique 

This section is included as a further aid to 
.programmers working with the GEODYN program and des.cr.i.bes 
in general terms some of the techniques used in the 
programming of GEODYN. 

Array and scalar names in GEODYN have been chosen 
in such a manner as to be meaningful. The following are 
some- examples of naming in GEODYN. 


NAME 

SUBROUTINE 

MEANING 

P RDM IN 

NONAME 

Satellite period in minutes 

NARCS 

NONAME 

Number of arcs in run. 

LOUTER 

NONAME 

Last outer iteration switch 

RATIOl 

’ NONAME 

Ratio to sigma for first 


\ 

measurement . 
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NAME 

SUBROUTINE 

MEANING 

ORBELP 

NONAME 

Keplcrian orbital parameters 



from previous iteration. 

THETG 

PROCES 

P 

Greenwich Hour Angle in radians. 

CLATG 

SQUANT 

Cosine of station geodetic 
latitude . 

NODEGF 

STAINF 

Number of degrees of freedom. 

TWOPI 

TDIF 

Two times tt. 

MJSTOP 

DATBSE 

Modified Julian date of stop 
time for data selection. 

VAR \ 

' "COWELL 

Sw T itch for variable step integration 


The GEODYN program has been broken into many 
■subroutines in order to optimize its use of core storage 
and also its efficiency. Many of the smaller subroutines 
are' conversion routines which arc called by many different 
segments of the program. Large portions of the GEODYM 
program are input/output subroutines which have been 
designed to give the user maximum ease in setting up the 
program. 


GEODYN also uses a very large amount of COMMON 
storage. COMMON is used for five primary reasons by 
GEODYN. 

P FPftODU C1BIL1TY OF THE 
ESal PAGE is POOR 
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1) T° P ass information between subroutines. 

2) To store program constants. 

3) . To set switches for subprogram reinitialization. 

4) To overlay storage requirements. 

5) To .load .block data. 

GEODYN uses two additional core saving techniques; 

o Linkage Overlay 
o Variable Core Allocation 


Linkage Overlay 

GEODYN uses a complex overlay structure to reduce the 
‘effective program size by nearly 300K bytes. -A diagram of the 
GEODYN overlay structure is provided in Section 3.0. 

In reference to the Diagram of the Overlay Structure, 
the overlay segments are utilized as follows: 

FREQUENCY OF USE 

Always in core. 

Once per job. 

Once per job. 

Maximum of one of these per arc. 

Maximum of one of these per arc. 

Once per job. 

Once per job. 

Once per outer iteration. 

Once per outer iteration. 


SEGMENT 


ROOT 

1A 

3A 

ID, 2D, 3D, 4D 

IE, 2E 
2A 

IB 

2B 

3B 
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SEGMENT 


FREQUENCY OF USE 


1C 


i- Once 

per inner iteration. 

2C 


Once 

per inner iteration. 

3C 

/ 

Once 

per inner iteration. 

4C 


Once 

per outer iteration per arc 

5C 

IF 


\ r Once 

Once 

per outer iteration. * 

or twice per arc. 

2F 

. 

Once 

per arc maximum. 


Variable Core Allocation 


GEODYN counts the input parameters and allocates the. 
minimum array sizes required to process each job* 

As a result of this : 

o Orbit generator arcs may require as little 
as 330K, and 

e Data reduction arcs as little as 350K or 
as much as the entire capabilities of the 
. GSFC IBM 360/95, depending on the user 
input requests . 

On the following pages of this section appear the 
descriptions, program listings and flow charts for the GEODYN 
program. 

The programmer should note that many of the GEODYN 
subroutines have more than one entry point. In general the 
purpose of these multiple entry points is to pass to these 
subroutines the starting locations of those arrays which are 
variable storage and to also set the dimension of these arrays 
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I'li V J. 1 1 

Page 1 of 8 
October 1972 

MAIN 


DESCRIPTION 

o Calls program initialization subroutines. 

$ 

© Calls FLUXM to list input cards, read flux cards 

and set up flux arrays. 

© Reads run title, reference time, epoch and element 

cards . 

© Calls INOUPT to read and print a description of the 

common and arc parameters. 

9 Calls STORE to store common and arc parameter 

information. 

© Calls DODELM to obtain elements from DODS data 

base when necessary. 

© Calls epoch element conversion routines when 

necessary. 

© Calls APPER to calculate apogee and perigee heights. 

o Calls CHARLY to allocate core and begin processing. 

o Calls ERROR to print error messages when necessary. 
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REPRODUCIBILITY of the 
GINAL PAGE IS POOR 


Page 2 of 8 
October 1972 


MAIN 

1) TO READ AND TC CALI. SOO^O'JT I NE S TO ^EAO 

GEDD YN INPUT CARCS ^ vnc . r 

2 ) TO D£ TERM INC APR AY S I 2 C S FOR? VARIABLE S'lORAo 

ALLOC AT I CN 

3). DRIVER FOR ALL SEGMENTS Or GEUDYN 


SLfERCUTINES LSEC 

TDIF 

error! 

CHARLY 

NEWARC 
DCOF.LM . 
STORE 

POSVEL 
A PPr.ri 
ELCM 

FLUXM 

inoupt 

YMD AY 
DOT PRO 

CCFtfCN .BLOCKS 

I N I T 0 K 
ALPMPC 
PRIOR 1 

IKTBLK 
/. PA PAM 
C ONOUT 

TPEBLK 
C P A R AM 

c r i me 

CSTINF 

PPE3LU 
CEL EM 

I NP.UT FILES 

FLTP - 
I N TP “ 

FLUX DATA FIL 
GEODYN INPUT 

CARDS 


' • 

OUTPUT FILES 

PRINT ER 






SAME 

PUFPCSr. 


IMPLICIT Sc AL * 6 ( A-HiO-Z) 

CIMEnSICN ICCPHTO) 

..r.ATA -N.C JKE/2 1 / 

REAL A.PLM .CCNVRC. . OUT CON, R MS ALL * A l TI i ET I T N « OF I NDX » S I ^C*-*G» 

« VARC0V.RMS7OT.T0IF 

i CKj I CAL* 1 VHFCHN.FREPPC „ 

’ LOGICAL thPGPF.D-LEM.LlTPSS. | N I TAL • TOHEF T , 07UJT Stf , MI SLOG.VAHSTP. 

• INrcOLp S /COR . £PAO,ARCNO.F.STSTA ■ OU TP » D A T P . XYZTP , RVTP « PLQTP* SC P A i 

SCRC i FLTP. GROTP , EST STA .F.ECnC , AT 0 t .ORDER 
INTEGER *2 irsEPS, HOPMt, IMTYPr * I S TnO , CULL . M T YPE , N MS AS • PReT TP , 

• C HAKE L # JP A SF 
tOUULt PSfcClS ITS LOVE 
C IM'No J CN 1 HYPER i ? ) 

COMMON/ IMT^/IEPY’-lD, I rpHM ( £?3FC, I YR EF , I N N M A X. » I NN M * N , C 0 N V .< G » 

, OftoEL (r-. 2 I ♦EDITN, IN*5LP«. IDSAT( 2) , OPBT 5-J . I XY Z S U ) . M l SL D o ( 9 ) 
COMMON/ I NTL3LN/H-OOT < SC > . O f DO R (.2 . 2 > . A S A T ( 4 > . VAR ST P ( 2 > . HL VDSW I 2 I . 

. NiUK(i).AnCPCN3».LCvr:(A| 

COMMON /TFcOLK./ I NT» . CUT Pi D ATP. XTITPtCPT AP , R VT P * PLOT P . JOBS , S^«A* 

• SCRC » FLTP, CP DTP 

CJMMUIs/C I I V^: /H A T Af.P , t A Tfi c F , 0 ST / »T . O A Y STP , OA Y I NT , 0 I T . C AYENC * 

• DA ATE » CO^o 1 » Ou« ‘. 4 1 F * DM? RT » 1 Y t Lo 

COMMON/P SLBLF /LA VST A ,00 SO \ .DOS CP .Si 1 » 3 I G2 . SWFKDX » I ST A , MT Y P_ • 

. NMC AS ,fC r .T ^p ( 2 ) . CHAN PL , VHF CRN f PRC PRO 4 RFC NO 
CO'tMLN/ALrMSC/AL^HA { 54 ) .HMPCR 

CUMMuN/AF/-Pftfr/IN° A * . I SOAR AS. EST >T A » N SAT . No P ARC * NO TeC 1 « 

, NPARAN ,N:<! AS“ .MPAR 

COMMON /C P t P 4 M /NST A • NM A ST , NS T 5 S T * '* A XP AP , **0 I ' ♦ Ni, PC 1 * NGPC 0 . 

, NOP CL V «NC. SCST , C*’Pf,PP ,L i« l . L l M2 , N JEN , ND.iNST , N T I D OT , NT I CEN « 

# lNt,«.sfc»NCL^'‘ST«N r )\_ONS 

CJMMCN/CSI INF / J A S 5 i 5 56 ) . L 2 A S 5 
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CJMMUN/CtlEV/ELEMST <6, 2 > , OR REL A ( 6 « 2 J . XNU, EC , RMSTOT 
COMMGN/PR l OR I /f L EM I N ( 6 • 2 ) • VASC C V { 6 . 6 ► 2 > ♦ T l TLct 30 } * 3 R AG ( J O ) 
CUMMON/C C NOUT /R *•' SAT L , GLTC CN « Ml N CUT « MAX OUT ,L I TRES » MA XSAT « MAX 2 I N. 
# n 3 T AW 1 iNiiGN^X * I V AR « I CR D£ fi i N A RCS < NS T ARO #L STAR T { 6 ) 

LATA 1 NTCCR/0/.NEU1 AS/O/ 1 

A1 T I ME < C>M«F. F ) = TD 1 F { 4 . 3. DAYREF )/P *64E 4 
C READ INPUT CAOS, READ FLUX CAROS C SET UP FLUX ARRAYS 
CALL FLUX t* ( N A PCS I 
C R r ; AJ RUv TITLE 

READ { I NTR , 1 0 0 00 ) TITLE 

NSAT-2 

LcI A S E- 0 

c READ COMMON SET CARDS 

v CALL I NOLFT (NARCS, 0 ) 

C STCRc COMMON PARAMETER INFORMATION 
CALL STORn{ *FALSE* » • TRUE* ) 

• NGPC CM = NC SE ST 

KT1DiN=Nl 10 ST ♦NDcNST-RCCNST 
OUSUPR - I N ELPR 

RMSAl.c = ETOT ' ; 

NGPC 2= 0 
MAXS AT = 1 
MAXPAR =0 

C LOCP THROUGH 1000 READS C STORES ARC PARAMETER INFORMATION 
OD 1000 ft RCNO =1 , NAKCS 
C INITIALIZE FCR arc 
: X all NEW A PC 
c f a ,n ( l N T P i ! 0 0 CO » T T Tl F 
READ l 1 NT f i 1 00C1 ) IYREF 

• IY^tG= J Y R cF/ 1 COO 0 

CAY R EF = Y Ml AY ( I Y R EF , 0 , 0 • C 0 ) 

CAYW<_F = L A YREF+Al TIME (DAYREF ) 

C HE/O EPOCH C * RD 

RcAOtlNTF ,10001 ) IEPYMDtl EPHM , EPSEC* INN MAX, I NN M I N , C 0 N V RG , I G EOS , 

• IYMD,IFM,StC« IYM0D, 1HMD,SECC,NSAT,IELM,J,ISATID 
iOELc M= J * G 1 • 0 
IF(DtLEM) N S A T = 1 
NS AT = M AX C ( 1 , M 1N0 (NS AT , 2 ) > 

MAXSAT = MA >0 ( MAX S«T , NSAT) 

V,T YPt- 1 EL* 

IF( I Yt-tOD, CT *0 ) GO TO ICC 
I YMDD= I c R V.'D 
I HMD = 1 SF RN 
SEC 0 =L P 5 c C 

J00 CATAdP — YVCAY ( IYMDD. IHMC.SFCC) 

CAT ALP = C fi T A E P + A 1 T I v E ( C A T A LP ) 

1NNM IN = .MA>0 (1,1 NNMI N ) 

INNMAX = MA >0 ( l N N MAX, 1) 

IF(CUNVRC ,LE *0,0) C CNV RG = 0 • 02 
CAYSTP= v /i^?»CCO 
IF< I YMO* fcC.O) C.n TO 12C 
CAYST^= YMC A Y ( I YM 0 . I M M , S EC 1 
CAY SIP =U A YSTP + A1TIVC(DAYSTP> 

12 0 C ST A k T = Y M C A Y ( I i: p Y«C . 1 F PH*.' , f P SE C ) 

•DST AR T - J E 1 AP 7 ^ A 1 T 1 “R { 0 F T A R T J 

c on tain llam-nis from do os cata if quested 


reproducibility op thp 
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ONOS 

56 

ONOS 

57 

ONOS 

5 f 

ONOS 

59 

ONOS 

f, A 

ONOS 

6 2 

ONOS 

62 

ONOS 

63 

ONOS 

6A 

ONOS 

£ c 

ONOS 

6C 

ONOS 

67 

ONOS 

6 5 

ONOS 

69 

ONOS 

7C 

ONOS 

7 

ONOS 

72 

ONOS 

7: 

ONOS 

7 A 

ONOS 

75 

ONCS 

7 £ 

ONOS 

7 

ONOS 

7t 

ONOS 

7 R 

ONOS 

<■; 

ONUS 

0 

ONOS 

c: 

ONOS 

s: 

ONOS 

O*-' 

ONOS 

o r 

ONOS 

6: 

ONOS 

b~ 

ONOS 

•5 : 

ONOS 

A- 

ONOS 

C v 

ONOS 

c 

ONOS 

9. 

ONOS 

c 

ONOS 

7 

ONOS 

9 : 

ONOS 

9- 

ONOS 

9 

ONOS 

Q . 

ONOS 

9 

ONOS 

1 0 

ONUS 

1 0 

ONOS 

1 c 

ON 05 

1 0 

ONOS 

1 0 

ONOS 

10 

ONOS 

1 c- 

On os 

10 

ONOS 

to 

ONCS 

1 0 

ONOS 

1 1 

ONUS 

1 1 
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DODE LM ( l EL K « I S A 1 1 0 . T> 5T AR "l ) 


READ UN TP. 1C 002 » <<uLe-MST( Jtl ).J= ! t i*3)«-I HYPER{!,t 


2 CO 


. IF ( DEL EM ) CALL 
HYPc‘R=4)F £LS£* 

IHYPbrt ( I ) = 0 
; READ elements 

1 F t .NOT. C cL EM ) 

4 .( Etc MS T ( J ♦ 1) » J- A . £ ) . I = 1 1 NSA 1 ) 

CO 200 1SAT=1*nSAT 

HYPE R-HYFeR* CR. i HYP EW ( ISA T > • GT *0 
1 F(J HYPER (ISAT ) - 1 ) 1 3 0 . J A 0 . 1£5 

130 1F( DOTP^D IELE^ST( A, [SAT) «ELEMST( A 

i OAoSt cLEMSTl 2. ISAT) > • L T • I .0C0) 
c C ACCURATE 'KEPLER ELEMENTS IE INPUT .IS 
l AC CAi_L Lc M IELE MS T ( 1 » I SA T ) * Ct? C - L A ( J • 

GO TO IvO 
l £S oo 175 I=l*£ 

l 75 G.RBELA II , 1 SAT )=ELE MST ( I , I SAT ) 
c CALCULATE CARIES IAN ELEMENTS IF INPUT 

CALL PCjVcLI P.LEMSI ( 1* ISAT )»GR3FLA\ 

190 CO 200 1=10 

i£L£M I N ( I . 13 AT ) =EL5M ST ( I . 1 SAT ) 

ORUuLl I . I 3 AT> -UP3FLA( I .ISAT > 

IF ( • NOT • F ) GO TO 220 
PkI.NT i JCC3.ARCNJ 
CAlL lRRCRI 10 .LOVE) 

CAllULATc APCCFE l PERIGEE HEIGHTS 
22 C CAlL APPLF 

INSUPK=CL £UPR 

OSA 3 OPTION r/pns I AND DATA TAPF r T p o-c. RUNS) 
CALL I NOLPT( ICEOS, APCNC ) 

* Nc B I A S - A P > 0 { N E B I A S i N D I A £ E ) 

NOr»C 1-500-NGFAPC 
NG l> C 2= M'O C ( NG PC 2 * NGPC 1 ) 

STLRE inf jam ATI CN FOI APC PARAMETERS 
call stofe( ;f ALSc. * .false • ) 

RBI A3=M«X C ( VOIAS.NB I AS > 

NcUNMA=M A >0 ( NELNMX . INPAR I 4NGPC 1 ) 

KOHE =0 

'CO A 00 I “ I .NS AT 
K = 0 

Jr(«NJT*CFOTS») K =6 + NECN{ I ) +NGFC1 * 
l VAR- 1 

IF l V AR STP ( I » ) I V AR - 2 
AOO KUrL SNJKL <5*1 V AR * < I CROE R ( I « 1 )~ 1 )+ K 
INTCl)<='MAX3( 1 NTCUR’ » KSRE 1 
10 00 f..AAPAK = MA>C(MAXPAF .NO I AS* tNPAR 

MAXP Ak = M m > P A R +N C 3E 5 T ♦ N N" A S T * 3 « N "M 0 A 

NcGMMX=NcCNMX*NT I0EN*NCSEST4 1 

Mo I AS= F B W 3 + M CP ( MB I A s . 2 ) 

NGPC2" NGPC2 4*4 CO i NG°C2 . 2) 

NCSrST=NCSLST 4NGPC2 
NGPC 1=NPFC? ♦ I *V 3 I AS*3*VAXSAT 
NoPC £.= nCSc ST 4 1 A S 4 3 * M £ x S A T 

: CALCULATE Slh i! f VARIABLE STCRAGr AAR 

r* 

c USTRT.bG-NG.L 1 A 3 O I ASSGi '* eta no « m V>F . 

I (_ J A E ( l » - F M t A s» 1 * f ;c Sc S T * A + 1 : * M AX 


15 AT) >»LT « DFLOATt 3*350**2 > • Af«C * 

GO TO 165 
C AR TES I AU 

ISAT) . 1»* TRUE* .TITLE) 


IS KEPLER 

1 . 1 SAT ) , 1 ) 
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•JGPCCM+NT IDEM 


ONDS 

ONCS 

ONO 3 

ON OS 

0NO5 

ONCS 

ONOS 

ONOS 

0N05 

ONES 

ONES 

ONCS 

CNOS 

ONOS 

ONOS 

ONOS 

ONCS 

ON JS 

ONOS 

ON OS 

ONOS 

ONCS 

C N 35 

ONCS 

ONPS 

ONCS 

CNOS 

ONOS 

ON 05 

ONCS 

ON JS 

ON IS 

ONCS 

on 05 


) 1 2 
113 
1 1 A 
I 1 5 
l 1 6 

I 17 

I I e 

1 1 9 
I 2 C 

12 1 
1 22 
123 
12A 
125 
1 26 
127 
1 2E 
12? 

1 30 
1 3 l 
I 3 2 
133 
1 3A 
135 
1 2t 
137 

J T? 

1 3? 
1 AC 
1 A 1 
1 A 2 
1 1 3 

1 At 

U 5 


< ORDER (I *2)^11 l-( l VAR- l )*(!♦* 
'Cl 1 


aYS 

MI A 5N J 

T » ( V. j I A 3<- 2 * 't A X 3 A T *f«\_S-:ST* 1 )/ 2 


ONOS 

t Af 

CNCS 

1 ft- 7 

ONUS 

I A ? 

ONOS 

1 a <T 

ONUS 

153 

CNOS 

151 

ONCS 

152 

CN05 

1 *>2 

ONCS 

1 5 ^ 

ONOS 

1 55 

ONCS 

1 5' 

ONCS 

16 ? 

ONCS 

15 3 

ONCS 

1 55 

ONCS 

1 6 3 

ONCS 

161 

0*‘05 

IE 2 

ONCS 

« A 1 

ONES 

1 6^ 

ONCS 

153 

ONCS 

lor 

:n js 

t o~ 
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c ns i as 

ICOFfcC 2\ = 2* (MCI AS*3*MA XSA T + NC 3 5 ST + NJEN * NT I D 5 T ) 
C ASurt . 

ICUNt( 2) =fc*A*(NSTA*KAXSAT)*MAXSAT 

C NSLM 

MCJAcC 4)-j*3*(riSTA4 MAX SAT J+MAXSAT 
C RL AT .RlON ♦ H . N A.vf.t SL ATO » RLONO , 10 f THP« 1 w 

ICO^L ( £ » = 2»(A*SiSTA + 4+3*NS1EST) »2MN3TA+1>«2 

c istano.lst anc . tee 

lCPRt < L ) = NSTc ST * (NSTAt 2 } / 2 

C ENV 

ltUKt ( 7 ) = £*?"* ( N S T A ♦ 1) *2 
C 3U^1 . 

M.PAR2=/4AXF AK* (MAXPAR+ 1 J 
1 CUkE ( 6 ) = N A X 0 ( v P AR 2 .72 ) 


c CKAAA 

■ ICUPE { 9 ) = 2 * (NCSFST + 3YMAXSAT+NT IDEM) *2 
C IKG.XCS, ST ANUS 

JCUkT < 10 > = (3* (NCSEST«N£TEST > + 1 )/2 
C SUM2 (ODLlTa ) . ITLi CtTLTA 

ICOtxt ( 1 1 ) = 2*^ AXPAP* 3 
C XY2S1G, PLUS I 0 .STASI G , PL FNO v , X YZNCM 

C SLM^.FCT 

IC'JKe < lJ)=INTCr!P + l 2*NEONMX*MAXEAT 


C 3TAXY2.STA XWC 

1CURE( IA )=2*(NSTA+1 < N 5 TE S T ) * 3 
C P.VPXO 

ICCRE( 1 S ) =2* { NECNVX*S) *2 

C Xl 

iCOrlci lu}s2^NECMVX*6*MAXSAT 
C p A h N L S 

l CURE ( 1 Y )=(NECN*X+9 )/2 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


C A r l£AiCc:MTSB,c C£NTft, C7N 5 0 « V S IG 

icjah it )£a*a»no:n* 2 + ?. *ndenst* 1 + 2 * ( nt iden^mccnst >*2 

C CO=rFIClc.NTi C~ COJST c AIM TONS FOR DENSITIES 
ICUACt 17 ) =2=* KEEN *NCCNST 


C CSuV ♦ MiUM, L SG.V 


Kt3AS £= C 

I F { l_ iiA Sc » cO« 0 ) GO TO A 4 A 
00 333 I=1«NSTA 


J=0 

00 222 L- 1 .LEASE 

1 F( J tiAS £ ( L ) • £ C • I ) J = J+1 
272 CONTINUE 

323 HUASE-.'1A> C( Nt AST , J » 

AA4 L BA 3 c = KJ t* £ E 

ICG Re ( 2 0 ) = < NSTA SAT ) * M A X S A T « L 0 ASE> ( 1 t * £>♦ 1 ) 

C BTAA.uTrfO.dTwt.i5T r-'= , EE ST N 0 . J £ T YP£ ,NUM)Sf! 


Nttjl kS = nl i- ! AStVQj{ NE^I AS, 2 ) 

No I A 3 1 “ U c cl AS 

ICukE < | = 2 • < A * N AXPAP ♦ 12) *N~:3 I AS 


CO SO 0 1 = 1. NCC RE 

30 0 IUm: < I ) - ICOA-: { I ) * A 


Fc . a ' 1 .NJ INTI ’ 

c allcggi: wc-<t ;; ccgin process ing 


ONOS 

1 63 

ONUS 

160 

ONOS 

1 ^0 

ONOS 

171 

ONOS 

1 7 r 

ONOS 

1 3 

ONOS 

1 ?A 

ONOS 

175 

ONOS 

1 7 E 

ONOS 

1 ** 7 

ONOS 

1 72 

ON'0 5 

1 79 

ONOS 

1-3 0 

ONOS 

IAI 

ONUS 

1 ?2 

ONOS 

ie.3 

ONOS 

1 O.A. 

ONOS 

155 

ONOS 

l 5 9 

ONOS 

1 U? 

ONUS 

1 re 

ONOS 

1 c 5 

ONOS 

1 PC 

ONOS 

1 ■= l 

ONOS 

1 9 :» 

ONOS 

192 

ONOS 

1 

ONUS 

1 9 E 

ONOS 

196 

ONUS 

197 

ONOS 

1 / a 

ONOS 

1-9 

ONOS 

20 C 

ONOS 

2 0 3 

ONOS 

202 

ONUS 

2 0 : 

ONOS 

20 a. 

ONOS 

2 0 E 

ONOS 

20 t 

ONOS 

207 

ONUS 

2C£ 

ON 05 

2 00 

ONOS 

21 C 

ONOS 

2 1 ■ 

ONUS 

21 : 

ONOS 

2i ; 

ONOS 

2\t 

CMOS 

2ir 

ONOS 

? 1 1 

ONOS 

2 1 ‘ 

ONOS 

21 f 

ONUS 

2 1« 

ONUS 

2? 

ONUS 

27 

ONUS 

2 2 : 

ONUS 

23. 
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CALL C HA KLV ( NCOREi 1 CORE 1 1 1050) 

STOP l 
105C KORE=0 

CO IOdO 1=1. NCCRE 0 

icco kj.<e =.<Cm£ « icons ( i ) 

KU«t“KUPc /I C2 4 + 320 
PRINT 1C7C.KCPF 

C INSUFFiC I^M CORE AVAILABLE PAINT E-LOR MESSAGE 
CALL cAACr, ( 1 0 .CATAE P) ' 

1070 FUPtMA T ( 1 »- 1 . P. 0 X « ' SXCCUT I CN TERMINATING DUE TO INSUFFICIENT MAIN 

• *CuRE STORAGE. ‘ / 1H0 • 15X. • THE USER SHOULD SPEC Ir Y REGIONS*. 

« ILi 'K PLUS ADDITIONAL STOP A CE ' /.? 1 X « * FOR ALL EXCESSIVELY » . 

• ‘LARGE I/O DUFFERS USED.*/) 

STOP 1C 

1 C00 0 FORMAT ( 1 C A fi ) 

10001 FOk'IAT ( iC.IA.F7. 4. 12,1 1 , 2 FF 2 » 0 , I 1 , 2 ( I6.I4.0PF7.4) , I 1,16.11*17) 

10002 f Of'V AT ( UL24 • 1 6. I 1/ 3C24 * 1 5 ) 

J 000J F-JK'AAT ( IF 1. ?0X, * *AriMf/G: • /1H0. ISX. * INPUT ON THE POSITION VECTOR 

• ‘CARO IN AFC * . I 3 . /2t X . «I ND I CATES THAT K5PLEP ELEMENTS *. 

, * HAY FAVL AN* ECCENTRICITY 3 f EAJER THAN l#»//l 

END 


ONOS 224 
ONOS 225 
ONOS 226 
ONOS 227 
ONUS 22E 
ONOS 22S 
ONOS 230 
ONOS 231 
ONOS 23? 
ONUS 233 
ONUS 2 3-“- 
0NU3 23b 
ONOS 236 
ONOS 237 
ONOS 2 3F. 
CNOS 2 35 
ONOS 2 a 0 
ONES 2 a 1 
ONUS 24 
ONOS 24 
ONOS 24 * 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


8 . 0-12 


<>) fv > 



MAIN 

Page 7 o£ 8 
October 1972 


G*iD 



f STo/Z€- Ccn\n\.o 

f/\£f\m£T£fZ 
T/JFC£Vf)TroJ / 




/40O /ZCA2>S { 
ST6££$ /}£(*. ' 

-ZAjrotm/iTTCAJ 




AJC*\J*UIQ 

JlAiTTTfltZZC 
Foil A/ZC 
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DESCRIPTION 

e Functions as a driver for orbit determination and 

data reduction operations. 

© Reads Input tape for restart when necessary. 

o Calls GEOIDH to compute surface density geoid heights. 

© Calls ESTIM to initialize the least squares estimator. 

© Calls TWOSTA to compute partials and calculated 

observations for VLBI and average range rate data 
when necessary. 

© Calls , ,PREDCT . to.. .compute . .the .orbit- for orbit generation 

. runs or calculated observations for measurements other 
than VLBI and average range rate data. 

© . Sets parameter numbers for adjusted stations, biases 

and timing biases. 

© Writes a binary residual tape, groundtrack tape, 

and R-V tape and an optional ORB1 tape. 

© Calls SUMMRY to print arc residual summary. 

o Calculates and prints adjusted elements. 

© Calls TYPORB .to print arc summary page. 
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Punches adjusted elements of drag and solar 
radiation pressure. 

Calls DATARD to store updated arc parameters. 

Prints adjusted parameter variance -covdriance 
matrix. 

Calls ESTIM to calculate adjusted common parameter 
values. 

Prints adjusted arc force model., parameters . 

Corrects and prints adjusted biases. 

Prints residual summary for all arcs. • 

Calls ESTIM to estimate geopotential parameters. 

Computes estimated station correlations. 

Prints estimated station summary. 

Prints geopotential coefficient adjustment information. 

Calls UPDATE to compute effects of adjusted geopotential 
parameters on adjusted individual arc- parameters. 

Calls subroutine to print correlations oh adjusted 
parameters . 
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sake 


NONAME 


puapgse 


1 ) TO DRIVE ORBIT GENERATOR AND DATA REDUCTION 

OPERATIONS * 

2 ) TO OUTPUT RESIDUALS* EPHEMERI 5 D ADJUSTMENTS 


calling sequence call noname r npar m,p.vpxo . osnos . j i aso .aa i as » b i assg . 

B S TR T * U SEND » hi S T A N O » ri Y T r>E » P A R NO S i 
' DDEL.TA . TTL , DEL f A ♦ 5TAN0S , I ST ANC • NAM 2 » 

SUMI , I NDXCS ♦ UPV AL » SPVALO «-GPS I G » GPNO » 

AREA .CENTER .OENCON* -3LSTNO . 3ETYPEI 


SYMBOL TYPE 
NPARM I 


PMPXO DP 
( NPAP.M. I ) 

USNOS 1*2 

( I > 

dIASQ DP 

( 1 I 


DESCR I PT ION 

INPUT - 'MAXIMUM NUVHER'OF PARAMETERS PER 
MEASUREMENTS 

INPUT - MEASUREMENT PARTI ALS WITH RtSPECT TO. EPOCH 
F ARAMETE PS 

INPUT - LCCATION IN 'NORMAL MATRIX PUR BIASES 
INPUT £, OUTPUT - APR I JR I BIAS ESTIMATES 


DBTAS C>P INPUT - CURRENT 'BEST BIAS VALUES 

( 1 I 

BlAcSG DP INPUT & CUT PUT - STANDARD DEVIATIONS OF BIASES 

< 1) 


8 STRT JP * INPUT £. CUTPUT - BIAS START TIM’S IN CAYS FROM 

(I) JAN 0.0 OF THE RE-ERENCE YEAR 


BSEND DP INPUT t CUTPUT - BIAS STOP TIMES IN DAYS FROM 

(!) JAN 0.0 LF THE REFERENCE YEAR 


a stand 1*2 

( i ) 

UYTPE 1*2 
C II 

P ANN J S 1*2 
( 1 I 


INPUT & CUTPUT - BIAS STATION 
INPUT C CUT FUT - BIAS TYPES 
OUTPUT - PARAMETER NUMBERS 


NUMBERS 


sssssv^ 


ODELTA JF INPUT - SCRATCH SECTOR 

<11 


TTL UP INPUT - AC. J L ST ED PARAMETER TITLE ARRAY 

til 


Dt-i-TA DP VI°\JT C CUTPUT - CORRECTION VECTOR FOR ADJUSTED 

( l J PARAMETERS 
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STANU3 

(2,1) 

1*2 

INPUT - 

LOCATIONS in NOP PAL MATRIX CF INFORMATION 
PERTAINING tJ ADJUSTED STATION COORDINATES 

l stand 
( 1 ) 

: i *2 

INPUT - 

ft 

STATION NUMB IRS 

NAME 

w> 

O P 

input - 

STATION NAMES 

SUM 1 
< 1 ) 

DP 

tNPUT - 

NORMAL MATRIX 

XNDXCS 
< 2, l ) 

I 

INPUT - 

INDICES OF ADJUSTED GEOPOTENTIAL 
con F F I c I ENTS 

OPVAL 

( 1 ) 

DF 

I NPUT - 

CUP F E NT EE ST VALUES OF ADJUSTED 
'CEC3POTEN T I AL COEFFICIENTS 

GPVAL 0 
( 1 I 

L. F 

I NPUT - 

AFP10R1 ESTIMATE FOR ADJUSTED 

CEO potential coefficients 

GPSIG 

( 1 ) 

DP 

INPUT - 

SIGMAS FCR ADJUSTED GEUPOTENTIAL PARAMETER 

gfnu 

<1 ) 

1 * c 

INPUT - 

LOCATION'S OF GEOPOTENTIAL PARAMETERS IN 

normal .matrix 

A Ac A 
( 1 ) 

CP 

INPUT C 

OUTPUT - SURFACE DENS ITT SUD-OLOCK AREAS 

CENTER 

( 1) 

DF 

OUTPUT - 

- THE GEOCENTRIC COORDINATES OF THE 
SUB-BLOCK CENTERS 

UENCON 
( 1 ) 

OP 

input e 

OUTPUT - COEFFICIENTS RELATING CONSTRAINED 
AND UNCONSTRAINED SURFACE 
DENSITIES 

OESTNU 

( 1 ) 

1*2 

Input - 

electronic bias station numbers 

ocTYPl 

i * 2 

INPUT - 

ELECTRONIC 3IAS MEASUREMENT TYPES 


( I ) 






SUC.RUUTINES LSED DATARC 

EST I w 
FA NO WO 
DATES 
ELEM 

CLEARS 
RAN C‘W F 
COSDOT 
esc cm p 
COPREL 

PREOCt 

ERROR 

SUMMRY 

rypuR*.) 

QUTR AD 
COMADJ 
UPDATE 
CLEAR 

ORDl 
STAIN* 
GEO tOH 
TWUST A 

CCN'iCM dLLCnS 

apar am 

! N I T DK 
XYZOUT 

fmodel 

C JNOU T 
TPc.PL* 
PhEBL k 
COEDS 

CPARAM 
CONST s 
F L X BL K 
CELFM 

ALPMRC 
C T I M E 
PRIORI 
GNDTRK 

INTULR 

XYZ 

CST INF 
CORD V 

INPUT F iLv-S 1NSTRT - 

B.TOOOUOBIUTV OF THO 

SXal page is poor 

INPUT R E ST A-< 

T TAT? NU 1 

MOE R 

. 
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FL.TP - FLUX DATA FILE 

' OUTPUT FILES CUT P - PfvlNT£^ 

PLHTP - EINAFY RESIDUAL TAPE 
XYZTP - PRINTER 0 

RVTP - BINARY 5 A TELL 1 Tf. iPHlMEPIS TAPE 
CRDTP - CPQUNDTH ACK TAPE 


& 

§ ^ 

^ £9 

H r7 
^ Pg 

o ^ 

S S 


ft? 

& 


o 


- £ 
' o 


SUdKOUl I N ^ NJNAM=(NPAR K.P^PX 0. ESM03. :J I A S 0 , Bli I AS , 3 I A S S G . ii ST RT , 

• 5 S t N 0 , BS T A NO . S Y T P E , F AP NO S . D DEL T A , T TL . CEL T A , ST A NO 5 » 

• ' 1ST AN C ,N/.v£, SUM l , INCXCS.GPVAL.GPYALO.G^SIG.GFNC# ARE A. CENTER* 

• DENCaN iFE S TWO « A.-; TYPE ) . _ _ 

IMPLICIT f>£ i L* i ( A-H, 3-Z ) 

LOGICAL* 1 VhF CUN . PR EPR O 

LUG I CAL 1 CREF T, VARS TP^ OmtSw . X\2FS.; , XY2LSW. TOFEFO ♦PLTLSW, NOPRNT t 
PlOT j .V , I MI T AL , OATAS'li SATSW , FIT GR, LIT c'P .DRAGS W .LI TT£S i L I N‘J . 
LuUTcf- .NCR RAT « C M PG n P . G PCS W . CFPFS-.v , SU P 5 AT . <F. PLE P . HL VD S w , P AP t OP , 
u.‘UT, i IMO AT , PEL'S I M , POM AT . TR K S ■ .START a. ST ARTR , I NNR.3 V , S AT SAT 
LOGICAL FT PER 

INTE GL Uv 2 MTYPT > N‘ ' 17 AS. PP E T Y P . C F /- N CL » LST A N O * fci Y T P E i PA P N C 5 . 3 S NO 3 » 
STaNU S . I ST ANO. INDXCSiGF NO . I EAT .RETYPE » PE3 7.NQ 
INTEGER CCTt> . RVTP , 0 ATP . XV ZTP , AFONfl . A DDR . ADDR 0, SR AD , RSNDX . B I NDX 1 . 

B I NDX a . T I NDX. »L D TP . FLT R. OUT cP , O J SOPR . E STS TA , PARL I M , R EC NQ, 

SCRA, S CRC . CP OTf 1 , FSCNOl .BRAT KU, CROLR . STAR T A, ST AR TO « OUT STP 
REAL AI i AL.F.NO, AXYZ , >J S U'-' V P « S 0 . DO 1 T.N .EAST 1 , LAST 2 ,R*-'SN0, *TM£AN. 

ASTR5K .CONVPG , RD *>EA N, RNSPRV .SGPPN T . VARCUV .T I TLF , CU TCON , RMS ALL . 
R MS TO T , aT kND . PMSLST .PMSWTO , T Y P P \ S , P I , T WOP I . R A 0 . R S £ C » rJR S I 0 I , 

BAS IU2 iDRSEC ,NOEC IT 

LuU OLt PRcC I S J CM -MG PEL » N A f- E . IT N v j.LHAT , S A T • ADD Y .LOVE 
01 MENS I CL DsSNCSf 1 ) . PI A SOI 1 ) . ? J I A S ( 1 ) . 3 1 A S S G ( 1 ) . J S TR T ( I ) , 

U S^NO ( 1‘) • B£T AND t W . 5 Y T PE ( 1 ) .PAR 1 ) , P M P X 0 ( AR v , 1 ) , 

DUE LT A (1 ) . TTL ( 1 J , DELTA C 1 J , I T IP ■■ ( 2 ) , S DE L E M C 6 ) ♦ R P S" 0 S { 2 I , 

1 OEG t £ I . M ! M i ) , SEC A ( A ) , APR l C.p ( 2 > , ADJUST l 2 > ,SD( 3) . LHAT< 3 ) . 

DROLL p (o,2),m r JD!F( 6) , S T AN O $ ( * . ] J , U5NDX ( 2 ) . I STAND ( 1 ) , 

NAME l 1 ) * S U V 1 (1 ) , A X Y Z ( 5 ) , S T P E Z 1 ( A > , ICS ( 3 ) . iMDXCSt 3, 1 ) , DPAG( 2 ) , 
GPNO( I ) . GPVAL ( 1 ) ’, G 3 V A L C ( 1 ) . C^O I » ( 1 ) ♦ [:P S I V I C 2 ) . ER S l C 2 ( 3 ) 

Cl MENS I J N PVRVS { 2 , 2 ) , /FF A ( 1 ) , C ENTER { J ) , f ' r NC C N ( I ) ♦ Pc ST NO ( I ) , 

BET YPE ( 1 ) 

COXMCn/aF /R A.V/ I N£>AP . INPAR I.Nbl AS.EST STA.NSAT • N GP A WC .RECNOI .NPARAM 
,Mto I AS .VAXPAR • - 

COMMON /CL A OUT /IP'S AL_. , OLTC CN . ?-U f'OUT . / AXOUT , L I T^ES . VAXSAT , MAX2 I N , 

N STA£t 1 .NEON': X , I V AE , ICRDER ARC S .<J ST ARO. ST APTR , ST ARTW , STARTA , 
STARTC.INST, T.OUTSTF 

COMMON /CPAR Am/NS f A . NMA ST . NSTcS T .NO I M , MO J AS » NG'-’Cl , NGPC 2 , NGPCO'N 
NCoi T , C^'PC^R ,L I M 1 , L I M2 . NDE N , NO SU ST . NT I DOT * NT I DE N . I NNRS w , 

NCONS I . NO C CN 5 

Common/ AL F PRC / I T RMS < s ) . t i p i ng . r lanr . a type C 3 l ) , U?TI TS { 1 5 ) , SLCUT . 
MYPcR 

CO.-.MUN /l A T EL •< / TM^O T 1 , T H30 T ? , TH Dl'2 S » CM , AD » A;£ SO ♦ FL AT , F S(Jr! 2 « F F $3 T2 . 

GM3 ( o > ,-U 2 ) , JGOT ( P) ,f 0 t 2 I . U'GMI ' ) . APL Y( 2 ) . KV RE 5 S , I N I T A L . N J P A T 
T P c T G 0 . Y •*» G C Y { E ) ♦ S T T S 2 ( A \ » h l V f. T ( 2 ) « D rL " R 2 ( 2 J . C T C L { 2 ) . R T 'JL t 2 ) » 
STPLJX (2 ) . ST r ‘ PU° ( ?.) .CPDDP (2 ,D ) , JA T( 2 > « M S A T { 2 ) ,V-\KSTP< 2 ) . 

MLV cs * ( 2 ) . N-M.i'i ( 2 ) . AP> ( 2 . T > « L O V ( M , U. ' r F T , N-JCD Y 


1 NON 

12 3 

1 NON 

1 Z~- 

1 NON 

I 20 

1 NUN 

I 2 f 

1 NON 

I 27 

l NON 

12 = 

1NCN 

1 29 

INO'i 

1 ?C 

1 NO M 

1 ?.l 

l.N'JN 

122 

1 NON 

1 3 3 

1N0N 

■ Of 

IN ON 

125 

1N0-N 

13 6 

IN ON 

1 37 

INON 

1 3 P 

INCN 

139 

1 NGN 

1 A 0 

lf^ON 

i *v i 

1NON 

1 TO 

If ION 

1 A? 

I NON 

1 A A 

1 MON 

i 

1 NON 

1 f-6 

IN-ON 

! a *» 

1 NON 

1 A 3 

IN JN 

i * ^ 

t NON 

15 0 

IN JN 

; 3i 

1 NON 

1 32 

IN ON 

152 

t MON 

ISA 

IN ON 

I 35 

1 NO^• 

I Sf 

IN ON 

157 

l NON 

i i ; 

IN ON 

1 5? 

IN ON 

1 SO 

l NON 

1 G 1 

INOn 

1 S2 

I-NO.n 

i - 

I N'JN 

1 

1 NON 

1 S c . 

1 NUN 

l it- 

On 

i F 7 
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CUM MU N/ I N i T f JK / I EPVMO » I EPS EC . I YREF , J X , [ NNM t N, CONVRG, 

• ' OrlPuL ( c. 2 ) .ED ITN. INSUPC, I 0 S AH 2 ) , OKs.' T 5 .? . XY/F 5 « , X YZLS U . PL TL5W . 

« GR0F5 W ,KfPir r J ♦ 5U HS A T ♦ PAH 1 GP .PfcMAT , 3 VAT MG . S I MO AT * PCE5 I V ♦ 

• MJSLOC( r a 

COMMON/ TPtSLK/ I NTP. OUT P.D ATP . X YZ TP. K PLHTP . 9 VTP . PtCTP. 1035 . SCR A, 

• SCKt .» f " LTP*GrDTP 

COMMUN/CCNSTS/CPI * OTWOPI , CRAD. CR5EC 

COMMON /CT lN! = /DAT^P,DAYPcF,CST4»T,OAySTP.D.\VINT . DGR 31 T .CAYEND, 

« DkATc *C'3PU 1 .DOR 31 E , CRUFT , I Yf?f, 

COMMCN/X Y^/ At INPM( 7 ) , K <AT . IFC« CE { 2 > 

COMMON/ XYiCUT/XY ZEND ( 6 t 2 ) . C*» GP A^> ( 6 * 2 ) 

CUMMON/PK tOLX/OAYST A » CJ 3 SO 1 * 03 S C 2 » S I G 1 * L I G 2 , S P C ND X i I S7 A . M TYPE « 
c NMl AS t IS AT . PRET YP . CHANEL « VHKHN, PREf'HO . HtCflJ 
CGMMON/FL >ULK/F LUX 1 (4C5).FLUX2(405> , PLUX3( A 05) .FLUX ft ( 40 5) » 

• FLUXiMOC ) 

COMMGN/PF I J^I /LLEM I N( 5 . 2) , VARCCV{ 6, 6* 21 , TI TLE{ 60 ) »DR AGSGC2. 3» . 

« ORaGG (2,3) .CO(? , ?. ) 

COMMON / C S 7 1 NF / W = A £ .N CM 4 ) • N OB 3(4 ) , ROME AN( 4 ) , 9 MS 0 ( A ) , R NO ( 4 ) , 

• Me A 5 a T ( ft ) t -ATMEAt-J (/. ) V S*T0 ( A ) , wT ^ND( * > . TYPRMS ( 20 ) « NOTYPE < 2* 30 ) 
« b5UM c « J .? ) , PVSNO ( 20 ) , MCALL ( 10 > , NOV, TCP . L 3 A S * 

• CGMMUfi/r NCOEL/ INDE X 1 , Nt.E X 2 . I Ni£ X 3 , I nDE x4 , C S< 30,32) , MUCEL (6) 
CCMMCn/CGcGS/ ISAT 1 D( 2) , IPPEPftC CS2 ) 


CuMMON/CtiLi N'/FLE^S T (o, 2) , C«?MLA{f ,2 » , IG1E(4 ) ,9'iSTQT 
COMM JN/wNCl P K/S ATI. AT( 2 ) « SATLUN (2 ) , SATH( 2) , EL E V ( 2 > . SATS* 

CJWMJ.M/CL Fi> 1 /RANOO r ( r 1 .PE FOOT (25, PEPMT ( 2 ) , APHT < 2 ) ,PRD( 2 ) 

REAL *3 Pri£V ( 2 )/ * PRF. V 10 * , * LS • / t CHANGE/ « DELTA * / 

ECO J V -V_ E SCE ( T I SOX i •« ?N 0 V ( 1 ) > * < f- I SC xi r E< f.Sf- <(?» ) . (TjNTX?. A SNDX ( 7 1 1 . 
© (til Gt"* JC* } , { p ? iA T • C t ^ 2 * , * o * v • ( ; ^ T ‘ ,<[U) i } * 

* ( AAC, CKAC. ) , ( RSE.C .DFSEC ) . (PRC ( 1 ) , TPKSrf) 

CAIA m S r A EKV 1 F*/ * NPEO I T/ U’E / 

CA1A HEAT 2/6PJ-EPTZ/ 

GAT A aPAICR, ADJUST , SD / 

»• 6 F A FP I O . 2HC I , tHA CJL ST , 2F CO , 6H3TANDA , 6HP0 DE V , 6 H I A T I ON / 

CATA AXY Z/2H >: , 2h Y,2H Z, ‘MXOOT.AhYDGT , AHZOCT/ 

CATA PCE/ftP PC-'/ 

•LATA ArsCNL .CLTEA ,N*P AGE/2 * 1 / 

CATA U.S/ lf-C* lMS/.0«Ar./AHPPAG. CHOQAG DC T , 6HS OLR A 0/ 

CATA JYA]/, FALSE./ 
cata npacex/i / 

1NOXNC ( l ) =n;> I v* ( I - 1 >-< 1* ( 1-1 j > /2 
1000 J FORMAT ( 2 c Aft > 

NCbMrtX=\C S ES T 


ARCNU= E T A FT A 


CO TL A= ST A FTO 

lr(ETAArF) WAXy'JTsS TAR TC 
LCUT ErN - MA XOUT ,Lr..OUTCR 
1F( • NOT* SH-Uft ) GO TO 200 
IF (31 AATA.lt , 2) GO TO 200 
C IF KciTART INC PrAC INPUT TAPE 
N1-3TAFT>-~1 
CO I N = 1 , M 

CALL LAT AF3(N,,T RU L». .FALSE. . * F AL EE . ) 
tsPAn N F V . I + \’i: J AS 

I r ( U • G r . ] ) E a v ( I N S T<? T ) 

Ki^AO ( I N I hT ) LL 


L -NO I M * ( X C 1 * * ♦ t ) / 2 


1 MON 

ice 

INOtv' 

« A. c 

1 NON 

: ?c 

1 NUN 

171 

1 NON 

I 72 

\ NON 

173 

1 NON 

174 

1 NON 

17P 

1NON 

176 

t NON 

177 

1 NON 

1 7r 

1 NON 

\7~ 

1 NON 

\&0 

1 NON 

131 

l NON 

1 72 

IN ON 

15 3 

i NON 

lev- 

INGN 

ies 

1 NON 

If- 6 

I NON 

107 

i MON 

1 C-Q 

IN ON 

1 09 

INON 

1 r *0 

1 NON 

l r 'i 

1 NON 

192 

1 NON 

193 

t NON 

t ft 

1 MOM 

1 C c. 

1 NON 

1 Q6 

I NON 

19? 

1 NON 

190 

1 NON 

1 F-O 

tNOH 

200 

I NON 

201 

t NON 

202 

INCH 

203 

tNON 

20^ 

1NON 

205 

I NON 

206 

1NON 

207 

1 NON 

20 E 

l NON 

2C9 

1NON 

210 

INOfJ 

?1 1 

l NON 

212 

1 NON 

212 

l NON 

2 l x- 

1 NON 

21 S 

1 NON 

216 

1 NUN 

21 ? 

l NON 

21 « 

l NON 

? 1 9 

1 NON 

22 0 

1 NON 

2? 1 

INPM 

? ??_ 

I NON 

223 
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. Du 1 26 IIM.L ,225 _ 

1 2 - MI N 0 ( I 1 t 2 2 4 , L ) 

125 KcAQ( l NSTR r ) ( SUM 1(11*1=11*12) 

DO 1 60 I l = 1 , NCI V, p.2 5 6 

12-M J.NOC I| + 2?^,NOI«) 

150 RcAO( I N 5 7 FT ) (CDELT A( I > . I = 11 . I 2 ) 

DO 1 75 | 1 = 1 ,Ll., 225 

12-M1N0( I H224.LL) 

17= jvk 1 Tc. ( SCRC ) ( SUM1 ( I ) . 1 = 1 1 , I 2) ' 

150 CALL DATA PC { N « * FALSE t t .TRUE. * « FALSE. ) 

REMIND 1NSTPT 

CALL S T A I rip ( 1 ,0,P»P,P,P,P.P) 

C 5T Ar< T uF OUTER ITERATION LOOP 
20 C kLCNO-O 

If { NGPCC V ,LE. 0 ) GO TO 250 

C SET COMMON ADJUSTED CE O F-OT E N T I AL COEFFICIENTS TO CURRENT BEST VALUE 
NCb 1 sNCSH AX-NG^COM+ l 
CU 22b 1-NCS1 *NCSMAX 
j= iNoxcr. < i , i > 

h- 1 w;x C5 (2*i> . 

u= i ndxc s ( ;• , i > 

Cl -OPVAL < I ) * GFS I G ( I > 

IFtJ«.E(..l)C5(N*M+l)=Cl 
225 IK(J.uC.i) CS (31-N , 33-V) *C1 
2=0 C ON T 1 NOE. 

IF (NOLN* L H *C > GO TO 30 C 
r CCVPUT*’. S'J-F“CE ^EOIC* PLIGHTS 

CA'_L C E L’ i E ** r 6 P p fl . : C F K ! T E c * ^ r w r O N * 

C R F AO INFORMATION FOP NK XT AFC 

3 0 C CALL OATAhO( AFCNO« . TRUE. , .FALSF* ,** r ALSE. > 

NSA-T 3- 3* KiAT 
ITAML{ I ) = JJTR 


ITAP£( 2 I sJtYZTF 
IFtuUTun .NE. 1 ) GO TO 32C 
MA*2 I N-.V, A> 0 11*1 N.VM A X/ l C ) 

IF < I N.NFJ-v* .Nr. . 10 ) I N N A X = MAX0 ( 1 *MOD ( I NNMAX . 1 0 J ) 
320 CALL CLl A F( ^SSOX i 3* 1 ) 

M'SOlr.X'iSl S T A 
C READ Flux LATA F C A ARC 

REAO(rLTF) T HFTC.O , FLUX J 
RlAD(FLTF) FLLX2 
Rc.AC(FlTPJ FLLX3 


C 


•KlAO ( FLTR ) FLLX A 
READ ( f LT? ) =LLX5 
Ir (OROl iO GO TO 3?0 
CALL CLEFT2( P ARNOS * NPAFM * 1 ) 
DU 37 j Is l, IN FAR I 
37 b PAHNuu ( I ) = l 
3 3C IN? = I NF Ah I 

NPA R AM = I N f A'> I 4NO I A S 
L I i*NEk = I M^MAX ,LU. 1 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


IN. Jc 1 

DU A 00 I = 1 , * 

LfTPoZi ( 1 ) = 5 T C F S Z ( I I 

IF ( N l,P A K C * L t'. • Cl GO 7 0 *?C 

SET A**C «*U JL i IE"* C f tiPJTfNT I AL COEFFICIENTS TC CURRENT BEST 


VALUES 


1 NON 

22' 

1 NON 

2 25 

IN ON 

2?C 

1 NON 

227 

1 NON 

22? 

1 NON 

229 

1 NUN 

230 

IN OM 

231 

1 NON 

2 32 

1 NON 

233 

1 NON 

2 3' 

1 NON 

2 35 

1 NON 

236 

1 NON 

237 

I NON 

2 3C 

1 NON 

2 39 

1 NON 

2 A 0 

1 NON 

2 A 1 

tNON 

2*2 

1 NON 

2 A3 

1 NON 

2 re. 

1 NON 

245 

INUN 

2*6 

1 NON 

247 

1 NON 

24? 

1 NON 

2 AO 

1NON 

250 

l NON 

261 

1 NON 

25 2 

1 NON 

25 3 

1N3N 

2 5* 

1 NON 

2 = 5 

1NON 

25 c 

IN ON 

257 

1 NON 

25 R 

1 NON 

259 

1 NON 

260 

l NON 

261 

1 NON 

262 

l MON 

263 

1 NON 

264 

IN ON 

255 

1 NON 

266 

1 NON 

207 

1 N ON 

266 

IN ON 

269 

1NON 

270 

1 NON 

271 

1 N ON 

272 

l NON 

27 3 

J NON 

2-»a 

l NON 

275 

\ NON 

2^6 

l NON 

277 

1 NON 

?7b 

1 Nor: 

27 9 
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UJ 4 1 o i = 1 , NGPARC 
, J-lNUxCS ( i * r > 

N— I N OX C 3 ( 2 » I ) 

V = J.NL>XC 6 l 2 , I ) 

Cl =fcPVA t ( ! )*gfs IC( I ) » 

I F t J « E C « ] I CSJh.MtU-Cl 
410 JF<U,2C*i) cs ( 3 1 -N , 33~M =C1 
420 t-’AkL 1 M -N b 1 ART - 1 
C STWT OF INMcfi ITEPATICN LCCP 
(50 IF(CnbTSVw) GO Til 560 
c set switches for cata pecucticn 

LlMl -NSTA KT- 1 

1H( INNEK 1 .AND* ARCNC.EC* II L I M 1 ~ND I V 

~STSTA = M*-/53T 

LIM 2-0 


1F< L 1 NNE } L I ^2= 1 
NUPKNT -i J\SUPR . F Q » 4 
tAYUk3 = .)SIJKTCRATc 

II' (CAT A^P ,LT • CSTAR T I DAYOKcl = 9A TAE P 
CMAT =i)MA T t c*. . tj.’-'ATND, GT ,C 
J= I N U X N C ( fO I M ) *■ N 9 I M 

IF( bMATNC .GT . 0 ) CALL C LE A P ( SUM 3 , J , 2 ) 

c initialize l^st squares estimator 

CALL cSTIM I ,F,P,P| 

GO TU 670 

C SET STA,nT 7 I FOR ORdIT GENERATOR 
.6 6 0 DAYCK. J = UC 93 l T 
ISn = 0 

67 0 NOj-MI NOS f — 1 

C INITIALIZE INTEGRATOR STEP SIZES F CR NEW INNER ITERATION 
O U o f b I ~ * 4 

67= SrcPSZt I I-ST^SZl ( I ) 


c 


KLLNL = Ac C M 3 I 

CuUNIr >•« S £ LOGICAL SWITCHES FOR NEW INNER ITERATION 
FRcPRU ■= * f /LSE • 

NINS_X - i 
LAY I = D A T i c 3 
1 NNk Srt — • F AL Sti * 

LINE o =0 


L iNL Sx =0 

F IT £*.; = INNER* E C* 1 , AND. CLTC.R* EO * 1 
LlTL.-<=LlKMA*£ND*LOUTFR 

NUP PN T - » N C T • CNOPRNT«OP»(LITEP*ANO« I NSUPR » GT • 1 I * UR • { F I TER* A NO ■ 
♦ MCCC INSUPR « 2 I .Ffi, 1 ) } 

SATS A = ( F 1 ISP • AND * X Y Z.F Sw ) • CP* ( L I TE P* AND* > YZL S W ) 

GRCSw. -F I T b« * an: • OPDFSw 


oU^oAT = S AT Sv; .OR* GROS M 
PLuT Or. =P(L TLS »; • ANS. L I T 5 A 
IkK^ rf-f lC 1 S>. 

CVi'vrVts.NOPARC «C.T * 0 
NCocST AR C 

I F ( « N 3 r • L I NN E R ) GO TO £90 
I N.Mk'jvt = * 1 ICt N «I>T *0 
lNPAr<- Il.PAR \ NGI’CO'* NT ID: N 
Ir ( NQPlC V . ~'C > 0 ) G'l TO t?V 
= • I hU “ t 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


INON 

260 

1 NON 

?S I 

1NON 

262 

1 NON 

203 

S NON 

23A 

1NON 

2«5 

1NON 

266 

IN ON 

2 67 

1NON 

2 6-S 

1 NON 

23 P 

1 NON 

2 50 

1 NON 

29 1 

IN ON 

292 

1 NON 

2P3 

1 NON 

2 - A 

1 NON 

29 5 

1 NUN 

29 6 

IN ON 

297 

1NON 

29 A 

IN GN 

299 

I NON 

?9D 

l NON 

30 1 

IKON 

302 

l NON 

30 2 

IN TN 

32<* 

1 NON 

00 5 

IN ON 

7 0-*- 

1 NON 

307 

I NON 

7 9 ?■ 

IN ON 

379 

1NON 

3 I 0 

In on 

? 1 1 

1 NON 

212 

1 N ON 

?! 3 

I NON 

31 a 

IN JN 

31 0 

1 NON 

3 1 6 

INON 

71 7 

I NON 

21 6 

INON 

319 

I NON 

320 

1 N TN 

32 1 

IN JN 

i p 'i 

INON 

323 

1 NON 

32 a 

IN ON 

226 

1 NON 

3 26 

IN UN 

22 7 

I NON 

32 0 

1NUN 

22 9 

I NON 

230 

In on 

321 

l NON 

2 -* 2 

INON 

? 2 2 

IN ON 

2 ?f- 

1 NON 

2 ?• 6 
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ucsesf = nc:«ax 

67,* 11 snOPCHK INT I CEN 

Or ( 11 • L£ • C ) r,C TO 6 5 0 
CO l-lill 

630 PAwrJUS ( I NFAi'i 1 + 1 I =NST AR T+ I -1 
C SET NU Mo ch J F FOACf. MOD ZL EQUATIONS TO JE l NTZGP AT t.O 
6 *3 C N_iGN { 11-1 
NcQN(2)=l 
IF JmCc ( 1 ) - 0 
IFUPCt-< Z ) ="0 

IF (GKGT3* .OR* (L 1 TER . AflC.L I TPES ) > GO TO 692 

h£UN( 1 ) -7 i M G 9 A G ♦ v A x 0 ( AD OF ( 1 , 1 ) » A DO 7 (1,2) , ADPfl( 1,3)1 

IF JKCZ ( 2 )= ! JlCN( 1 J-7-NGFAPC 

K=MA<0 ( AC CR ( 2 , 1 > , ADCR ( 2 , 2 ) » ADO R( 2 , 3 J ) 

IF ( KiGT . C > K=K- I FORCE (2 ) __ _ 

NtiON ( 2 )= 7 4NGP AACFK . • 

I F C i NUT* L INNER ) GO TO 69 ? 

NuON ( 1 )-NECN( 1 ) *\C.PC3M4NT I DEN 
MiuN ( 2 ) = Ni:CN ( 2) * NG°CO'UNT 1DEN 
Gu UJ tv ; 

c 3 2 I.'MA& = 0 . 

(J3 IK * TAL S • ThUE # 

C Scl LO*T CRITERION C START TIME 
c.oir-KA^icT«t:ciT^ 

KfOLM sriVSTOT 
CAYQ=U5TP •» T 
r / x t r \ v a t: « r A L S L" * 

i r T a - » 


INON 336 
1NON 337 
1 NON 336 
1 MOM 339 
1NUK 3^0 
1 NON.' 3 A 1 
INON 3 A 2 
INON 39 3 
INON • 3*9 
1 NON 39 5 
1 NON 396 
INON 2*7 
1 NON’ 39C 
1NOH 399 
1 NON 3 50 
1 N ON 351 
1 NON 352 
1NJN 353 
1 NON 359 
1 NON 35 5 
1 NON 356 
1MON 357 
INON 356 
l NON 359 
1 NON 36 0 
INON 361 
INON 362 
tNHN 


1F( J-NNcR « LO. 1 « AND* ARCSC.EC. 1> I STA = 0 
C I N J T I AL I Z_ STATISTICS FOR 1 NN 5 3 ITERATION 

IF< * NOT iCHSTSh ) CALL STA IKF t 1 • ISTA P, P,f*,P,P) 
7 C 0 IF(5KdTj*J GO TO 630 

IF (CAT AS ft K.O ‘TC G 0 0 . 

7 2d huCNU= Kt C f* J 4 1 
C RE AO CJjERVATICN 
uALL •«< ANuFO 

1FIMTYPZ . CT. 0 ) GO TO 775 

710 cays r« = j :?, r ;c 

GO TO 6CC 
775 CT = L'AYbrA-OAYl 

IF(DT.CT .-.00 1DG1GC TO SCO 
IF( •NOT. F ITc R > GO TO 735 

C PRINT <!l$1ACc FOR CE' 55*7 V A T ICN OUT CF TIME ORDER 
Caul cat tiiOA ys T ii i y no ) 

WHiTCduTf ,10 202 ) I b T A NO ( 1ST A > , I Y v 0 , l M A , SEC 
uU To 72b 


C DETERMINE Z-ALIFST T I '■’F FOR 
■JOG tf'IOAYjTA— ZAYCP iJ) 075,9! 

4 2 5 I :» m - 0 
530 UATAd/. = *TRUZ. 

C A Y 1 =c AYCR 1 ; 

C AY J|« j ~C A Y jt- M * DP A T l 


INTEGRATION END 
0.525 


original pag^ 10 


GO T O 1 G C C 

; 5 0 Cay l. wo =w a K.l-ti + r^ATr. 
; 7 3 cAY 1 = 0 A Y b 1 A 

GAT /, S .> “ . r PL* h , , 


IN JN 3 59 
1 NON 365 
1 N "J N 3 t 
IN TN 36^ 
1 NON 36° 
1 NON 366 
INUN ?7C 
: N IN 3"* 1 
1 MON 372 
1 NON 373 

l NON 379 

INON 375 
1 NON 

1 NON 377 
1 NON 375 
l NON 3"* 6 

l NON 3rO 
INON 371 
INON 382 
l NUN 38? 
INON 3«-A- 
INON 315 
INON 30 f 
INON 337 
INON 

l 'ion ?r* 
INON ?C? 
1 NJN 39 1 
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I SN = I 3 T A 

C OcTckM IfJci IK INTEGRATION COMPLETE 

1000 IF(OAY5TA.Gr,crr,C'O.ANO,OAYl ♦Gl,DAr!Z» 0 ) GO TO 2000 
IF(MTYf J L*LL’.2fcl GO TO 1100 6 

C CCMPLTc. PARI lfLS.C CALCULATED GO S3 F VA T I ON FOR VL3I C AVG RANGE RATE' 

C cata 

call Ti\OST A ( I SN* PAV 1 ,RES1 Cl *CA TASWI 
■GO‘ TO 1 ISO 

C CCMPUTl OR L I T FOR OROJT GENERATOR RUNS OR CALCULATED OBSERVATION FOR. 
C MEASUREMENTS -C T H £ R THAN VLKI C AVG RANGE RATE 
UCC CALL PKilCCTC ISM, l:AYl .C ESI Cl . K££ ID2.3ATASW) 

C C ALwULAI L UTC DATE 6 TIME CF C-P SEP VAT 1 IN OR EMohE'^RIS POINT 
l 1 SO CALL O AT L £ ( OA Y1 , I V MC , I HV , EEC ) 

1F{ OKU lb* iOk, CAT ASA' } GO TO 1600 
NED 1 T 1 -O 

NlD i T2- 0 ’ ' " :r " " ~ r 

IF ( MT YKE • GT . 1 A . ANO, MTYPE* LT« 27 ) GO TO 1450 
IF (* NLT * L INNER) GO TO 1 A 5 0 
• 1 K ( N S T l^T • L E * C ) GO TO 1 * E 0 

C SET PAR A ME Tr. ^ NUMBERS FOR ADJUSTED STAT IONS 
W UIC 1*1.2 
PA^NLTj t Nf ARM- ?■» 1 ) = 0 
PARNUS ( N f- AA v— £ 4 I ) =0 

IF< 1 ST A * L c • t-. S T E S T ) P A R NO S ( N P A R N - 6 + I ) = STA NO S < I # l S T A ) 

IF ( MT YFc « LT, 27) GO TO 14 10 

IF.t C HA NEL «LE , NS TEST ) P AR N 05 ( NP ARM - 3 + I ) = ST ANO 5 { I , CHANEL ) 

1410 CONTINUE 

14 EC IF {, NOT. FI TER) GO TO 1460 
LAYS T A = C A Y 1 

C PEi.RiTL CORRECTED MEASUREMENT S ON C»A» FILE ON FIRST INNER ITERATION 
C OF F I AST ULTLH ONLY 


CALL 

IF( . NUT , ( £ I v6 fiT , AND.m ITFR n G Q TO 1460 
C IF 6 I t-iUL A T i: U CAT A REQUESTED OUTPUT, WRITE CALCULATED 00 S3 R VAT ION ON 
C UNIT 17 CN FIRST INNER CF FJPST DU T L R ONLY 
IF [ MT Y PE • C T , ! a 1 «CSID2~C,CD0 
luj I V 1 sUtiDl- F< c S I D 1 


L 5 S 1 n .2 - J 6 £ 0 2 
1ST A2=CnAFEL 

lrtMTYPi . CT . 2C ) CMA NF.L = I S TA M 3 ( CHAN EL ) 
IF ( w. T V F C 4 L T • 1 A| nns I ^*2=0 USD 2-RES JO? 


A A T I — * F /LSE • 

IF ( M T Y Pc « N* • ?. *ANO. mty° t • Nl- • 3 ) CO TO 
SATSA 1 - k. K S A T , GT , 0 , AND, KKSAT ,LE ,N 2 AT 
1 F ( • NL T * o/ T S A T ) GO TO 145 5 
J — K K S A T 


REPRODUCIBILITY OF THE 
UKfelNAL PAGE IS POOR 


KKSAT = I oA I ID ( K^SAT > 

CoS I '-‘0 -JE £'J 3 
1 4 c 6 n = J ST«n w ( ISTa ) 

Tc< 1 > ) I Y vo, I MM . SEC , 0 USIM I , C 3 MM 2 , SI Cl . S I C 2 • K • MT YP£ , NMc AS t 
• i S A T I u ( I > 4 T ) , SR F NO X t CHANl l. 


= i £ lAc 

IF( i AT 2 m 1 ) Kk sat ■ j 


C CFLLN r ■ J n CL^VATICN CU T CF r 
1 4 SC I F ( L v ( 1 5 A T > . r,~ , ' LCUT ) GO TO 1 Af *■ 
.Slot : u »oLC 


1 NON 392 
iNDN 3? 2 
l NON 394 
1 NON 3~>5 
1 NON 336 
1NGN 397 
1 NON 29 F 
IRON 399 
l NON 40 C 
l NON 401 
1 NON 402 
1 NON 403 
1 NON 404 
1 NON 405 
1 Nf IN AO 6 
l NON 407 
1 NON 40A 
l NON 409 
1 NON 4 J 0 
1 NUN 4 i I 
1 NON A 1 2 
1 NON 413 
IN ON *14 
1 NOH 415 
IN JN 4 16 
r lNON 4!-* 

1 NON A j A 

1 M A 1 ^ 

l NON 420 
1 NON 4 2 1 
1 N ON 422 
l NON 4? 2 
t NON 

INJN 4?5 
1 NON 42 6 
1 NON 427 
1 NON 435 
1 NON 42 9 
IN ON 430 
1 NON 43 1 
1NON 432 
1 NON 433 
IN ON aja 
l NON 435 
l NON 426 
iNDN A 3 ~t 
1NON 4 3 » 

1 NON 4 3 C 
1 NON 4aq 
IN DM if,] 
INON 442 
IN ON 443 
1 N JN 4 4 4 
1 NTN / t 5 
l N ON 4 4 6 
1 NON A4? 
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if< NMt as . ct. i ) sic?=o*cco 

1465 IF (MT\ PE ,LT. 27) GO TO I 4 ^ C 

IF(RANCjT (l).LT.FLCGT) SIG 1 =C« CDO 

147 0 1 GC TO 1^01 

If (L INES • tO, 0 ) GO TO 1455 

1FC MOO ( U I NHS t *2 I *.NE # 0 ) GO TO l£00 

WRlTc < GUTF . 10 101 ) 

NPAGL-NPaC^ 1 

1 4 = - V.Kl Tl < L-J TP, 1 0 100 ) ARCN9 * I NNER , CUTER . S’PACc 


1500 

J F( Muy ( L 1 NT: 5.6) 
L lUcS=L I.S ES-I 1 

* EO • 

C ) 

;,A I TE < GU TP . 1 0 1 02 > 

150 1 

If {NLu lAb.LL'.C) 

GO 

TG 

7000 


C SET lNOIC^TOKS Far ELECTRONIC bias extraction 
tJ bOOO I S 1 « NEP1 AS 

1F( l5TA«Nc«L'*:ST\0( 1 ) J GO TO 60 CO . 

IF ( MTY PE • lQ* BE TYPE ( I / ) CO. TO 5 CDO 
Ir (MTV FE, CT.7 ) C.Cl TO 6CC0 
lF(HTYP'<7.Ni.ticTYPE( IM GO TO £000 
KED 1 T2 = I 
GU T 6) c G C C 
5000 N20I T 1=1 
60 C C CL.xT I.NUE 

7CCC IFt^uIAS.EO.OJ G D T D 15 26 
C SET i.'OICrtTji<S FOR BIASES £ TIMING BIASES 
GO 1502 1=1.3 

15 02 bSNOX C 1 J = C 

I F ( M l V Pi * CT > U i'4 n 1 ) . VT Y , l;T , ?7 1 CQ TH 15 PS . 

i r in f— f*C 

IK I ST A > NE-.bSTANOt I ) ) C-C VD 15 20 
II =OYT Pc (II 

ifin.to.c) gc to i sea 

1F( MTV PE* C-T , 2c .AND. f'TYFE* EO. I 1 1 GO TO 1503 
' IFt M TYPE .N" .( II- ( I 1/5 ) *71 ) GC TO 1520 
I5C3 1F(^AYSTA«LT .ESTP t ( 1) ) GC TO 1 £ 20 
IFOmYSTA ,GT *LSZNO( 1 >> CO TO 15 20 

I l = I N r* M r\ Ml 

IF( 3 Y 7 P=(I)-MTYPE) 15 l 2 * 15 l 3 tl 514 

isu n.ox=n 

ME A 5 T .- = .*1 1 TP 

If ( MT YHc » Lr« 1 A) TDAR 1 = CFSCCT ( MEASTP, I ST A, TPARZ > 

Gu T U 1E2C 

15 12 91:0X1 = 1 1 * • rT , Trr , 

GO TO u:c REPRODUCIBILITY OF THE 

1S>- gi.jgx2=ii ORIGINAL PAGE IS POOR 

15 2 0 CJ < T 1 NL E 

If ( MTYPu «Cr ♦ 1 A ) GO TC 1525 
CJ ! 52*1 1 = 1. K 61 AS 

IF( CHANEL .NL « F£ TAfJ'.i ( 1 ) ) GC TO 1524 
IF <*JYTPZ < 1 > OlF.O) f-n TC IS24 
Ir ( JAYST A*L T . CSTRT < ! ) ) GO TO 1524 
IF( OAYST A .GT . LSEND ( 111 GO TO IE 2* 
l +No4T 

b l =>■ 3 X 2 = 1 f» F A f: I *1 
FA..Nbj{Nf /-M-f ) =6 1 NOX2 

R£ j I D 1 = .< 2 £ 1 *' 1 -'••vxc ( NR ,U- 3 ♦ l } * 0 'i 3 AS { J } 

T.'Ak 1 = .* i P > 3 < M if ♦: . 1 ) 


1 NON A A3 
1 NON 4^9 
l NON 4 SC 
1 NON 451 
l NON 4 5 2 
1N0N 453 
1NON 4 54 
1 NON 455 
IN ON *56 
1NON 457 
l NON 45 5 * 
IN- IN 4 5R 
l NON 460 
1 NOM 461 
1 NON 462 
1 NON 453 
IN )N 4f 4 
1NJN 465 
1 NOM 4 66 
1 NON 4f,7 
1NON 4s6 
1 NON 469 
1 MON 4 _T 0 
rn*j 4-^1 
1 N)\* 4^2 
1 NON A-* T 3 
1NJN 4 7 A 
IN 'IN 4 7 5 
1NGN 4 7 £ 
1NON 47 7 
1 NON 4 7 6. 

1 NOV 4 74 
1 NON 4 6 0 
1 NJM *il 
. 1 NO N 4A 2 
1 NON A. ?.2 
1 NON /“A 
1 NON 455 
I NON 4 36 
1 NON 4 p 7 
1 NO N 46 p 
l N ON 639 
l NON 46 0 
1 NON 49 \ 
IN JM 402 
I N ON 493 
JNON tf-t 
1 s JN 4 06 
INON 496 
l NON 607 
l NON 40 J 
1 NON 4 ? 9 
*UATI 5 20 
1 NON SOI 
IN ) M 5^2 
in.yi 503 
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GO TO l 52 z 
1524 CONTINUE 

C S*T PALAMETtih NUML':.kS FO^ FIASES 0 TIMING blASES 
15 2" PARNuS ( ,\p ARM- 7 ) =0 I N C X 2 

PArtNGS ( NFARV- C ) =T I NOX * 

FMPXCt NPAF.M-6 . 3 I =TPAR 1 

c correct kesiclals r OR current value of biases c timing oiases 

Ir ( U I NC X 1 « GT * 0 ) »£ S I 0 1 = F E 5 I D 1 - PR I A S { B l NDX I ~ I NPA Rl’+NSAT3) 

1F< T INCA* CT . 0 ) *'£SI D 1 = R T- 5 1D1-TPAR1 K J ti I A 5 C V I ND X- I N’PA R I + NS AT 3 > 

IF ( NMcAS « 50* 1 ) GC TO 1526 
P.VPX01 NPAFW-E .2 ) =TP AR? 

IF (bINLXI « GT . 0 > F.ESIC2--CSID2~E3IA5( 3 l NO XT- 1 NPA R I +N 5 A T 3 ) 

IF ( T I fOX • GT * 0 ) RhS I D2- RF S IU2-T FAR 2*.-.»L- 1 A S( T I NDX- I NPAR l + N5 AT 3 ) 

C CCMPOTE RAT ICS TO SIGMA S DETERMINE IF Mr. ASbREMLM EDITED 

1525 RAT1U1-0.C0 

EAST l = c.mK 

lr ( 5 IG 1 « \!r • 0 » OJO } K AT ! Cl ^CABS( F E S I U 1 / SIG1 ) 

1F{N£uIT 1,2Q»0« AND , P ATI CI*GT. EDIT) S I G 1 =- S I G 1 
IF ( NLO I I 1 iGT » C i EAST J = NCEDI T 
lr(SIGl«L7.0*CD»EASTt=ASTKSK 
1 F ( S I G 1 • E C * G * 00 0 ) N F D I T 1 = 0 
IF ( NM*_ AS • iC > 1 ) Gj TO 1 52 S 
RATIO*.’— O • t. 0 
' EAST 2-tLAFK 

|F(S IOt. M: • 0* ODO ) R A T J C2-CADSI RFS I D2/S I G2 > 

Ir ( NED IT 2 .fOi 0. AND* RAT IL‘2*GT«ECIT) S1G2=-5IG2 
• - . I E { j 1 I i . GT. « C ) • b A C 1^2 N C E D I F 

IFiiw2»L i«0«Li/)LAi) ( £ — A S 1 R SK 
IKbjlGi.tt.OiOOO) NED I 72 sC 
J=r1TYFc+7 

C SUM «ISILUAL FOR SECOND MEASUREMENT INTO STATISTICS 
CALu S1 m1NF(2»ISTA.J,SIC2»RESIC2*P* I SAT.P) 

MlN^c.X-M I ND3X + 1 

C SUM (<>. jiOu».L E PART 1 A L S FCR SECOND MEASUREMENT INTO ESTIMATION 

1F( S1G2.GT.C, C0C.VNOfN c CN( !SaT ) . GT, 1 ) CALL C ST I M( 2 i SIG2.RESID2, 

« PMPaO ( 1 * 2 J > 

C HENGVL El_CTRCN1C BIAS COMPONENT FROM STATISTICS 0 ESTIMATOR FUR 
C SECOND M t ASUS cMf’M 

l F ( N £D I I 2 • G T • C ) CALL OSCC MP ( NE C I T 2 ♦ R u 3 I 0 2 « 5 l G 2 * D A Y 1 , P V P X 0 I 1 *2) « 

* L INNER ) 

JF (MTYF2 • zC * £ iP?»MTYP£ »F.C«5) GC TO 1 529 
uUi02 = U’.«C2/PAD 
fiLS 1 D2-R t 5 I D2/R SEC 
1 £2? J-MTrpE 

IF { Nt> J AS ■ NE * 0 ) PARNOS(NR-ARM-7 ) - SIND XI 
I S T A 2- C M A F EL 

C SUM K-.blLUAL FOR FIRST MEASUREMENT I Nil STATISTICS 
CALL bTAI.\F{ 2 . 1ST A. J. S IC-1 *R=.SICt ,P. I SAT . i 3TA2) 

MlNDcX-M INDEX* 1 

C SUM tvL^itwAu E P.XRTIALS FOR F I R ST Fp A £.,V<r M.\ NT l NTi] EaT] MATIUM 

IKSIultll.C. COO. AND. NFC N( IS AT ) * G T, I ) CALL £ST I M( 2, SI G l ,R C SI3I t 

• HMPXO) 

C ELi-CTRCN I c TI AS COMPONENT FROM STATISTICS t ESTIMATOR FOR 

C F I >o T '-I; AjUKi (*;’• )' 

IK l N L n ! I lifT,C) CALL USCOVPCNECI Ti.MESICl . V J I ( j 1 ,OAYl , OMPXO . L I NN-O 
IFlNjFhrtlJ GO T C 1500 


REPRODUCIBILITY of the 
ORIGINAL PAGE IS POOR 


1 NON 
l NON 
1 NON 
l NON 
t NON 
1 NON 
1 NON 
IN IN 
1 NON 
t NON 
I NON 
IN ON 
1 NON 
l NON 
IN UN 
I NON 
I NON 
I NON 
l NON 
1 NON 
I NON 
INON 
l NON 
l NON 
I NON 
1 NON 
INON 
l NON 
INON 
INON 
INON 
INON 
INON 
INON 
■IN ‘JN 
1 NON 
IN JN 
INON 
1 NON 
INON 
INON 
1 NON 
INON 
INON 
■INON 
l NON 
1 NON 
I NON 
INON 
INON 
I NON 
IN JN 
I NON 
1 NUN 
l NON • 
1 NON 


5CA 

505 

CDS 

50 7 
505 

509 

510 

51 1 
512- 
5 1 3 
519 
515 
51 5 
517 
51 0 

51 9 
£20 

52 1 
522 
5 2 3 

52 A 

525 

526 

r.p7 

526 

<> *1 Q 

5 30 

53 1 
532 
5 33 
5 3A 
535 
535 
537 
5 3 r. 
5 35 
5 AO 
5M 
59 2 
553 

5 Ad 

545 

S*-7 

5 A P 
5AC 

55 0 
551 
55 2 
553 
5o£ 

5 55 
5^6 
5 5 7 
5 5 F 
5-“^ 
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SAT $ AT = » f ALS5 « 

GO’ TO ( 1 £<<0 • 1 5&0« 15E5t 153£« 153C il 5*0« 1S40) »MTYPE 
KsHTYPl-M 

GU TO ( 1 SeO . 1 56 0, 1 5 e& , 1SSS , 1 56 6 , 1535 . 1 580, 1 2 00, l^SO. 1250 , 12 5C , 

• 1 260 . 1 220 , 1240 . 1 565 . 1 565 ) »K 

C CCKVtRT UNITS OF RESIDUAL C OBSt R V AT I ON OF PAIR5C MEASUREMENT FOR 
C OUTPUT ONLY 
1 c 2 0 Cast! l = Cr»S£l *1 CCO.OO 
GtSSU2 = CoSC2* 1 CCO.DO 

R£sll)J=r<i:£IOMlOOO«DO 

RES J 02 =R£SIC 2* 1 000 , DO 
GU TC 15cC 

1*235 CoSOl-CdSCl* 1 oOD-3 

kdb J 02 = k t S I D 2 * 1 C 0 » D 0 
GuTUlj>6C 

X 5 4 0 Co£>U 1 =Q3SCl/R AO 

k£5I OlsMcSlC l/KSEC 
155 0 l«-MIi,0">-2 

C PRINT RESIDUAL 6 CdSERVATICN FOR PAIRFD MEASUREMENT 

At* ITcltiUTPi 1 0 1 C 3 ) I YMD . 1 HJ*. SEC « I S A T , N AM E { ISTA) . A TYPE ( M TYPE ) ,02501 

• RLb ID 1 iRAT IfJ 1 .£ A ST 1 , A T YP5 ( M T YP£+ 7 1 , 00 502 , RES I D2 , RAT I 0 2 , E A 5 T2 . 

» tLtV( 1£AT ) ,1M 

1F< » NOT. f- /RTGF ) GO TO 1£00 

JF ( 5 J G 3 • G 1 . 0 • ODG ) W 9 I T 5 { 0 UT P « * C 0 C 0 ) PMPXO 

IF(SIG2,GT«,C* CDO J W P I TF ( OUTP * 4 £00 0 ) ( PMPXQ ( J » 2 ) ,J = 1 « NPARM ) 

CO. TO lo.CC 

C GCNVEET UN : T £ RESIDUAL D 0P5E PV A T I CN f jF ywpi idP[) MFiSijuFuPsiT Fnp 

*■* rtr Tr i v ns-i v 
M W 4 f ft# » U M«- I 

X 2 C C GGSOl =OU£C 1 * 1 .006 

flc’Sl =KESIO 1 *1 .006 
C-C TO 1 5 3 C 

122 0 COSO 1 = Cc SCI - 1 .00 6 

m c_ 5 I 03 :, \C ; 1 O 1 *1 * 00 9 
GO TO loSC 

124C - OoSO l = Co£C 1 * 1 *CD4 3 . 

Hcsiui=^ceioi*i,oo46 
GO TO 1 5 ? C 

12SC uPS'Jl -CJSL1/DRAD 

KtIbI0i=RcSI01 /DR Sr. C 
Go TO loSC 

1-38 0 COSO 1 sCj SC 1 * 1 . CC-7 
Go T*J lice 

153 5 RE 5 I 01 -h£i ID 1 * \ 0 0. DO 
1535 SA 1 5m f=K* cAT . GT . 0. AND. KKS AT .LE ftNSAT 

15 30 |M*-IIf.L£>-l * 

SNAMu= FCc 

iFflbTA.NE.ftO> S NAME -NAME ( 1 ST A > 

C PRINT Hr.iiiJAL C CrSE'VATICN FOR UNPAHcD MEASUREMENT 

mJTi ( -JU TP , 1 0 10^ > 1 WD , J h v , SEC . I SAT . SNAME . AT YPR ( MTYPE } . 02501 , 

• R c. o I O 1 .« A T 1 r 1 » A S T 1 , F L E V < 1 S A T ) . I M 

IF IMTYPr. .Cl . 2£ ) GO TC I 0 a 2 
1 r ( i A T b A 1 } * H 1 T C l 0 U T P , 4 ?C 00 J K K 5 A T 
GO Tj li c . c 

15 52 n-v TyPc-2c 

Go TO ( 1 t SA . 1 6‘4 , 1 656 , 16?<: 1 ,K 
l OS •* t.KlT L (Cult . --7 100 1 5 NA vc , N Avt{ CHANf.L ) . « A !\P J T { 11 


reproducibility of the 
ORIGINAL PAGE IS POOR 


1 NON 

56 0 

1 NUN 

561 

1 NON 

562 

1 NON 

5 63 

1 NON 

56 A 

1N0N 

555 

I NON 

566 

1 NON 

56 7 

1 NON 

56 3 

1 NON 

66 R 

1 NON 

570 

i NON 

57 1 

1 NON 

572 

1 NON 

57 2 

1 NON 

57 a 

1 NON 

575 

1 NON 

576 

1 NON 

577 

1 NON 

57 £ 

IN ON 

679 

! NON 

5 8 0 

IN ON 

5? 1 

IN DN 

5 32 

1 NON 

533 

1NPN 

5V- 

1 NON 

5 35 

1 NTM 

5 A A 

% MOk| 

CQ7 

1 NON 

6 ? ? 

1 NON 

5 S 9 

1 NON 

5^0 

I N ON 

59 1 

1 NON 

CQO 

1 NON 

533 

1 NON 

5.5 & 

1 NON 

595 

I NON 

596 

1 NON 

597 

IN ON 

575 

1 NON 

599 

1 NON' 

60 0 

1 NON 

60 1 

1 NON 

602 

IN ON 

60 3 

IN )N 

6 0ft 

1 NON 

605 

1NON 

606 

l NON 

607 

1 NON 

60S 

1 NON 

60 9 

1 N JN 

SI 0 

1 NON 

61 1 

1 NON 

6 1 2 

1NON 

£ 1 2 

I NON 

f. 1 *■ 

1NC)N 

S l 5 
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GO TO 15? e 
15? c J— K— t ■ 

KM TE ( O'J T Pi A V 2CO > J *NA f/f. ( CHANEL ) .PA.'MDOT ( I) « 

15?t 3 IF< PA^TGF ,ANt.SI G1 .GT. O.OCO 1 W F I TE ( OU T P , 4 SO 0 0 I PMPXO 
16CC CAVO-wAY 1 

1F( • Nut. PLOTS'* ) GO TO 1610 
IF(OATASK) GC TO 1620 
C WR 1TE J1NAAY AcSICUAL T AP^ 

INET=0 

IFIISTA.OT.O) 1NET = I ST A NO < 1 ST A 1/100 0 
Js^TYPi. 

s AT i 1 — OL3iL.Gr { J < I ST A ♦ R A T 62 ) 

URSfC- SE c 

JF ( s 10 1 #Lr«Oi C^O ) PATipi-C.CDO 
!F(SlG2*Lt* 0*000 ) RATI C2= 0*00 0 
fcKSI 01 ( 1 )-R6S 101 
ewSl C 1 ( 4 l-SAT 101 
, faKSIDl(2j“"A'lUl 
CkSI Oc < 1 ) =• p S I L) 2 
t«S102(2 )=RAT 102 
fcntSl C . 4 * < j ) GRAVES 

WHlHtPLCTP) I yv o , I FM. cosrc ♦ NA V6( I S r A 1 , ATYPu ( MT YP6 ) . 0:3 SOI » BR3 I D 1 

• UbSG?. t f.RS 1 C2 « EL 6 V( I SAT 1 , INE 1 ♦ « AN DOT « p t'-'C’ , jT 

i e i c co.'jt i n l w 

IF.Co NO C«. CfiOS’A' ) GO TC 1620 

C WRITE G-t OU NO TRAC < TAPE * 

ITU C‘< 0 TR « 1 G 1 £'.~* ) i Ou • i r/, SE C * N AMO. { I 3 T A ) * G ;.7 L A T ( I ; AT ) t 

• ' SAHCMISAT1.5ATHUSM » 

. 1C2C I F ( • NLi T * i A T S‘« ) GO TO 7 CO 

iaK^c C— S c C 
C WRITE KV TAPS 

IK(tVlP.C-T.O)' aQ I Tf. ( R VTP) DAY1 » I Y VO « I HM , OR ST. C . ( XYZEND (1*11.1 = 1.6 
. SaTLhT (1 ) . S ATLCN ( 1 ) • S A 7 H < 1 ) 
iF(LlN-S>*GT*C)GC TO 1C60 
' 1F( X YZTR *F~.0LTP ) WRIT* ( XY7TP . 1030? ) TITLE 
lP(f.£i»LCr) '• IT 6 ( <PLA T°i 1 0 3 0 2 ) TITLE 
XtzO IF ( { ■_ I h c - GX . ' r< ) * N L' • 0 ) GU TO 1675 

».M T^ l a Y ATM , 1 C2C0) A=?C MT . INNER .HOT li.N^AGD; 

Ir (XdPLiih ) I ; ITC (X p L p TF i A»C'f) i P< f E 'Y .NPAGEX 

<mPAGlX=nFPG‘:x-» 1 

16?j 1M'‘!Uj(L IMSX.f I . E 0 • 0 ) *AITE(X>ZTM.IC132) 

c WRITE CAr<Ti.SiAN E CHFF.FR IS 

KfdTiiUYZFFp l C3C 1 ) I Y*-' C . I HM , 5E C » ( X Y L 6 M’ ( J . 1 1 ♦ J- 1 • 6 > « S ATL AT ( 1 ) « 

• SATLGN U ) . SATM( 1 1 

Ir < . N JT « < C-C T 5 * . AND. SI NGAT .ANO *=>C CSI Ml ) GO TO 1630 
CJ lu2 6 1=1.6 

II = 1 ♦ i v 

C WOUl CaMESI*N PCF. SIMULATED DATA ON , J'(I T 17 IN ORtllT GENERATOR 
c MCEE only 

1623 /.N l Tc ( 1 7. 10-C 0) II . IYMC . I HM, SEC .XY^M'I I . I > 

J(?C UTMiAT.Ll.?) C.n TO H’C 
00 1 c I - 2 » N i>A T 

L J N 1 5 X = L 1 I 1, 1 

■* . ' i T E ( A V 2 l • J » ) 0 . • 0 A ) { XV 7ENCI J . I > • J =) . v) . SATi AT< I ) . SA TLONt l 1 » S A T H ( 
L ( 'J- •3\=Ll tv *-:XM 
IF l « N .. T . F c R J GO TJ 7CC 


1 e/.J 

1 c 7 J 


INON 

616 

1 NON 

SI** 

IN'IM 

61° 

1 NON 

1 19 

1NON 

620 

iNON , 

621 

tMON 

6 22 

INON 

623 

iNON 

£ 2 a 

iNON 

625 

INON 

6 2 6 

1 NON 

627 

INON 

£26 

INON 

6?S 

iNON 

630 

INON 

62 1 

iNON 

632 

IN JN 

633 

INJN 

63R 

INON 

635 

INON 

6 36 

, IN JN 

637 

IN JN 

53? 

IN ON 

£ 3R 

• INON 

6 AC 

IN JN 

6 A 1 

1 NON 

FA? 

1MHM 

f- A ** 

INON 

6 ‘* A 

INON 

6^-5 

INON 

6A6 

) , IN ON 

C f *7 

1 NON 

frAf! 

' i NON 

6 A Cl 

iNON 

esc 

INON 

6 51 

t NON 

652 

1 NON 

653 

* iNCJN 

r SA 

INON 

* r- 

INON 

( Cf 

INON 

6S" 7 

t NON 

65 6 

• INON 

e 5 5 

I NON 

t 50 

i NON 

6 6 1 

INON 

6 62 

INON 

*6 3 

IM IN 

6 6 A 

1 NON 

£6 5 

1-ON 

6 66 

JNON 

6 67 

INON 

;a a 

: I ) 1NJN 

r. ' 

INON 

A. -» 

1 NON 

6T J 
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C fcRITE K£PlL« £PH EMERIS 

iK(MGL(L Jh6*JX«M .FO*NSAT) WR 1 T E ( K PL R TP , 1 0 1 0 2 ) 

CU 169C J-l.NiSAT 

CALL cLi: V (XY 7. E NT ( l t J ) * At 1 • 2 « * F AL$E • * P J 

DO 1 OoO 1 = 2* 6 

12—1 — a- 

16^0 CALL OUT R rD ( AF. ! NPM ( I ) I DEC- ( I 2 ) ».M I N ( I £ ) » SECA ( I 2 ) « 1 ) 

1F( J.Nt. 1) CO TO 168 5 

WR I T £ ( kPL ri-T P , A a 4 C 5 ) I Y V C i I H M , S E C ♦ ( 4 e I N° M ( l ) . I 5 1 • < lCcC.( IJ » 

... ft MI N<1 ) • S E.C 

IF( PCcS I M *0*5 • *NOT» { CRGTSW »ANO. S ImDA T > ) GO TO 1690 
C WRITc. KcRLtR F-CF SIMULATcD DATA ON UNIT 17 IN Oh'OIT GENERATOR MODE 
C CNLY 

Du Io<t0 I s lii 

IF(I.GT.£! A£ INPV.( I > = AEI NFM{ I > /DRAD 


11=21+1 . • 

1 £ A 0 vwHlTcC 17 . 106CC) 11 . IYHO,lhW,SEC.AElNPM(I > 

GO TO 169 C 

1695 V: k I T c ( K - 5 L f- T P t A t. A. n G ) (AFlNpy(l)*I=I..i)*(ID EG C I ) i M I N ( I ) « Sc C A ( I )« 
• l = i i J 
1 c ?C CCnTINLL 
GO TO 70 0 

C SUMMARIZE I i J F C p M- A T I ON DERIVED FROM ITERATION 
20 CC IrCJRtOyOGL' TO 300 0 

IF { M INuE X ,EO * 1 * AND* COKE 1 * C-T - 0 * CO ) GO TG 30 0 0 
I F { M ] N J £ a « z O • 1 ) C A L L ’ P K Q F t 4 , C A -9 0 1 ) ) 

•IFt Nz»j 2 * 5 *GT * n i CALI p 5.CO "P( 0 . P ES 1 D 1 » S 1 G 1 t DA Y1 , r »MRX 0 . L INNER > 


IF{ ,nJT . NCP^NT ) URITFCCITF, 101C1) 

C SUMMARIZE STATISTICS FCO ITERATION 

CALL sur--..v FYl ACCNO, I ts N C P » CUTER . L INNER .EDIT . NAME 1 
IFtMr.OM 1 l.t'l. 1 ) GO TO 3C 00 
C LIST EPOCH AND LAST ELEMENT SET 
DU 2 4 4 C 1 = 1.12 
OfirtEL M I . 1 )=OFFELA( 1 . I > 

2 4 C CRji.LA ( 1 » 1 )-nL r _MST( I « 1 ) 

CALL c5TIM3.F.P.°) 

CJ 24 7 C L = 1 . N S A T 


IOUT = 1 


JrC SAT 1 I O U T = 2 
CO 2300 1=1 , 1 CUT 

lUNl T= I T APE ( l ) 

‘ *9 I TE ( UNIT, 1 Cl Oi ) L » A PC NO . INNER * O-J TER. 1 EPYM!)» I EPFM.cPSEC 
W Kl Te < l.JMT. 1010 3) APR 1 Cj4 ,EL AN * , ( eL-M IN< J iL » . J~ 1 « 6) 

230C #..<ITcllUNlT.lC10‘) PC E V * EL ANK * ( OOF £ L A ( J . L I * J ~ 1 » r> > 

c save uld hcPllti sn elements and compute standard Deviations 
nMSDGS ( t ) =0* DC 
AM bP^S ( c ) - 0 » DC 


I 1 s.j * ( L- 1 ) 

IliIlHAi.i M -l 1- I 1+ ( I 1- 1 ) / 2 
I6=o*( L- 1 > 

DO L40C 1*1*0 

I I - » ♦ i o 

12= I 1 ♦ i I 


„m ! ™>i:‘'n ,, "' ITV 0F T'! E 

XU PAGE K 


1j-I ♦ { I - 1 J / 3 

rM.Vus (ID i - ^ SKiSC I 3 ) ♦ £L W 1(12) 


1 N'JN 67 2 
1NON 673 
t .NON 6/A ■ 
1 NON 67 S 
1NON 676 
I HON 677 
1 NON’ £73 
INGN 6 7 9 
* NON 6 30 
1NCN 691 
1 NON 682 
l NON £33 
t NON 6 34 
1NON 695 
l NON £06 
1NON £97 

1NON cec- 

I NON 699 
1 NON 69 0 
2 NON 69! 
1HOM 692 
1 NON £9 3 
I NON 6 9 A 
I NON 6 95 
1N.TN 696 
JNOM 65^ 

1 NON 69 5 
1 NON 699 
l NON TOO 
1 NON 7 n 1 
l NON 702 
l NON 7 0 3 
1 NON 7 0 A 
1NUN 705 
1 NON 706 
IN ON 707 
1 NON 705 
1 NON 709 
1 NON 7J C 
1 NON 7 1 1 
t NON 712 
1 NON 7 13 
1 N ON 714 
1 NON 715 
1 N ON .7 l 6 
1 NON 71? 
l NON 710 
1 NON 719 
1 NON 72 0 
1 NON 721 
1 NON 722 
l NON 723 
1 NON 734 
ISIJN 7 25 
1 NON 726 
IN ON 7 27 
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' IFISU«1( IJNLT.O.OOOJ VAI TE (OU1P, 4 5000} II 
SOtlL EM ( I i=()ilORT(r’ACi5( Sl.v 1 { I 2 ) ) ) 

2400 Il = lHf'JIf'-!I - * 

*V.5POS (] J=OSOCT(DADS(CySPC5( I ) )) 
hMJPCj ( 2 >=DSCFT ( DAHS(R VSPCS( 2 ) U 
PV:<MS ( 1 I l ) = RF5> J 03( 1 ) 

PVHMS( 2 * L ) = r^S?OS( 2 > 

C CALCULATE Al-JLSTEC ar.MF.NTS IN THE FORM OF K.CPl.ERlAN ELEMENTS 
CALL LLc. M 5l F^ST ( 1 . L > » C A B E L A ( 1 .L ) . 1. .FALSE* . P ) 

CL. 2470 I - 1 . £ 

24 7 C CK3D IF ( I ) -uRLELA ( I * L )-ORFLLP( I .1.) 

C LIST CJKiVHCrEC EL EVENTS ANC UNCERTAINTIES 

VvR I T L ( GU TP* 10109) A D JL ST . CLA NK ,(tL-MST(J»U * J=l .6) 

J1 = CL- 1 )*€♦ I 
J2= J 1 + 5 

WKI TcluU 1 Ft 1 0 109) CHANCE.. FLANK -. BLANK . {DELTA! J) • J = J 1 v J 2 } 

*RI T£( CWTP-. 1 0 109 > S D * S PE LEM 
*KITi£{UUTF, 10 1 l 0 ) RVSPCS 
»RITc(CCTF,1011=> 

fcr<lTE(UJlP.10UE) APR I CP. BLANK . ( OR. TEL (J.L).J-l v 6 ) . PRE V . UL A N K , 

» I OkBcL P( J . L > . J- 1 .R >. AD JUST . BLANK .( UR BELA < J. L ) . J= 1 .6) .CHANGE. 
« tiLARK , BLANK . UPP.D I F 

24 7 E wR I IF ( oU 1 R , 1 C 30 3 ) L * A P C NO . (ELEPSTtJ.L ) » J = l .6) 

IF ( I NPrtA 1 *E U » { f “ MSA T ) > GO TO 2 5 03 
C UFLATE £ PRINT ADJUSTED ARC FORCE PODi.L PARAMETERS 
ftfti Tv. ( OJT:- . 1 050 1 ) A PC N 0 *•' I NMDSV CUT EE7 

I i - n 

* 4 ' J 

uu 2 L ‘y C I ♦ * ♦ 3 

CO 2640 L= 1 . N S AT 

IF- l ALjA ( L . I I .LE . 0) GU TO 2f4 0 

12=11+1 

IF (Mu. ( 1 1 .AS i .EC. 1 ) VP I7E <QUTP , 1 0520 ) 

IF(L.EC.l) .vP I TEC DU TP, 1C1 02 ) 

J=a 0URCL . 1 ) + o * S A T 
■ J1-1MDXNL ( J ? ♦ J 

JM.LT.O.rDO) VR I TO ( OU TP , * SO 1 0 ) L.DRAG(I) 

S I G 1 =0 - 0 h T { 0 A F S ( S J AM ( J 1 ) ) ) 

Cj(L . 1 ) =i:C I *S t I * 3*( L- 1 ) 1 

* » '< 1 T C ( O J T F « 10505) L . DR AC,( I ) .DR AGO (L . I ) . CD ( L » I ) . DR AGSG ( L » I ) . S I G 1 
Zi AC CJNT I NU- 

1 F l I l « CT * C ) I1=5*NS4T 

IF 

Nl 

so 2 joo i = i * n gp a 4 c ORIGINAL PAGE IS POOR 

u = ii+ 1 

IF (M'JD < I 1 .6 > * NS • 1) GO TO 2650 

1FIN1 ,N_.C.ANC.MD7t I 1 . AS ) *N£» 1 ) GO TO 2645 
K 1 = l 

TEC UUTF ,10620) 

2c AS a 4 1 T 6. ( C J T F . 10 10?) 

Zi EC J= I.nDaCS ( ] * I ) 

N=li , + v>>. CSli.l) 

VsI.nJxCjIE.I) 

O-GpVAlI U*-GRSIG( I ) 

C.:-D'VAlC li ) *C.'S IG( I ) 

Ir ( J * _ c • I ) C 5 ( N ♦ •:« 1 ) =C 1 


( N GP A~< L #L E • C ) GO TO 
= 0 


0 3 


REPRODUCIBILITY OF THE 


1 NON 723 
INON 729 
INON 730 
1 HOM 731 
INON 7 32 
IN ON* 73 3 
1N0M 734 
INON 7 35 
l.NON 7 35 
l NON 7.37 
INUN 733 
IN ON 7 39 
l NON 74-0 
l NON 7 A 1 
1 NON 742 
l NON 74 3 
INON 74A 
1 NON 745 
1 NON 7.'-6 
1 NON 747 
1 NON 7 4 f 
1 N JN 7*9 
1 NON 750 
l NON 7 51 
INUN 752 
INON 757 
1 NON 754 
INON 755 
1 NON 756 
1 NON 7 5 7 
1 NON 75 e 
IN JN 75 A 
1 NON 760 
INUN 761 
1 N ON 762 
l NON 763 
1 NON 764 
1 NON •’65 
1 NON * r 56 
1 NON 7 67 
1 NON 765 
iNDN 769 
INUN 770 
I NON 7?1 
1 NON 772 
J NON ^’3 
1 NON 7 74 
INUN 775 
IN ON 776 
tNJN 777 
1 NON ?7& 
1 NON 7?R 
1-VON 7 AO 
INUN 751 
1 NON 722 
IN )N 72 3 
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lF(J.cG.2~) CS (31-N, 33-v) =CI 

K=OPNC( l 1 

K— lNDANG ( K ) + K 

S1G1 =D SJh T( SUNN < <J > 

SI 02 = cP5 I C- ( I ) *S I G1 

2650 wkl TEK-JUTF. 10510 > I CSI J) • N • K #C 2 «C 1 • 5 I G 1 « SIG2 '. ■ 

C CfiiS»*eCT C PRINT ACJLSTED BIASES 

250c Jr(N61Ai»c.O . 0 ) GO TO 2EAC 

fe«I T£ ( OOTR, 1 OA.',C ) AkCNC.I NNER « CUTER 
LINES-O 

CU 2 504 1 = 1 . N*EI AS 

Id- 1+3 

IF(MOO (L I NES . £ J « - a« 0) fcR ITS { O ITP » 10 102) 

LINE S=LlKcS+'l ...... _. 

J 1 =1 NH A ry. I 1 I 

11=1 NGXnL (UU!1 ' * 

IF{5U>-1( 1 1 ) »LT.0.CC0> fcF I 7E( OUTP , 450 30 > 

SIG 1 =DSGp* T( 0 AES ( SUM 1(11)) ) 

CALL DATzStESTRTt I ) , 1YVC1 . IHM1 ,SEC) 

CAl_ ^ATcS (SSrNDC 1) t 1 Y^C-2 . IHM3 ,SEC) 

C 1 =T I MING 

Il = f.VTPEin 

IF(I1»nE.C) C 1 = AT YP F ( I 1 ) 

U = ti ST A Nu ( 1 ) 

. 12«dYTP.c ( I) 4 1 

JF( II ill * lf>) IiMIT-UNIT£< 12) 

IF ' I l .'El.:?; LN ! TSL'M! t ? { \ ) 

IF! I i < . J • c ' ! I 1 - ■''T Z 
1F( I I .GT . 2° > LMT-UNITS(A) 

2 50- Vi A 1 T L ( Gu IP* 10*50) NA«E(JI , I ST ANO( J) , Cl » ol AS0( I ) , UEI AS ( I B ) . 
• UN I T . - IASS G< I 5) ♦ SI G 1 . I WD1 « IHM 1 , l YMD2, I MM2 
C INCREMENT IT t" AT I CN CUUNT E P 
25 A 0 If ILiNNi-J GO TO 7000 
IF { r J T c .< ) GO TO 25 "0 
C CFcCK EUR INNER ITFRATICN CC N E R -9E MCE 

IFt A65( -^f'ilST-Af'STUT ) / P *■' 3 L S T • L F • C J'4 V n G ) L I NNERs, TRUE. 


IF (• NUT. L INNER ) GO TO 2?^C 

*.*! TE ( OUl F . A t ECO ) APCNG » 1 NNER » CUTER , CONVRG 
<*LL ERR t R ( 1 0 . C ARD1 C) 

25 50 iMii.f.slNKii-n 

HNN:« = ( L iNNc. c • ANO. I NN ET • C-E • I K NM I N ) . OR . 1 NN£ R • GE . I NNM A X 
GO 1 «j t 5 Z 

30 Ov IF( . NUT . Cf.UTS/ ) GO TQ 3C1C* 
lF(rtVTP.tC.O) GO TO 3010 
C WRITE CAST RcCCPO F-OR RV TAPE 
Un C = w. P 5 C •.. 


R.FPK0DUC1BILITY OF THE 

oSal PAGE IS POOR 


C AY :>TA = 999.00 

WkITc(RvTR) CAYS! a, I E n YN.C , I£PHV, ! TC vIC* ( SLsM tN( 1 » 1 ) » l = I « 5 ) 
• » S A TL A 7 { 1 ) . SATLPM( 1 ) . S A TH ( l ) 

c«NU FILcFiVTP 

30 10 IF(SAlS-) WR 1 T r ( xY?TP« 101 02 ) 

IF (S I MwA f » cn U • I jU Y .- •%'* E O • 1 ) f NOP 1 L 3 17 

c PRINT A-.C JUNVARY u’AGE 

CAuL T rPf.At ( V iYOi -M NSE/- , ARCNCU CUTE Ni’V VSI 
IPl i.,2A<icw» D) GO TO ?c:0 
IK < • N .1 T . UtUT r R ) i.U TO Ai',0 0 


1 NON 

7 5 A 

1NGN 

73? 

IN-IN 

755 

IN ON 

7*37 

IN ON 

7F/3 

1 NON 

759 

l NUN 

790 

IN ON 

731 

1 NOM 

7 -} 2 

IN ON 

793 

IN ON 

7 3 A 

INf’N 

795 

t.NON 

7 ?C 

1 NON 

79^ 

ININ 

790 

1 NON 

739 

1 NON 

F00 

1 NON 

FI 0 1 

IN ON 

? 0 2 

IN ON 

?03 

IN ON 

e CP- 

1 NON 

cn R 

1 NON 

sc? 

l NON 

tc? 

IN ON 

SOS 

i'non 

50° 

1 N ON 

e 1 0 

l NON 

p. 1 1 

1 NON 

SI 2 

1NON 

r 1 ? 

1 NON 

6 1 = 

1 NON 

fc? 1 e; 

1 NON 


1 NUN 

ei 7 

1 NON 

613 

1 NON 

a \ C 

l N ON. 

620 

1 NON 

FI 2 1 

IN IN 

F?2 

IN ON 

C n -I 
A 

t NUN 

O >t 

IN ON 


INON 

32? 

tNON 

E27 

IM'JN 

S7F 3 

IN ON 

52- 

l NUN 

5 33 

1 NON 

■ s 3 1 

IN ON 

6 30 

1 NON 

c 33 

1 NON 

5 7 = 

I N JN 

E ? ") 

IN ON 

9 36 

inon 

' '.7 

1 NCN 

r ** j 

IN ON 

►* 3 = 


8.0-31 
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• 1F( • NOT e PLOTS a? GO TO 2016 

*RI T 5 ( FLC If ) (PL ANK « J= 1 « 1 ( J 
LUJ FILE ?LOTF 

C PUNCH ADJUST t L fLf-PUKTS OF CRAG C 50LRAD 
30 16 PUNCH u A 6 CO • A PC NO ♦ I NNF R . CUTE R ♦ I YR ~. e , I EP YMO « l HPHM * EPSEC * 

• :( (cLtN'iH 1 »L ),I= 1*6) ,L=1 .NS AT I 

DO 3019 L = 1 i NSAT 
IF(B0(L> «LE*0*0D0) GO TO 20 19 

1F( CDC L , 1 tm GT >0 -000 ) PUNCH 465 10,0°AG( 1 ) .L.CJ(L »1 ) *DRAGSG( L. 1) « 

c CuiL*2)«Ot'.^CSG\L«2) 

Ir(Ci>(L.2 ) . GT * 0 * 03C ) PUNCH 4 45 10.DPAGJ3) iLiCC(L i3) t Dr?AGSG(L*3 > 
PUNCH Us30,L ,ASAT{ L) * FSAT(L ) 

301 i CUNT INLc 

20 2 0 CONTINUE . - 

CClOO EST sTA = ' J I F D E X _ 

I r ( UUT s_ii - LG* 1 > 1 NN M A X= M A X 2 I N 

C STUPE U 3 C A T u C AUC P A R A '•* F T H R S 

CALL UrtTAhCfAFCNO.* FALSE. ,eT^ ; JE. , « ) 

IF(UkHTda) CC TO 4055 . 

C PRINT ^OJUiaT t l PA HAMSTER V AR I ANCE- CO VAR 1 ANC c MATRIX 
WKl Tii t OUTF , 43C00 > 

U--0 

31=0 

CU 4050 L =1 . N S AT 

KUKHo ; 

tlUitl 

L2=61+6 J 

YbKiTclUJIRtlOlUtjj L « A A unu • { T TL { Ji t J-L i * L2 # 

DO AOdO o=Ll»L? 
llsJl+J 
J2=jUofK 1 

ttSlTftuOTF.ldim TTL( J) « ( SUV 1 (Kl • K = I 1 » I ? ) 

<050 Jl = jUNji;-j 

I F ( N oA T « G I • 1 ) V. RITLIGUTP.'COCO > 

CALL .CCLKc-L ( SU^l .MPAE A J* , N C 1 * . I NN5R. TTL ) . ' 

<i Q 3 5 IFtuJrtdl » L F i 0 « CO «P" « «NOT * L 1 T:.H ) G r J T J <0^ 0 
I f ( UAYO - UC^'9 l • t»T . 0 t CO 1 CO ) IN 3 TAL=* Td'JS * 

TO«Lr O- JKcAT, CT , 1 . 0C0 ■ 

IF{TU^CF01 C H C P T = O P t? P T — I « 0D0 j 

TUBE FT =T URF.r 0 

IF! 1 Uo* M 1 >, CT, 0 > !SATIC( 1) = Il)£AT(11 . | 

MlsL J6 < 2 ) =0 

C V.R ir = OPTIONAL URFrl TAPE GN LAS." I NN5P ITERATION OF LAST CUTER 
CITfcrtATIGN 

4 0 5c C A ^.L U'-iJ 1 (7!^ JET ) , 

4 0 A C A- v.-* O = A *i C MO ♦ 1 

IF { NGP AHt .L C * 0 ) GO TO A 09 C j 

C RcPLACC A <. C CEiI-OTFNTIAL C C5 p F I C I 5 N T S ' M I T H AP-UORl VALUES 
UU -tC-jO 1 = 1 , NG«ARC 

J = ].NuX<. 1 I 1 I ' 

N= J NUXC 6 < 2 ♦ I 3 
K= 1 N uX C ;» ( 2 » I ) 

Cl“GPVAi_U ( I ) 4 Ci S IOC I J 

if( j ,::c, 1 1 cs i n . m* 1 1 =c i 
\ 0 0 0 1 r ( J , C . 2 ) c S < J 1 - •! , 1 .1 - V ) - c 1 
a o V C IF ( AN _.n j . C r , N A- C S > GO T 'J ajoc 


1NON 6 4 C 
1NON V- 4 1 
t NON 6 4 2 
1NJN 542 
1 NON P. 4 4 
1 MON 64 5 
1 MOM 646 
1 NON 6 A? 

1 Ni'lN FAS 
IN )M 34 9 
1NON 050 
1 HON o51 
1 NON H'S?. 
tNON 65? 
JNON S 5 4 

1 HON 5-5 5 
1 NON 8 56 
1NJN 357 
1NON S 5 A 
IN ON 559 
1N0H 6 A 0 
l NON 661 
ININ 64 2 
1 NON 66? 

1 NUN 564 
INJN 6 65 
t M 3N ^ ^ ^ 

I K *?n C C *T 

I MOM S46 
1N0?J F69 
IN ON 670 
1 NON 6 7 1 
1 MON «72 
1 N ON 07 3 
1 NUN 576 
1NJN 575 
\MQN 674 
I NON H 77 
IN ON t 71 
l NON O' 7 9 
1 NON P. AO 
l NON 641 
l NON 532 
1 N IN 66 3 
J NON 044 
1 NON CS5 
l NON esc.- 
I NON 6r.7 
1 NON A S3 
1 NON 069 
1NON 790 
1NON 091 
l SUM PR2 
IN ON 3.6 3 
l NUN r.OA 
1 NON • 
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GO Tu' 30 c 

c STuP IF NJ C C M V CN PARAMETERS ADJUSTED OR IF P~MA TR I X CUT PUT 
MOO IFINiTLST oLG,C.AND* NGRCOM,EO* 0 eANO.NTIDEN*EO*0) STOP 1 
IFC r)MA T ) STOP C e 

tNJP lLi: SCRC 

H I A 1 N u SGAC 


c 


RMSPR V=RH SAlL 

nmall-2*n*ast+ngpcom+nt IDEM 
obtain statistical summary for all arcs 
CALL STA IKF C4 .C.NMALL* **SALL *p .P«P*P> 

PRINT kESICUAL SUMMARY FOR ALL ARCS ■ 

«rtlTu ( 0UTP.20 11 1 1 CUTER 
CO *',120 1-1.7 * 

IF{\UALL< I }«GT«G} W3 1 TE(OUTP t 2 0 20) A TYPE! I) , NO ALL I I > * TYPRMS ( I 


1 


J=i * 7 

i F ( NOi\LL (J)»GT*0) WAITF (OLTP, 2 Cl 2 0) ATYPE(J) * NO AL L l J ) ,TYPRMS(J> 
IF { lx JrtLL ( I ) +NUALL ( J I e G T * r 0 > WR 1 T E ( O J T P . 1 0 1 C2 ) 

CO 4 1 jO 1 = 15.30 
. IF ( NOALL ( I ) » L 5* C ) GO TO A 130 
•*.<1 TE C JUT F , 2 C 12 0 ) A TYPE ( I 1 . N'OALLC l ) . TYRRMSt I ) 

*RJTcl CJTF , 10 102) 


A 1 3 0 CO.NT 1 Nb£ 

fc k l T ii ( OU TF .301301 NVALL.P FSALL 
I F C L O J T E h • A N C • L I TPES) CC TO 10220 

ESTST A=.\^ AST 

C CALCULATE AuJCSTFC c:^cn PARAMETER values 
Ca'lL iSTIMiiP.P-.oi 


r- pn i..r -,-i iuUf f rr vmom djuamPT FPS 

call CC.MACJt CUTER) 

C LPlATE A«C aC.LST EC PAPAM=Tf i?S FOR ADJUSTMENTS TO COMMON PARAMETERS 
262C CALL UPDATE! kAACS. OUTER. NSTART»SUf-*l» DELTA. 

„ DO - L T A ,TTL ,-iSNOS * FE I A? ) 

J D | M = N 0 F C t- M + 3 M A 5 T + M T ITEM 


IST=lNDXMl(riSTART)-*-NSTAHT 

C P K INT CO-Mi-tC.N ADJUSTED P AS API TER' VA P 1 A NCi"COVA^ I ANCc. MATRIX 
CAuL CCA REL ( 5L‘M ( 1 ST ) , ID I v . I 0 I * . DU T JR . T TL < N 5 T AR T ) > 


IFduUTcAl GO TJ 1 0 220 


GUT c^= CU T tP ♦ 1 

C CKCK FOR OUTER ITERATION 'CONVERGENCE AND INCREMENT ITERATION 
C CCUNT-ri 

IF ( ( RAibPR v-k MS all }/R. w SFKV«LE « OUT CUN ) LUUTER=* TRUE* 
lr I OUT Ek • LE • M 1NUUT ) L C L T U = = « r A L Sri • 

LJUTlR=LC LT rS .OR* OUTER ♦ GC .VAXOLT 
A R C N o = l 

C REMIND iCrAT C F F I L 
a I N J S C R A 
HE* I NO SChC 
k 2 * I N.j Flip 

IF ( « NOT • i TAv! T fc ) GO TO 2C0 
C RE * I HJ JUTRuT RESTART TAPE 
GnJ Fii_E CUTSTF 
i*i» I DC T S T R 

C-u T O 2 lC 

102 2 J IF I • i JUT » C RD 5* 1 ST(j° 2 
C ll- OivUUHl TPACK TARE 

i..UflL: CAD TP 


REPRODUCIBILITY OP TEB 
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INON 6 R 6 
1NON S* 7 
IN ON EJ’f* 
1NON 99 = 

J MON 900 
J N JN 0 C 1 
1MON = 92 
INC*!)' 90 2 
1 NON PC A 
1NON 90S 
1 N«1*T 90S 
1UJN 907 
IN DM 90 * 

1 NON 9 T9 
I MOM Ri 0 
I. NON 91 1 
1 MOM 912 
1 NON 912 
I NUN 91 A 
t N ON OJ5 
INJM =16 
l NON c> 1 7 
1NUN 91 V 
IN ON =19 
IN JN = 2 0 
I N IN 93 1 
1 NON 922 
l MON 923 
1 NON 92 A. 
ININ = 25 
1N*JN 926 
I MON 927 
I NON 9 2F 
IN JN 933 
IN'JN =30 
1NON 931 
1N0N 932 
1 N 3 N 9 2 3 
IM IN 92 A 
l NON 9 35 
l NON 955 
1 N JN 937 
1NJN 939 
1M0N 939 
l NON 960 
1 NON 9', 1 
I NON 9 = 2 
1 NON 9A3 
IN JN c.'.t 
I MON 9 **- 5 
l NON c = 5 
I NON CT 
pi VI 9AM 
I NON 9 = v 
1 NON 9 30 
t NO N 9 9 1 
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• STOP 3 

C FERMAT ST AT-VcNTS 

1 3 0 D I P Of<M AT ( J c , 1 4 , T-7 , 4 . 12, I 1 , ? PF 2 . 0 , I 8 , 2 ( 16. I 4 • 0 P F7 • 4 > • I 7 , I 1 , AT? ) 

1 01 2y f-U«M AT { Uj?.Xi I4«2x«F7*4*2x»A6* 2X,F15*8»2X» P "15*6,2X»F15*5I 
10002 Mjm'MAT ( 3 C 5 A * 16) 

10440 FORMAT ( II- 1 , 1 7 > , 3H AW C • I 2 % 4 c.H AOJlSTtlO PARAMETER SUMMARY FOR INNER 1 

1 TtiiAT ICiN , 1 3 . 1 9H Or CUTfR I TE P A T! ON ,12/ 1M0, 1 OX, 7 H STATION, OX, 

2 ^MPAr> APETEP , OX , 1 5HP ARAMETER VALUE , 1 3 X , 

2 1 > H 5T A NO AR C DEV IAT ION', 4 X, 2 AMC O VC R AS 5 YYMMCO HH«M/9X, 

J 1 2 UNA F t NLVOER , 7X , 9hT Y?r , 9 > , AHA PR I OR l , 3 X , OH AD J U S TL D ♦ 1 1 X , 

A tllA PP I UP I , 3 X * ?IUDJLSTED, 7X ,5!'‘3CG IN, -?X . 3HEND/ } 

1 C 4 1 j C FORMAT ( 3* , A6 , It . 5X , A6 , 5R P I AS. 2X, I°2l 1 1 ,3, 2X , A6, ?E1 1*3, 2X ,2(13,15) 

• t 


1 0 1 c c 


"f 

>\ - 

'5 

-3 

* 

A 


fo.10 1 



\ 

\ 

a P$ // ’r/ 

ai ^ 10 1 0 4 


1 0 1 0 i 


1 0 1 C c 


FORMAT { 1 h 1 , 28 X , 3HARC , 1 3 , 30H RE £ I DUALS FDR INNER l T E RATION, 13, 

19m UF OUTER I Tr.OAT ICN , I 2 , 1 EX, AmPAGE’. I4//5X , 1 2 HT l ME OF DATA, 
7X,2HSAT,2X, 

7 T A T ION » AX, 1 1 HV.EA SURCMENT ,9X , iMKES I DU A l_ ,3X , 5HR A T IO, 6 X, 

1 1 MM c A EUR £ PENT , O X , d FR E S l D U A L , 3 X , SURAT I O , J X , A HOLE V , S X , ah ME A S/ 
IX, yJF TY-1XDD HHVM SS.SSSSSS rRKEO NAME . 4 X, <>HTYPE , cX , 5HV ALUE , 
bX, 5H ( C-C J « 9X • 1 * hTO S T CM A 1 Y PE , 6 X , S HV AL UEi , 7 X , $H { 3-C ) , A X , 

1 Art TO SIC* A ( OEG ) , 5X.2PNO) 

Fwk^AT ( 'C UNITS FOP INFORMATION • >, LINEAR', SX, 

* Me A5Lr F. M E NTS - K I L C v£ TE R5 ' , S X , * R ti S I DU AL S - METERS * / 

?.fcX , ' ANGUL AP • , 5X , * ME ASURFME NTS - DEGREES*, 3X» 

‘RESIDUALS - SECONDS CF APC'/27x, 

‘LINEAR RATE MEASUREMENTS - MS T£R S/S ECCND RESIDUALS - », 

* C E N T i * E T £ (i S/ SE C CFO * / 2 £*X , * T I ME • , 3 X , 

* ‘MEASUREMENTS - MICROSECONDS RESIDUALS - N ANO S EC GND S * / 2 3X . 
•F'kInGE RATE MEASUREMENTS - MILL I HERTZ * ,EX, 

•kuSIELALS - m I C RDH eRT 7 « / 

J5X « U I PEC T JON COSINES ARE SCALED E! Y A FACTOR OF 1000'/ 

36X , 'ECCENTRICITY IS SCALED BY A FACTOR OF lOOCOOO'J 
FUP.MmT (IX) 

Fv>-<V. AT ( 1 A , 1 o , 1 £ ,F 1 0 #6 , ah SAT « I 2, 1 X * A 7 » 1 X*AS«F12*4, e '13,3,F'3*2»Ai« 

2 x , A c, » F 1 l. / t,' : l3.3. c f'.2 , A ! , F 7 « 2 » IS) 

AT ( IX, Ip, I ^ 1 C , 6 , ■•P 5 A T , I 4 , ] X , A7 *1X«46«F12*4,F 13e3,F3*2,Al , 

4 1 X , F 7 * 2 . I E ) 

HUkhaT ( l H . P X . ohSA T£L L 1 T? , I 2 , /'■h ARC • I J , 

3 Sf -1 rectangular COORDINATE SUMMARY fcr , 

lcH INNER I TER AT ION , 13 , 1 9H CF UUTEP ITERATION, 12/ 

1 F C, 22 X, 34M*7PnC-H C c ELEMENTS - YEAR, MON TM, DAY, 17, 3X, 

1 C FHOU R , M I NU Ttl , SS CCND , I 5 « F ~ , A / 1 HC , 33 X , J HX , 1 2 X , 1 HY , I 2 X , 1 HZ 
10X, AHXC-OT , OX.AiyDOT ? X ,ARZO 3T/2 3X ,3( 10X,3H{M) ) , 1X,3{ 3X. 


• OP ("/$ ) ) / l X > 

1 01 C9 F-J..M AT ( c X . }A f , 1 x . 3F 1 3, 1 , 3F 1 3* A / 1 X) 

1 0 \ l O F J I A T (If. C/ .3 E X , l 2 HR '■* S F C S I T I C N ,F l 1 , A , 4 X « 1 ?HR M S VcLOCITY.F ! 1 ,0) 
10103 FU4MAM 1 HC/2F x , * SAT ELL I TF * . I ? , Am ARC, 14 , ’VARJANC E/COV AP I ANCE 

• 'MATRIX CF COLRC U!A TES '/1HO ,20 X,AS, ?X,AS . 3X, A6, ?X,A6,0X, A6. 


• y X « A r; } 

I0II1 f AT l 1 P •: , y X , A 6 , 1 X , I p t r I E * 7 I 

10113 F J<M AT ( l h c/47 X2 SmKEPLE P l A N ELEMENT S UMM AR Y/ 1 HO , 3 3 X , I M A , 1 3 X , I H£ 1 2 X , 

• 1 I* i , "* X , "* A ASC NODE Y A G PERIGEE MEAN A NO MALY/31 X, 

• .if (MET ? f >'S ) * 1 yx, 41 4 x C H( DEGREES) ) / I X ) 

1 0 1 1 t rU>v1AT( J) ,3.\r ,1 1-;, I ,r I 2,c ,tp 1 3,5/lv) 

1030 I P :j *\ ‘ t a I ( ]f- 1 , l •. x » 3 h A R C , I 3 , 


• 3 2M ACJU..TLD Fij-CC *-*L DEL PARAMETERS INNER I T E '< A T I U N ■ I 3 , 

J-lio 

v^ik-itvlL iV'.v PAGii ! .l5 P 


1NUN 952 
INO'I 95 3 
t NCJN 9 5 A 
i N(JN 9 55 
1 NON 956 
1NCN 957 
1 NON 955 
l NON 959 
l NON 950 
1 NON 96 1 
1 NUN 962 
1 N 0 N 95 3 
INDN 964 
l NON 965 
1MON 956 
I NCN 967 
I NON 965 
1 n”'M 96? 
1'ION O^O 
1NON 971 
IN IN 9 72 
1 NON 973 
1 NON 97* 
1 NON 97 5 
1NON 97c 
1 NON 977 
IN IN 9 70 

1 NH.Sj QI'O 

1 NON 90 0 
1 NON 461 
1 NO N 93 2 
SNON 933 
1 NON 4 
1 NON 9 E5 
I NON 9*<6 
ININ 9 37 
1 NO N 90 6 
1 NO N 9B9 
IN ON 9R0 
t NON 99 1 
I NON 

I NON cot 
1 NON 99 A 
l NUN 195 
1 NUN 996 
l NUN CO 7 
l NUN 99° 
I NU^I 9 39 
iNONi 000 
I NON 1 0 D 1 
1 NON * oor 
1 NUf;< J C 0 3 
l NON 100A 
1 NON 1 0 3C 
1 NON 100t 
1 NON 1 
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1 OS 1 C 
10202 
10300 


» l >h OF OUTER 1 TERAT ICN, I 3 ) 

10520 FORMAT < 1 h C « 4 0 X * .3 3H SATEt.L I TE PHYSICAL PARAMETERS ADJUSTED/ / 2 0 X * 

« 1. 1 MCO EFF 1 C In NT . 1 9X » 5h VALUE , ? 1 X , 1 JHST AND APD DEVIATION / AIXt 

• sHA PR JO -7 1 « 7 X , BH ADJLS T ED , 1 0 V * AHA PPICfH , ?.X * 3 HAD JU 5TcO ) 

10530 FORMAT ( 1 HC * 37x,A4HGEOPCTENT | AL ' RESONANCE COEFFICIENTS ADJUSTED// 

• 20 X t 1 1 tCOc.FF I C 1 FNT* 1 S X « 6HV4 L UE i 2 l X » 1 EH S T A NOAPD DEV I AT I ON/ U X , 

. ■: ftMA PR IOR1 *7X , HHAOJUSTFD ♦ C-X ,2f!HRATlC TO A PRIORI ADJUSTED) 

ICSOc FJkM AT < 1 s > , 3h SAT , I 2 , 1 X , Ae t D 1 5* C . D 1 5. 6 . 2D 1 Sft Y ) 

FO ;<M AT l 2 c > « A I ,|H( , I?, IH, , I 2 , 1 H ) . D ?. 1 . 6 , V 1 5 * f> . 1 X , 2 D 1 6 , 4 ) 

FJKV.iT (JKSTATION. 15.5H AT T I M fc * I 7 » I S . F 5 • A , 1 Bn N3T IN TIME ORDER ) 
Fu*MAT ( 1 I- 1. 2SX. 3HAKC* I 3.31H SATELLITE EPHEMERIS FCR INNER . 

. yrtl T = h*AT ION« I 3« 1 9H CF CUTcR I TE RATI ON *12. 1 7 X « 4 HP AGE* 

13/17H0 TIME OF D AT A . 1 1 X « 1 H X » l 2 X , 1 FY , 1 2X , 1 HZ « S X * < H XD’J T . 7 X . 

AHYUJT ,?X i 4HZDOT , 4 X . 23FGECD5T I C LAT LONG (E> HLIGHT/' 

2 OH YYVMLO HHVM SSft 5SSS* £X'« £H{ KM) . 2( 9X ,4H( KM) } . 1 Xft 
JCoX, i M V/S ) ) . 5X , 2t ■ 9H( 0 L G >< f F S ) * 2 X ) « A X , AH ( KM ) ) 

10 301 FD.A*I ~T ( 1 X 1 1 'v' i I 3 . r f .U * .-2P3F13.4 *GP3F l 1 *C f F12*e.Fl I«5*-3P3Fl3*4* 

• OPJF1 1 t4«F 12*fi.' c l U £i-2P F 1 3.A ) 

1 0 30* FORMAT (20X»“3P2ri 3» ^ * 0F3F 1 1 *i . FI !?• 5* F 1 1 » 5i"3 PF 13*4) 

10302 rUrt-iAT ( ( i F 1 , 1 2( / 1H0 ) * 3 (/20X, 20 At J )) 

10303 FORMAT ( 1 F C * 44 Xi ?H$A TELL 1 TE . 1 2 * 20M CUFRLNT OE5T ELEMENTS FOR ARC* 

• 13// 

. .,4>*1HX*25X, 1MY,25Xi 1HZ// 

0 30X,3D2A,l^//A2 X, LhXDOT .?2X. AHYOOT *22X»4HZCOT//30X*3D2A« IE 

106CC FORMAT ( IX .1 ?, It * I A, F-J* A.D2A, I 6 . 1HX) 

20111 FUrt.MAT { 1 H 1 , J2X. • TOT AL -SSJOUAL ^SUMMARY BY MEASUREMENT TYPE FOR *. 

1 ■ *CL T EG \ T£p A T I ON * . I 2 / 

j . IfCj- 3 A y . i i w r *. SLEEVE \ T ;10 m \ ij wnpy nc » 

3 jhKE IGhTED, 0X.8HV.E IGHTEC/1H , A l X , A HT YPE * 1 6 X . 9 HRE S I DU AL S ♦ 

4- i EX* 3 HP VS/) 

2C12J ruRMAT (IF ,.'-OX* A-j* I SX, 15 , 15X,F 10. 3 ) 

20130 rQivNAT ( Ir • A3X , 1 1 HP. v<J FCR ALL* IS* 22H ‘/.’EIGhTED ME A SU RE V LN T S * p 1 C * 3 ) 

4447C FORMAT ( lhC. 7X**^AHG^JPCTENTIAL FESL'NANCE COEFFICIENTS AD J U S T c D / 1 M 9 

1 l l FCOE FF I C I E NT * l C X , ,:H A PRIORI » It X * TH AO JU 3 T EO / 1 SX * 5H V ALUE » 

2 3 X*l- HR AT JO TO S 1 C M A , 3 X , 5H V AL UE , 4 X , = HS I GM A / > 

4A4 ? B FORMAT ( 2X , A1 * IH( * I 2 . IH , , 1 2, 1H ) ,4X * J( 2X, E l 0. A I X * E 1 0 . A » • 

AA4?0 FORMAT ( 1 H 1 , 33 X . 2HARC . 1 3 * *■ AH SATELLITE NEPLERfAN EFhEvEPIS FOR I T E 

• A T I UN .1 3 . 2S X » A HP A G E , I 3 //“ X , A HT I >-'E » l 7 x , 1 H * , 1 4 X , 1 HE . 1 S X » l H 1 . 1 1 X . 

• 1 1 UR a A 3 C N JDE* Ex , 1 1 HAPG PE F I G EE . £ X , l 2 H vf A N ANJVALY/IX. 

• ) vHY Y -W^ 0 FH'-'.M SS. 5SSS » C X • 3H < M F TE PS ) . 1 7 X * A ( 2 X * 1 5HDE G VM SS.35SSS) 

4 J. 4 £ 5 FLR*5AT(lX«Ir* I 6 » r 5 • ^ tP H*Lf Ij*1! * ; >(2X»?5 3*^ < 5»5)) 

4 A 4 : t F CiLM « T < j 0 > . F 1 r* , 4 * F 1 5 • 1 1 . 4 t 2 X 2 I 2 . p * • 5 ) ) 

A45CC FORMAT <* ARC* . 13 « • ADJUSTED PARAMETERS FOR 
*• /Io/IciI *-« F 7 * */ ( 20? A, MMER- ) ) 

4 4 51 C f JkM A T { A n , I 1 » .? X , ,?F 1 G . , 2D 1 C « o ) 

4A53C FCi*MATlih;AT,jX, II .■»X.2F15*5) 

45000 FORM AT ( • 0 *» * ** ** * T NEGATIVE ARGUMENT 

• 1 Zt 1 

6S01C Fjt5'UT{ ' CH'**** NEGATIVE ARGUMENT TO DSORT FCR 

4 SOIO f J« -inT ( iO**«*»i**i*«i NEGATIVE 4PGU‘ENT TO D SOP T FOR 
AC 000 FjnMAT ( lx . 12 DI 1 * *») 

4:bCL F J«.MkT ( IP l,"jL ♦ THE A-C'.Il.' M/3 c .)4 INNER ITERATION 

« « tJ L T l. (i I T£FA TI'.IN* * ! 2 / l 6 X , * CONVERGED W l T H | N ' * 2 P “ 5 • I ♦ 

, ♦ 1 -r.KCcNT CF Tur r.MS FOR Thf PREVIOUS ITERATION of this are* * ) 

A7C0O r :)RM AT ( 1 t- 4 , 7 7 X , 2 ;m T r. AN r-Pf.-NF F A LELAY DY S A T , I 2 ) 

a •; 1 C V r !•< M T ( I l> « . ’ : i « *• • 1 • % .. - 1 . 1 V" , r-A I A 1 , * M / , A 7 • 711 ( L E V ~«Fi*2»lt1) 1 

E 7 f 0 0 f w- M A ! I 1 H i , 7 7 r . I \ . 1 ”H .-.AY T '■ AN • >' I T '.**»« 2 X , A 7 . 7 H ( i LT. V - , F 6 • 2 • l H ) ) 

4-IC0t hoM'Ll T t 1 *- 1 > 
lNJ 


INNER* *13 * * OF CUTER* , I 


TO DSORT FCR ELEMENT*. 


• « A/j, « f,****< » 

BIAS £**-***■*» 
I 3 . 


1 NON 1 008 
l NO N 1 0 0 c 
l NON l 0 10 
1 non* ion 

INON1 0 1 2 
1 NON 10 5 3 
1NONI 0 1 A 
1 NON 1 01 5 
1 NON 1 0 3 G 
IN TNI 01? 

IMOM1 0 1 0 
1NQM1 019 
\ NON I 0 20 
1NON1 02 1 
IN ON 102? 

I NON 102 3 
InON 1 0 ?<■- 
I NON l 025 
1NON1 C’S 
l NON 1027 
l NON 102? 
1NSN1 029 
I NON 1 0 30 
} t r JON I 0 3 I 
l.’ONl 0 32 
IN ON 1 033 
tNONJ 074 
1 NON 1 035 
IN ONI 0 36 
1NON1 037 
1 NGN 1 0 3 0 
1NDN1 0 3? 

, 1N.JN1 
INON 1 OA 1 
1N0*J1 04 2 
1 N 3N 1 C 3 
R 1 NON l 0 4 A 

IN’ TNI 0X5 
iro-ll 0 T6 

) IN JN 1 0A7 
1NON1 OX? 
1N-3N1 04 9 
2 1 NON! 050 
IN ON l C 5 1 
1 NUN 1 05 2 
1N>I! 053 
IM IN 1 05 A 
1 NON 1 C 5 5 
) 1 NON l 0 C 5. 
I IN ONI 0 5 7 
l NON l C~>t 
IN ON 1 C50 
IN ON 1 0 50 
lNDMl 041 
1 N ( i rt ! 04 2 
1 NON 1 0- 3 
it.::, ; :■ 
1N3.N1 Ori 
04 5 


8 . 0 *- 3S 



Pfi y O 2 2 of 

Oc L ober 19 7 


<5A7ft Y 




'%££ 7ft ft 


/ &COZQ \ 

/ fto/npuftO \ 

'su/tPftOft POftUTp 

\ $£OZ£> j 

/■f&T.c } firs / 


Zen x> 


T/SpuT TPP6 


300 




/ T>f\Tnftr> \ 
/ ftOftJ) \ 

'Z/JftOftnifi TjtcaJ 

POft AfftKT 

\ APC / 


S> / ftftT Oft 
oore/z 
ZETogrtrio a/ 

ft- oop 


jzcnp 

pi ox 7>ft"p 
pc A pra<Z_ 


PPOPC TOAJTTftC ^ A/0 
^COftPPTCIftft 71 S 


PSD 


SCT ft Tip ft files ~rei 
fi/Oc pore kits / 1ft 
Cc£frZCZ£K)TS TO 
ft o/ZftftAj r 3 esr 
Vftftuc 


SC / ftc/n/7 * OaJ ftD- 
JuSrc=o Cj cep or < fa? ■ 
7z/u ccftffJcieAjr, 
TO CuftftC/ftT 
Pesr v/?7 u£$ 


ftsv 
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hAME 

PURPOSE 

CALLING SEQUENCE 
SYMCOL TYPE 
I YKD l ' 


ADDYMO 

TO ADD OR SUPTR ACT DAYS FROM A DATE IN THE FORM 
YYMMOC AND TO PROVIDE the USER *lTy THc NEW DATE 

CALL ADD YVD ( 1 YMD • IC AY ) 

DCSCRIPTJCN 

INPUT AND OUTPUT - StX DIGIT DATE IN THE FORM 

YYMMCD 


IDAY 


INPUT - NUMBER OF DAYS TC DC ADDL'D C'R SUbTP AC T c. D 
FROM INPUT TAPE 


SUBROUTINES USED 
COMMON ilOCrsS 
INPUT FILLS 
CUT PUT FILES 
RESTRICT JD.N5 


NONE 

MONTHS 

NONE 

NONE 

CANNOT PROCESS MULTIPLE CENTURIES 


SUDRUUT INc AC0Y'O< { Y MO , ID AY ) 

CCV.MCN/MCMHS /MONTH (11,2) 

1SU5( iY ) = (» I N C (MOD ( 1 Y, A ) , 1 )♦ 1 
C SFPAKmTE Yc a M /VCM H/OAY 
IY = IVML/ICOCO 
IK ” 1 T* I CCOO 

2 M = ( I YMC- I K ]/ 1 00 

ID = 1 YMl* l K“ 1 M * 100 

LY= I bud ( I Y ) 

C COMPUTE ELAPEtD CAYS F A C v > j a mja R Y C.O )F CENTURY 
IU=( 1 Y — 1 )*3c02S/lCC+YnMH{IM,LY) + ID+IDAY 
C COMPUTE N=* YE AC /MGNTH/r AY 
1 Y= ( ID - 1 J * I 0 0 / <£ 5 ? 5 + 1 
U=ID-3ce20*( I Y — 1 )/100 


LY= 1 SUti< I Y > 

IF(L Y*iiU * 1%0 k • I D.LT • 3t C J GO TO 5 

I Y= I Y ♦ 1 

iD=ID-3=£ 

LY- l SUu ( i Y ) 

5 CO 1 0 1-1 »1 2 

IF( J r. #MCNT t-( I ♦ ! ,LY ) ) GO TO 20 
10 CUNT iNUL 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


c PACK N:. A Y Y .• M L D 

20 I Y-O = 1 Y* 1CU0C * l * 100+ ID-MONTH ( I ,LY ) 


RlTUAN 

cND 


ADDY 

2? 

ADDY 

3D 

ADDY 

31 

ADOY 

32 

ADDY 

? 3 

ADDY 

3^ 

ADDY 

35 

ADOY 

35 

ADDY 

37 

ADDY 

35 

ADDY 

39 

ADDY 

*0 

ADDY 

A 1 

ADDY 

92 

ADDY 

-j 

ADDY 

& £ 

ADDY 

A 5 

ADDY 

A ^ 

ADOY 

A? 

ADDY 

AS 

ADDY 

A r 

ADDY 

s; ^ 

ADDY 

51 

ADDY 

5 2 

ADDY 

S3 

ADDY 

Si 

ADDY 

C c. 
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* n location 

are added to the tab cs 1 o£ t he 

Flux values ar between the dat 

„ t0 the number of day flux data 

•nrrespondmg to u> , t be first date 

and the day pt lor t0 ' is re set to re- 

~ " sss. - » - 

fleet the presence 

nf the table but for 

For dates within the range _ between 

ablch data U ■>»' «« ,o the ends of the •>■»“>« 

n nn - zeTO points ad] fill in the table, 

the two »<» “ / C0W «M values -to f.U 

data span is usea. . 

■ rftMCD is used to determine 

The logical * unctl ° n encount ered signifying t e 
when a Reference Time card - 

beginning of a new arc. - 

... i to calculate the Green 
The function JANTHG is use ^ ^ ^ reference year 

wi ch mean sideral time ^ flxblK _ 

a „d to load flux data mt , . 

ntainin” the information 
' file is written contamu e 

A flux ftl e 1 

obtained £r» dM™G » each 
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NAMH ADFLUX 

PURPOSE II TO ADD SOLAR AMD MAGNETIC FLUX TO STORED 

, TABLES ft 

2) TO COUNT THE - NUMBER C1F ARCS IK PUN 

3) TO WRITE ON SCRATCH FILE T hil GREENWICH HD UP 

. ANGLE OF JAN C .0 OF THE F 2 F F R' E.N CE YSAF AND THE 

FLUX DATA NEEDED FOR EACH AFC 

CALL INC- SEQUENCE CALL ADFLUX ( NA PCS * M3F LUX . NFLUX « SFLJX , MYMO.L Y* D > 


S YMBBL 

TYPE 

DESCRIPTION 


- KAPCS 

1 

OUTPUT - 

■ NUMBER OF ARCS IN RUN 


MGFLUX 

I 

I NPUT • c 

OUTPUT - MAGNETIC FLUX CAT A 


SFLUX 

R 

I nplt c 

OUTPUT ~ SOLAR FLUX C AT A 


M YMD 

I 

I NPUT - 

STAPT CAT?. FOR FLUX C AT A 


L YMD 

I 

1 NPLT £ 

OUTPUT - STOP DATE FOR FLUX 

CATA 

SUBROUTINE 

USED 

A LI ST 
RFTMCD 

AND 2 DIFF ERFCR 

JANTHG 

'COMMON BUG C KS 

* " '*F L’XOLK 

■TNT ELK "TPEBLK 



CON STANT S USED 
SYMBOL TYPE 
MASK I *2 

IN^>UT FILES 
OUTPUT FILES 
RES TR I CT1 ON S 


MASK 

Df.SCR I PTI C N 

HEX NUMBETc; USED TO EX TP ACT CLCl^Al NUMBERS FROM 
THEIR EBCDIC CCCE 

I NPT - 1 NPUT CARDS 

FITP - FLUX DATA FILE 

MUST CE CALLED CFFCFE FIRST READ 


SUBROUTINE ADFLUXt NARCS .VC,TLUX * NFLU Xi5 r LU X ♦ MY VD» t Y^O) 

DO L n I.C PRECISION DTI ,0 *TL. OATAN . Fl.JXS «V ALU El , VAL'J E2 » J ANTHG, TUFT GO 
OOLBLE PRECISION F LL XI ,F LUX2 ,Fl UX2 . FLUX4 , FLUX 5 
LOGICAL LAS1.FFTVCC 
I N T £ G G R r L T F « N D 2 

INTEGER <2 A ( Fi 0 J * SF LUX ( NF LUX ) , t-'GFlUX (N P LUX ) 

CCMMON/FL v&lw./e- ujX! ( 4 os > »F LUXE ( « OB ) . F LU X ? ( 4 0 B ) . f L U X 4 ( 4 C f I * 

= LL X 5 ( 4 C e ) 

COMMON/ IM-J L K / 1 *< } C T 1 (S4 ) « T HR TC.C , f Y (76 > 

CO VMCiN/ T Lx / I NTP , I C-5S (E > .r LT P , GROT p 


IK1-G:R«2 mas K/Z'cc/ 


pptooducibility of the 
Sal page is POOR 


adfl 
A r '‘"L 
APFL 

a dfl 
APFL 

aofl 

A DFL 
A dfl 
AO-L 
AT c L 


4 !, 

4 f 

47 

C.E 

49 

S< - 

ST 

SF; 

C 1 

5 T» 
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OA TA FLLXS*CA TAN/6HFLUX ♦6H0ATA / 


. A cr l 

sc. 

P.^lNT INPUT C A K f- 5 


A L r L 

c *» 


CALL ALIS7 


acfl 

C !3 

u c. A C 

PAST TITL;- C/TDS 

$ 

A C P L 

c. - 


ri :rnp *1 cc cc ) 


ACFL 

FF 


JD AT-:*: -L > MC 


ACFL 

e: 

SCAPCH. IO<' 'FLUX' CAnCS 


t> OF l. 

f? 

1 

( I N TP ,SCC CP ) CTl .0 ATS ♦ VALUL'l « V£ LUD2 


ACFL 

d 5 


IF( JT1 . -£0.1 / TAN) GO TO 2 


* TFL 

di 


IF O T1 , k:. ,K LUXS) GO TC 1 


/ r.'Ft 

t f- 


ID ATL=I AT: * .1 DC 


7 C C L 

es 


CAt.L !>l FF ( M Y^'L . 0 »I DATL *\ « I ? AY * I S t*C 1 


l CFL 

t? 


IF ( It * Y.GT. C. AND. I DAY. LT. N r LUX ) GO TO 3 


A f FL 

f r 


PAINT aCCFO .0 ATF 


ACf L 

es 


CALL .-FBC? < 1C *r Tl) 


A CFL 

, 7 C 


GO TO 1 


ATFL 

7! 

ALO 

r L L * TC: TAL LO 


Ar- C L 

7 2 

3 

if < valoci ,g t. c« cdc > sf lux { i r. ay + 1 ) =v alu £ 1 <=i ,o: 

4 1 40 • 1 DC 

ACFL 

72 


IF ( VALlF* Z.S1. 0* CD 01 VG r LUX ( 1 C AY +1 ) = VAL'J£2* 1 *C Of 1 + C * \C0 

/ tfl 

74. 


IT ( It-ATfc .GT.L YMt ) LY MO" I V AT- 


A CFL 

7 t- 


GO TO 1 


t r.TL 

7 £. 

a 

IF ( JO A r t: * LO * L Y^T- ) GO TC 10 


ACFL 

?T 


CALL Jl F r ( MV'C ,c .LYFD .1 , JD/.Y .JSl C) 


ACFL 


INTi. 

RPdLAT: TC FILL MISSING FLUX V A l Ur. 3 JF TO TFf 

MOST RfcCFNT T/O-F 

A { FL 

?F 

VAL l 



a r r i. 

CC 


DO v LL = 1 .2 


a Or L 

£1 

*'• ' 

L A S T-- *f A L S“;» 

- 

A CFL 



A.M - A 
r»« ? ' v * # 


acfl 

r ~ 


1 ■ V > i v ^ ■ k, i r*> m m **- ^ ^ p>. ■ % ^ f- ^ ^ 





V. rt » > t i >■' li- 1 t « » A O \- s. » 


N i r L 

c; 


IF (LL *0 0.1) LiO-SFLUX( I T7 Yt ! ) 


ACFL 

C 5 


IF ( L L «C C * 2 ) f. 0 = MGF LUX( J CAY+1 ) 


AC ri 

Ed 


KOAY-K AY 


• A C C L 

cT 

A 

IDA Y- KC A Y 1 


ACFL 

r ? 

5 

KD A Y = x: AY+1 


ATFl 

F F 


I c (KC AY.GT. X AY+1 ) GC TC 6 

. 

Ar c i 

■> C- 


IF <LL*L C. 1 . AM'. S C LUX( KOAY) . Lr.*C I GO TO 5 


acfl 

s*. 


IF (LL «c C. 2* ANt . MGFLUX { KCAY > • Li* . 0 ) GO TO 5 


ACFL 

C~' 


IF (KOAY, CO* JO AY+1 I LAST -* Try 


ADFL 

%?. 


X = I O A Y 


A CFL 

S-- 


IFCLL.CC.I) Y = SFLLX*U DAY) 


A CFL 

f c. 


IF ( LL *L C * 2 } Y = - 4G FLUX(IDAY) 


ACFL 

C f- 


XI -KC A Y 


acfl 



IF(LL.rC.I) YJ s«FLUX < KtAY) 


* CFL 

Sr 


IF (LL .SC. 2) Y1 =VGF LUX ( KOAY) 


ATFL 

CI 


AM :( Y 1 — Y) /( >1 - X) 

• 

ACFL 

l or 


faS = V 1 M * XI 


acfl 

1 Cl 


GO TO 7 


t Or L 

1 C2 

e 

KDAY-C'AY-l 


A OFL 

1 CD 


LA <T = , TRUL. 


* CFL 

U*- 

7 

ID = IC \ Y * 1 


A CFL 

1 CS 


CO *3 I = I C: « K[ A Y 


/ c c l 

let- 


X= I 


acfl 

! C? 


IF <LL«r C « 2 ) v T, r 'LLX< D-M'tK . S 


acfl 

\ C F 


If { L L « ‘ ' C . 1 ) S'-LUXd I - A t X * I* Li ♦ . S 


ACFL 

. i"c 

-3 

CONTI NUL 


A D*- t 

I 3 C 


If t , NTT .LAST) GC TO A 


cr r L 

1 1 ' 
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9 CO^TINUC 


ADFL 

112 

; £i AFCh’ «•' LK R.-.F: FI NC.P TIPF CARO 


atfl 

1 1 3 

i o fv At ( i n i » , 2 c o c c «r kp =2 o ) a 


ACFL 

i : a 

I r ( iNJT » F: F T t-'C . (A>) GO TC 1C • 


A C r L 

1 1 F 

C CC'^FtTC « :r‘LR:.HC‘. YCAP 


APPL 

1 1 t> 

IV = lC-»( Alt::?. { A U > » VA SK) Z256 ) <- ANC2 ( A < 0 ) . MASK >/£5o 


j.dfl 

1 l 7 

C Ri'AC- t'PJCM CARD 


ADFL 

I 16 

*?f AO ( IM1P ,3C9 “JO IYPD*IYPDD 


AOFl 

1 19 

IF ( I YJ-'OO .0 1. 0) IYP0=IY*CP 



! c-r 

NAKC S -N~AF CS«1 


A DFL 

in 

C DtTL c f-‘ IfJ" GSr.CNVlCH HCU9 ANGLT: OF REFTM-NCE YEAR IN RAD 

IANS AND 

ACFL 

1 ?.?. 

C S.u:ci FLUK VALL. S f OR AFC 


A DFL 

\ 23 

THZTG 3 = JA NT MG ( I Yf-'L * 1 Y « SF LUX * PC c t UX « NY Mf> . LY MC ) 


A C r L 


C *3 I T”. FLUX F I L'. 


t PFL 

I 25 

WF J T_ ( - L TP) TKtr.C.PLUXl - — ■ 


ATFL 

\2* 

Kf I TC< r l TP) ^LUX2 


AC^l. 

1 27 

KP | TV ( = L T P ) F L U X 3 


* tfl 

126 

VP I Ti(= LTF) r LUX4 


AD^L 

1 2R 

fcC I TIC = L T°) FlUXO 


AD 11 L 

) ?C 

GO TO 1 C 


a r fl 

1 21 

?0 TNC-FIL- FLTF 


* CFL 

1 22 

AC V 1 NY F L TP 


6 CFL 

1 32 

PC YIN} IN TP 


MFL 

\ 24 

PC TUR >1 


ADFL 

1 22 

l cot 0 FORMAT! 1 X// > 


acfl 

136 

2CCJC FC»KMAT{ £CAi ) 


AOFL 

1 3.7 

3CC2C FOFma T( 16.3 4 X.I6) 


t O p L 

1 2r 

AGtt-J t s Lh , ^\ T( 1H1 icCX , 'OATH • »Ll<+«7 ,* ON FLUX CAFu OUT UF F 

AN GC OF •* 

. AP”L 

1 3 9 

• * TAM Lt. S* ‘/ IN 0 .1 5 X * *C ARP IGNCFtr. 9X t'.CUT I ON CONTINUING.*/) 

AOFl. 

\*r 

5CCC0 FOPMA T( Afc *4 >*3L 15*6) 


ACFL 

1 A I 

r.No 


AOFL 

t 4 i 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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AUST ^ 
TOUT ROMAME 
INPUT CAROS / 


SEARCU por 
R£E&REUCE: 
TltAG. CARP 


READ PAST 

TITLE CARDS 


EUPf\LE 

REAP 


-SEARCVi 
FOR 'PLOX' 
CARPS 


«■ ■»? 






COMPOTE. 

REFERENCE 

Year 


INTERPOLATE 
TO PILL 
N\\SSiUO VALUES 


EROCU 
CARP - 
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AL 1ST 

TO LIST CGODYN I J1PUT CAROS 
CALLING SEQUENCE CALL ALI ST 
SUBROUTINES USED NONE 


MavE 

PURPOSE 


CC MhO.s BLOCK. S' TPb:«LK 

INPUT BILLS iNTP - INPUT CARLS 

OUTPUT FILES I CUT P - PRINTER 


SUSRCUT I Nt AL 1ST 
LO»ICmL*a LPSC'-DI 20 ) « E NO 

INTEGERS ICASC, SELECT / a H £ £i L E / . OELE TG/C-HDELE / » END ALL/ 4 HEND A/ 
IV«LlAC-( iCASitt. kSCPT. ( II ) 

CC'WvJN/TI J I?LK / I NTP , ICUTP, ITAPES( 1 0 > 

LATA IPACc/l/tL I Nr / ! / * FND/«FAL £E • / • I OAT A/4rOATA/ 
c list c.-j:yn INPUT CARDS 
.. It K i T f . ( I JL TP » 1 CCO > 

« R i T G { I JLTP « 2CCG ) . 

V.KI Tc ( IOL TP « 3 000 I 
1 hkIT l{ IOL IP • 1 Cl ) I PAGE 
IPAUL= I A A C G + I 
1=0 

IFIEN-u) CC Tp 20 
S PcAD ( iMFilOC.c MS= ?”) LRECRD 

7 1=1+1 

ftfclTEK ICJITP • 1 C? ) L'EC^CiUNS 

LlN-fLlNn+1 

IF (I .EC. if) GC TO 1 

i F { IC^SE«LO, U-ATA) END = • T R UE . 

lFt.NUl.cNDJ CO TO A * 

?.J RSAJt IMF .1 DO .-:ND= *5 ) LFFCRp 

1F{ I CAoE* EO, SELECT ♦ GR. IC A SS • =0 • DEL ST E * U 0 • I C A SC • E Q • E NO AL L ) GP TC 
cNw = #FAt_Sc» 

IF ( I .Ll * £ C I GC TO AO 

IJLTP. 1 Cl ) IPAGE 
1 PA(>c= I P A C E + 1 

oofo 7 REPRODUCIBILITY OP THE 

>o .kiuuou»,ki-’i ORIGINAL .PAGE IS POOR 

1 = I + 

GO T u 7 ‘ 

" > Ha 1 UD 1 NIP 
h»i T U Aw 

ICC l-Du-un^OAl) 

1CI rjA^n * K1ST INC, TF MULTI-ARC OuOOVM SG 7 - « . -3 3 X . * HP AG E . I 3 /// > 

1 0 c K Jh .’AT (1 X , 2 0 A A , 1 D >■ * [A) 
l 0 J r Ju*»* kT t / / / ) 


AL I S 

1 F. 

AL 1 S 

1 9 

AL I S 

2 0 

AL 1 S 

21 

AL 1 S 

22 

AL I S 

23 

ALIS 

2* 

ALI S 

2E 

AL I S 

20 

AL I S 

2 7 

AL I S 

?/?- 

ALI S 

29 

AL IS 

30 

AL I S 

3 1 

AL I S 

32 

AL IS 

3 3 

alis 

It 

ALIS 

35 

alis 

36 

ALIS 

37 

AL I S 

36 

AL IS 

39 

AL 1 S 

a-O 

ALIS 

A 1 

ALIS 

A 2 

ALIS 

A 1 

alis 

A A 

ALIS 

4S 

ALIS 

A6 

ALIS 

A 7 

ALIS 

AC 

ALIS 

AC 

ALIS 

SO 

AL I S 

Z 1 

AL I S 

62 

AL I S 

6 3 

AL I S 

5‘‘ 

AL t S 

“ z 
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10 0 0 FUUMAT (lt-£«2ex,S(!H*)/?0X«7<lH*)/19X»9(lH*)/I-3X,4H«***ft2X,4H****/ ALIS 
• 1 oX » 2H* * * t 3X» AH* # **/ 1 7X » A H ** * * , 3X , AR+ *4 */ 1 7 X *4 H * «* * » 3X » -VH* * ** AL f S 


« .:/ 1 7X .in* *« * , 3 X « AH * * * «* £.X , 2H* * */ 1 7X , 4HS*' ** , 3X *4H* * * * . 4 X * M. I S 

• 6 ( U* * J ♦ S3X , 5 ( ,54X,5(1H*)/ AL I S 

• ldXft4H*e*<'ftlXt*H*»**'lX«8<lM*),=3X,eUH*)/19X.l2{lH*)>lXft ALIS 

• .. 4H ** « * , 6 3 X. ah* + ** / 20X *9 ( 1 H * ) . 3X , ah* *** * 5 2X . 4H*-* * * /2 1 X , 5 { 1 M* ) ♦ ALIS 

• ;• 6X.<lh*****£2X. AL I S 

• * 6 ( ih 4 ) ♦ 3 X, AH* * * if , 51 x ,4H*‘ * * / I 3X , 0 ( 1 H* ) , 9* . AH** * * . SOX * AH* *■* */ ALIS 

. • 17X,=( 1H*), l0XiAM»»T*,'i0X,Ah*«**/lfcXt5(lH4c) ,J1X,4H*^**,45X. ALIS 

• •+ H* * **/ 1 5X i5( 1 H * ) « !2X|4H*<**|i9Xi4 H* ***/14Xo( 1H*)»13X* ALIS 

• <*}-,****♦ A PX.4H***“/13X, 5 ( 1 H* J , UX,4h*'*«,6X.S(lH* | ,3X.7( 1 H* > . ALIS 

• 1 IX «? ( lH* ) , IX. 4H* 4 **■ ,4 X,7 < 1H* J , 7X . 5< l H* I ,4X »6( 1H* ) , 2X « ALIS 

» ,7(IM)I ALIS 

2 0 00 FOSMAT ( 1 2> .M 1H*)i 15X , , 3X, 1 C( IH* > . 5X , 1 0< 1 H«.) « £ X » 1 3 ( 1 H t } • ALIS 

• 5X» 7 ( 1H* ) ( 7X, £ ( ! HW ) , AX, fi( 1 M* ) , 1 X * A t 1 rt* > / l IX* D*{ 1H* ) * i 6 X » Al 1 3 

• } 1 ( lH*i ,^X|12( 1 F»),DX,l3(lH*),6X t 7UH* !,7 X,AH***a, ALIS 

• 5X* 17( tHt) /2X , SI 1H») ■ 2X< 5 ( 1H* ) i 17X » AM «* *«, IX* , <iX , , ALI5 

« AA*iF7**»,bX*>t**,6X,f H****, ALIS 

• t,X,t(lH«)»5X.t|-*an.*/ 2X*5(lH«h 1X.’5( 1.H*} ,17X,AH«»*ft,<vx, ALIS 

ft 1 1X*4h * * * * * 6X,?H**» I 6X, 4 H * * * * , 6 X * 4 M * * * * ■ } X , - a h * * * « , ALtS 

• ,17X,^M****,6X, ALIS 

• 5 M h 4 I * 6 X * 3H * * * * 7 X * 3 r* * * * SX • 3H * * * * 7 X * <■'.- H * * * * * d X . AH * * * * , .j X * ALIS 

• 4 t-« ft <ii , n X, ah* * ** , 7X . AH* ■*“ * 4/= X , 7 ( 1 H* ) * 1 7 X * , 9X . 6 ( 1 H* ) , ALIS 

• 6Xith'“'**i7Xt3F‘*f.AX,tH»***,7x,4H*«t*i7Xi4H****,7X,AH****, ALIS 

« £,A,flh*it<!*,7X,AH^»*/6X.5( IH* ) . 1 7 X , AH**« ? , 7 X . AH«# ♦ * , 1 OX , 3H***,ALJS 

.• . t$X * .2 b* t,e ,* x * 3H «.*• *- , 7X « . ALIS 

• AH 4 * * 4 , 7X * * , 7 x* 4H*** * «4X « &H** * * , 7X , AH****/6X • 6( 1 H* ) • ALIS 

• Ji'A|Ah<»-4»,7X.‘.H**»*,10X t XH>:*’'* 1 7x,4H**«*i3X,AH4*»*,6X, ALIS 

« 5UHO .7X,^-H***t,tX,e( 1H¥ J,2X,4H*^*,7X,AM*t«t/^x,cjnH*) , ALIS 

• 1 3X , 4H* * 4* , gx , AH* + * * . I OX , 4H* * * * , 6X *4H* * ** , 4 X , 4 H* * * */, 5X , ALIS 

ft f-( 11*4) 5( IHt ) ,3Xi 1H4*4-*,7X,'H*«*« | ALIS 

- 20C J F JkMAI (JX,it-*v**i2x.l91 l h * ) , 3 X ,;n»ii**,Ax ) 4H««**,3x, ah****,5X, ALIS 

A- H*" t»T,5X,.\H«:r.*».Ax,7( 1H4 l.^X, yH**»*,5X,'j< 1H*1 , jX.AMt#**, ALIS 

• 7x,^M-»r-*/3X,F:( lh»l ,AX, 1 i(lM') .9X. 11{1M«) ,AX,1 2(IH*),6X. .ALIS 

• AH **F*ttXr;( 1H * ) t IX. 3H *t*,0X.AH«t**,7X<6UH*)/ ALlS 

• 2X« C UH* t c (1 F* 1 • 12 X* c ( l H « } • 4 X » 1 0 ( I H« ) <JX*S( IF-*) *2X* ALIS 

• * , 7X, 7{ ] h* )* 2X, 2H*** ,7X,6( 1 M« ), dX , 7( lH* )/ 10 IX, 4H*«*-/ ALIS 

• )'JlXilH4-»*t/lC0X,AF****/l C0X.?.H*'« If *'/39X*AH«««*/7Cx,Ah****/ ALIS 

• V&X * Ah *** ►/.IX ,2 5 ( 1 M* ) * 4 3 ( 1 H 4 ) , 30 { 1 H* ) /2X , 92 ( \ H* ) / 1 X * 99 ( Irt * ) I • ALI5 

L-WO ALIS 


ssssss 1 -^ 


56 

s? 

so 

5 * 
6 0 
SI 
62 
63 

6A 

65 

66 

57 
68 

69 

70 

71 

72 

7 3 

7 A 
75 

7 6 
77 

?e 

70 

60 

31 

82 

33 

84 

8 5 

8 f 
P 7 
■» n 

£9 
90 
H 
7 2 

9.3 

9 A 

95 
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SAKE 

PURPOSE 


ALPMRC 

e 

CLOCK DATA STORAGE OF ALPHA- MUMEP I C INFORMATION 
USED IN CCODYN PAINT FORMATS 


CC AMCtN DlOCKS 


ALPMRC 


Block data 

IMPLICIT REAL** { A— 2 > 

LOGICAL 

CCMMCN/AL PMAC/I THMS < 5 ) » T I MING* EL AN'< • A TV PE (31 >• UNITS! 1 5) * SLCUT * 

« ’ ri Y P L K 

DATA BLANkZBM / 

DATA T I A I NG/ehT I m I NG/ 

DATA UM T £/CHSrCONO »6HRAD IAN*^ l-MLTCRS.fOHM/SEC^ OHMETLRS* 1H » 

• 3fCh:?AClAM,?*JH « OH *'/ S L : C i 1 H , 2 * 5 HR AO IAN/ 

DATA 4TYRt/6W,T ASC AMCr. ,61-R P A T L! • 0 F F r i G F T « 6H ALPHA «6HX 4NGL * 

• 6MAZ.ML 1H. bhC-ECL I N , 2 - 1H ,CMH R A T i 6 HL‘ E T A ,6HY ANGLttHELEY » 

„ 3H X , :-H Y * 3H Z « OH XDOT*Sh YDOT.SH ZDJT, 

• 3H A*CH C.5H I \CL *:H NOD E , 5H PSRU.5H MS AN, 

• 6 HT OLAY, 6FFRI G PT«ftr>AV£ F-R, £H.\VJ PR.fiH ALL/ 

'DaTA I 1 t vMS/f,HF I .1ST iCH LAST i 6 H TF R A T- ,3 H I 0 N ♦ A H AND/ 

ENO 


AL R t-* 

4LPM 

ALPM 

AL 0- ^ 

ALRM 

ALPM 

AlPM 
6LPM 
A!_OM 
al°m 
AL >‘ J 
ALRM 
AL°M 
ALPM 
AL°M 

AL°m 


l I 
12 
I ? 
1 A 
15 
ie 

17 

IB 

1 r i 

r\ 

21 
22 
? 3 

2 a 
25 

•)A 


REPRODUCIBILITY OF THE - 
ORIGINAL PAGE IS. POOR 
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h AM£ 


AND2 

purpose 


TWQ UYTF INTEGER *ANO* FUNCTION 

C All 1NG S£ QUfc I^CE 

I = AND 2 C 11.12) 

£ Y-F.BO L 

I Y PC 

OESCR IPT 1CN , 

2 1 

1*2 

INPUT - FIRST INTEGER 

12 

I *2 

input - second integer 

AND2 

l 

OUTPUT — AND OF 11 £ *2 

SUtRCUT l n£ 

£ USED 

NONE 

cof«» / .o*^ bud 

CK.S 

NONE 

INPUT rlLF.S 

. NONE 

OUTPUT F I L £ S 

NONE 



AND2 

26 

INTEGER FUNCTION AND?Clli‘I2> 

AN 02 

2 7 

EQUIVALENCE { If.ND.RAND> 

AN02 

2a 

I NT w G'_ R* l I 1 • 1 2 

AN 02 

20 

FIND LJGICAU / NS CE THE ARGUMENTS 

AND2 

70 

Jl = I 1 ’ 

• AND 2 

7 1 

J^= l c 

AN02 

7 2 

N ANU = AND ( sj 1 • J 2 ) 

AND 2 

33 

. AnUE = 1 A 'lG 

.AND2 

3 *. 

hit TURN 

AND2 

? 5 


cNJ . 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 
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kam£ 

PURPOSE" 


APPER 


TO COMPUTET satellite apogee height 
HEIGHT 


AND PERIGEE 


CABLING _ SEGUE NCE 


CALL APPER 


SUBROUTINES U5EC NONE 

common Blocks -aparam 

INPUT FILES NONE 

OUTPUT FILES NONE 


CEL EM CO RBI 


INTBLK 


REFEPEnC es 


•geodyn systems c L' SCRIP TI GN ' 
VOLUME 1 - GEGDYN DOCUMENTATION 


CDNSTS 


C 

c 


c 

c 

c 


SUBROUTINE AFFER 
IMPLICIT REAL ( A-K, C-Z ) 

CUH^3«\/AHAR/.V/INPAP ( * , ,NSA Tt N G PAR C C5 } 

COMM^C.L^/ iL ( s , ;i , CSBSCAC 6 . 3 ) . XW...C. ,STO 

<0*<u^ >; lv j |/ S av)OT(JI .ff‘?mjl.S S „T(2,, 4 »HT( ? ,.p„ (2 , 

.^ li N/ l k,.u /,™ T(11 . J ,, 4f< . ()ifuTiFsl! , 2 .FFSM?!cm 3 57 , 
COMMuU/._CNSTS/~PI i i>7'*3F ! , C P A 0 . CWStC 
DO 10 I = l «N i;.T 

SPol'oS!^ :^ LA(3,I -^ AC )*C s lN { 0PaELA(^I),0RA0 l 

CALCULATE THE .“^Th RADIUS TO THE CIRCL- OF 1 INT c HS = fTin M y 

sa.i£cli r c semi-major A xis with the spheroid 10N CF Th 

tAKlK= AEiFSOEE*3PS I SC * *2-F r SG3 2 * SP 3 I SO 
AiiSAT = u«CwL*V( 1 ♦ I ) * P A B E L A ( 2,1) 

CALCLLAT- The i°Cr r H AND PEPIC-EF DISTANCES 

HEIGHTS 7 '" Lj7 1H cA ''™ ^ A0ICS TO CALCULATE APOGEE AND PERIGEE. 


PcMT ( I ) - ( CRt 1 E LA ( 1 ♦ 
10 AP.fT ( 1 ) = (CROSLA ( I , 
RET U H w 


1 ) AE S A T— £ 4R T H ) c I , 0 Q— 3 
I I ♦ J ESA T— EARTH) ^1 , 00—3 


c.NO 


APPF 

22 

APP£ 

23 

APP£ 

2 A 

•ARPE 

?5 

APPE 

26 

APPP 

27 

APPE 

2 S 

APP£ 

29 

APPC 

3 0 

AB P'E 

31 

Appl 

32 

APPt- 

33 

APPL 

3^ 

APP£ 

3S 

APPr 

36 

APPE 

3 7 

APD£ 

3S 

APRS 

39 

APP£ 

A 0 

A P P£ 

A 1 

APPE 

42 


REPRODUCIBILITY of THF 
original page is poor 
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NAME 

PURPOSE 


CALLING SEGUENCE 


SYMBOL TYPE 

0GTRT DP 

( 1 ) 

dSENO OP 

( i i 

. oIAiO OP 

( 1 ) 

zi £ 1 A ^ DP' 

< 1 ) 

d 1 A S3 U O P 

( I ) 

□TYPE 142 
< 1 ) 

oST AN J l » £ 

( 1 ) 

DIASNJ or 

( 1 J 

(j{‘VAlO op 

i I ) 

u P S I G DP 

< l ) 

GPnO X 4 c 

( i > 

(j P V Al dp 

< 1 1 

I NoXC 3 i*2 

< J* i I 

SUBROUTINES USED 

COn -• i o n Blocks 


ARCPAR 

TC LOAD INDIVIDUAL ARC PARAMETERS f.INTO VARIABLE 
STORAGE ARRAYS 

CALL ARCPAR ( &STR T „ B SEND . O ! AS 0 , GB I AS * D I AS SG . O TYPE » 
BST ANOf B I AS NO , &‘ 3 VALO ,G°SI C.GPNO* 

GPVAL . I NO XCSJ 

DESCRIPTION 


OUTPUT - BIAS START TIMES IN DAYS FROM REFERENCE 
•JAN 0.0 

OUTPUT - BIAS ST CP TIMES IN DAYS FROM REFERENCE 
JAN 0*0 

OUTPUT - A PRIORI BIAS ESTIMATES 


OUTPUT - CURRENT BEST Li I A S VALUES 

OUTPUT - STANDARD DEVIATION OF BIASES AND DRAG 
AND SOLAR RADIATION COEFFICIENTS 

OUTPUT - El AS TYPES 


OUTPUT 

OUTPUT 

OUTPUT 


BIAS STATION NUMBERS 


BIAS I N C I C i 3 




A FR I OR I VALUES OF ESTIMATED 

gecpotential coefficients 


OUTPUT - A PF I OR I SIGMAS CF ADJUSTED GEOPOT ENT I AL 
COCFF IC IFNT 5 


UUTPUT - LOCATIONS O c GEOPOTENTIAL PARAMETERS IN 
NORMAL MATRIX 


OUTPUT - CURRENT BEST VALUES OF ADJUSTED 
CECPOTEMI Al COEFFICIENTS 


- indices of adjusted geopqtent I AL 
COEFFICIENTS 


OUTPUT 


STORE 

A P A R A v 
-MODEL 
T ( EBL K 


CLEAR 2 

CONOUT 
H XUL V- 
VRLL J K 


O A 1 A R O 

CON 3 T S 
Intulk, 


NUV-JR2 

CP AR AM 
PR UP I 
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iKt-VT FILj-S . NOME 

e 

OUTPUT FILES .NONE 




*geodvn systems description* 
VOLUME 1 - OEODYh DOCUMENT AT ION 


OFT 


ST J 


A, 

:» 

iT 


Sink OUT 1 NE tJ?CPAP(nSTPT # RSENO, VI 459 , U C I A S * 3 I AS SC , E T YPc ♦ 0 ST AO » 

3JASNC ,GPVALO.GPSIG*GPKO,GPVAL*INOXCS*32STNO.BeTYPE.N = aiA^. 

1 ST ANt ) . ■ 

IVlPulClT &EAH5 (A-h.O-Z)^ 

^NTEOik*^”TYPci iST ANO .3' I ASNC5. ESTYPZ .OSTNOS • GPNO • I NDXCS 
OUT ST A 

Dl^NS Ion OSTh'T ( M • *S£NC< l)*3IAS0Cl)»05[AStl)»3IASSGtl)» 

( ‘ "‘ T YFE( 1) .L-STANCH 1 J ,FIA?\-CM 1 J.GPVALOt 1 > . GPS I G ( l > * GPNO ( 1 ) • 

CPVAL { 1 ) . 1 NSXCS( 3 * I > . SU'-'l { l ) t SU-l.2( I ) . UISTNO ( NE DI AS) ♦ 
h T V P c ( N c " I *< S ) « l 5 T ^ NC ( 1 ) 

, CO.«^/A;^AM/l^»».INPAS..Nd^S.^rS«.HS*T.... 5 PA R CNC K£ Cl. N -lftAV 

‘cOMMCN/ClN^/JcjOn.KASCS.NSlABO.STASlW.SrARIW.^.AHTA.STAAT-3. 

»’ JNSTAT»OLT5TR ’ 

r- «-'r.^yi‘CN < :T r / f a 1 iOT a’OPI , CRAD.CPS3- 

CuVIuN / C P # P AM /N S T A . N M i ST , ».S T = S T , 1 4 , M J I AS . NGDC 1 . NGPC 2 * NGPCCM , 

, NCstiT .CVpCUR ,UM, LIM 2 .N 0 EN.NBi£WST , NT I 3 S 1 , NT l Dc N * I ?*Nk S * . 

« NCwSST ,!NOCCNS . „ . , . , , 

LCMMoN/F VC3^L/INCEXF{ A ) ,CS{ 30. 22) ,T0DEL( lv) 

Cuf-’MJN/rLAElK /L'T I‘-”i 1 { 9C0 > *f*T I M£2t 90 3 > ,iiSTY°- (500 > 

to i MGuK /TH'JOT 1( ; i 9 > . AOCP ( .: , 3 ) * UUVi ( e ) . 

t O^On/Pf- 1C'- T /ELc*MNt 7P) , C- AC,SC( 2, 3 ) . D A AGO ( 2 , 3 l ,Co(i~*3) 

„1N ST^dC AAC 1‘Fn^ATlCN 
CGMMU.m/ TFEELK/I MTP( ? > I SCRA,SCRC.FLTP(2> 

COMMON/VSELCK/M AS( COO ) *3 I A 5 VR (500) *0 ST NO j l 9 00) 

EOU1VALENCF ( PHASE, LCVEC5 > > 

CO 300 A « CNC = 1 « NA*C S 
IF( NEo 1A£ *Li • 0 ) CO TO 10 

RcAO < ) IS ST NO • 

|£ ANU STLA» CAPIAT ION COEFFICIENTS 

kt.AU (SC^C ) ^CTYPE 

^ T0 20 REPRODUCIBILITY OF THE 

£Z\Vi:V, ORIGINAL PAGE IS POOR 

CAuL 6 T J-U( . T 'Uf • . • F ALSS « > 
lF(i\jlAit.L:'.C) G'T TO £0 
CO u 0 1 = 1 . N r - 1 ASS 

J = n?-.STNo( 1 > 

4._i»T.* J( i U-iU'T 1 3( J. IS* aU0,NSTA > 

I'lU > - *- r » A S'- * 0 ‘ ■ A r> 

t . L.» l I.^T ... 0"" T-uirNTI AL r. £ . SON ANC 


ARCP 

67 

AkCP 

6 5 

ARCP 

69 

ARCP 

70 

ARCP 

** 1 

ARCP 

72 

ARCP 

7 3 

AR CP 

74 

ARCP 

75 

AP CP 

*»6 

ARCP 

77 

ARCP 

76 

ARCP 

. 79 

ARCP 

3 0 

, A P C P 

31 

AR '"J 1 

a — 

ARCP 

3 6 

ARCP 

o c- 

ARCP 

86 

ARCP 

a. 

ARC° 

3 6 

ARCP 

69 

APCP 

30 

ARCP 

'91 


c jff r- 1 c I -- n 


ARCP 

ARCP 

ARCP 

ARCP 

AKCP 

ARCP 

ARCP 

ARCP 

AR CP 

AT. CP 

ARCP 

AR CP 

A A* CP 

ARCP 

ARCP 

ARCP 

ARC P 

ARC” 

AVCP 

ARCP 


02 

0 2 
9 A 
95 
9 * 
97 
93 
99 

100 

101 

10? 

103 

1 9 * 
1 05 
1 06 
10 ? 
1 C 6 
1 9 r ' 
1 1 0 
1 1 1 
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DO i 00 

ICO «J I A?NU (1 J = 0 

it=o 

Ll^o^NSAt 

DO 1 bO L=iiNSAT 

DO 160 1=1.3 

n = i i + 1 

oixsot a i=cc(l. ii 

t/til Al»( ll } ( L i I J 

dlA.>bG( 1 1 )=PRAGSG(L » I) 

Injl X- AuC f* 1 1. « I ) 

15C 1 F ( I.NJr.A«C T «0 ) E IASNO( II 1 =L 1 + I ND£X 

NJPARC =9CC-NGPARC 
1F<MUPARC ,LT . 1 ) GC TO 200 
NGHCuKs.'ICSSiST-NGPCO^ 

CALL CLc Afi2< GPNO.NGPCLK, 1 1 
CALL CLt/»fi2( 1NDXCS, NGPCL-R .2) 

Lj 17 3 I * 1 , M*,PA?C 
11=901-1 

l.MJXC J t 1 , 1 >"uSTVP£{ 11) • 

KM=db7 NJS til I 
C STCku d 1 AS 

N=NM/1 00 
|t=HM~1n* ICC 
ZNJXC6(2 . 1 ) - N 
1 Ml>X CStJ*J)- v 
OPVALOil )=r!IASII t) 
vjr'i i u i i » — c. I A 5 'v A \ i I < 
iNi’Akl = I N F AH l+l 
GP.\IO( 1 ) = INPAHI 


C 


l^-Mf 1 

1F( I NO XC ; ( 1 * 1 ) * F O * 1 ) GC TO 175 
K=Al -W 


b‘~ ju -M 

wRITc JOT AHC Cat fi 

17 £ CJVAL ( I > =CS( \ .V >/-3 I A 5 V P ( T 1 1 

2 CC rr(N:SlAS*LT * 1 ) GO TC 2 c c 
lI=3*h5AT 
u) 2 j 0 I =■ l.Nd IAS 
I 1 s I +i_ 1 

dSTRI ( I J = £T I mf l ( I ) 
fcd2Nu< I ) s£TIME.?( I > 
olAJOl 1 1 )=51AS( l ) 
ctii as( ii ) - a . asi I ) 
cTTP£( I ) stbTYPE ( 1 ) 
e UjoOI 1 1 1 = 5 1 ASVTl I ) 
bSTANJl I |=b5T\r:S< I 1 


26C 
30 0 


c lAbNw ( I 1 3= 1 HPAJ I +• I 

CAuL li AT / h'.)( AUXNO. • T nu 5 • * « T R U5 * . * F AL S 5 . > 
Hu A | Nl> 5 C 
cNJ H II; SC a a 
H c. .* I N J 5 C *» A 


h^toh.n 

cMJ 


REPRODUCIBILITY OF TUP 
ORIGINAL PAGE IS POOR 


ARCP 

1 1 2 

ARCP 

I 1 3 

ARCP 

1 1 <\ 

ARCP 

1 1 c 

APCP 

1 1 6 

AP.CP 

117 

ARCP 

1 1 e 

ARCP 

l 1 9 

ARCP 

1 20 

ARCP 

121 

ARCP 

122 

ARCP 

123 

ARCP 

1 2 . a 

ARCP 

12 5 

ARCP 

12 A 

ARCP 

127 

ARCP 

12 3 

AP.CP 

12 ° 

ARCP 

130 

ARCP 

131 

ARCP 

1 32 

APCP 

133 

ARCP 

1 3 A 

ARCP 

135 

ARCP 

1 36 

ARCP 

1 37 

APO 1 

\ 3 » 

ARC 1 ' 

1 T.C. 

ARCP 

1 AO 

ARCP 

1 A 1 

ARCP 

K -2 

ARCP 

1*3 

ARCP 

1 «-A 

ARCP 

1*5 

ARCP 

K 6 

ARCP 


ARCP 

t R 

ARCP 

1 A9 

ARCP 

1 50 

ARCP 

151 

ARCP 

1 52 

ARCP 

153 

ARCP 

15* 

APCP 

155 

ARCP 

IS 6 

ARCP 

1 C 7 

ARCP 

15 5 

AP.CP 

159 

ARCP 

160 

ARCP 

161 

ARCP 

1 62 

ARCP 

1 6 3 

ARCP 

1 6 A 

ARCP 

1 65 
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NAM** 
PUP PC: 


AREAS 

TO COMPUTE THE ELLIPSOIDAL SURFACE ARCA LYING 
BETWEEN TWO FIXED LATITUDES AND TvfO FIXED 
LONGITUDES 


CALLlNo StiCUENC' 


XsAREASt Z1 « 12 « TL CN ) 


SYMBOL 

T YTE 

Z1 

DP 

Z2 

DF 

tlun . 

OF 

SUSP. CUT I NE 

S L $E 


DESCRIPTION 

INPUT - 2-COORDINATE ASSOCIATED WITH LATITUDE I 

INPUT - 2— COORDI MATE ASSOCIATED WITH LATITUDE 2 

INPUT - THE DIFFERENCE ('IN DEGREES) BETWEEN THE 
’ TWO LONG ITUDES 

NONE 


COMCN BLuCK; 


INPUT FILES 
OUTPUT FILES 


CONSTS INTDLK 

NONE 

NONE 


c 


DOUBLE PRECISION FUNCTICN A P E A £ t 2 1 « 2 2 . TLTN ) AREA 

IMPLICIT FFAL*?( A-H.O-Z ) . AREA 

LOGICAL NCT1ST 

CGMMG,n/CCNST.B/DF I « DTWOPI , OEG2RC,DFS£C AQ£ A 

COMMON/ 1,N t«LK/THDOTS( 3 ) .GM « AE ♦ AESOi FLAT ,FS0T2 ( 59) AREA 

DATA NOT 1 £T/, FALSE. / AREA 

2-.bu0* ( 2 1 + Z2 ) . • * AREA 

CCV.PCTE SURFACE AREAS OF ELL I F5CI D AL SURFACES AREA 

iF(NUTlST) CO TO io AREA 

NCT 1 5T = . T RUE. AREA 

ESU =F LA T 4 ( 2. CO-FLA T ) AREA 

C SO -At.SC*SSC AREA 

C =0 SUM (CSC) AREA 

ESJ =AlSC-CSC area 

fc*+ =oSU**2 AREA 

10 R(J~>T I — loDPT( C SU -*Z 1 ) * * AREA 

* JwT2- JSCPT ( CSQ« Z2* '2+FA J * AREA 

ARCAS=CAc£( • 5 CO *■ TL 3 N * D E G 2 h 0 * A L * ( ( Z.' , *ROOT2-Z1 “-J00T1 ) /dSG4ti5Q*DLOG( ( AREA 
* C* Z 2 OC T2)/(C e Zl +POOTI ))/CI ) AREA 


RETURN 

LND 


REPRODUCIBILITY OF THU 
ORIGINAL PAGE IS POOR 


AREA 

area 


29 

30 

31 

32 

33 
3^ 

35 

36 

37 
30 
39 
AO 
A 1 
A 2 
A3 
l A 

A 5 
A t 
e.7 
AC 
A 9 
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( eMrRY ) 



’ 

Co «-vp 0T6 

or 

To (z.LLtlVSC^X> 



. C. oka. pore 

SURFACE ft REA 

<?F EL/.XP SOID 




(ROT U R ff) 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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AVGPOT 


DESCRIPTION 

' f; 

Calls EGRAV to compute Legendre polynomials for - 
geopotential expansion for different latitudes. Evaluates 
potential at these different latitudes using even zonal 
harmonic coefficients only. 

Computes average of these potentials weighting by 
the cosine of the geocentric latitude. 
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NAME 

PURPOSE 

CALLING SEQUENCE 
SYMBOL TYPE 


AVGPOT • 

10 COMPUTE AVERAGE GRAVITATIONAL POTENTIAL OF 
fART li USING cVr.N 'ZONAL HARMONIC COEFFICIENTS ONLY 

X=AVG p OT( NLAT ) C 

DESCRIPTION 


NLAT 


INPUT - NUMBER OF LATITUDE DIVISIONS U 5 CC IN 
AVERAGE POTENTIAL EVALUATION 


D 3 CUTPUT - AVERAGE GRAVITATIONAL POTENTIAL OF THE 

earth 


5U3R OUT INcS USEC 

EGRAV 

COMMON BLOCKS 

CON STS 

INPUT files 

NONE 

OUTPUT FILES 

NONE 

REFERENCES 

•GEOCYN 


VOLUME 


fmccel INTBLK xyz- 


SYSTEMS C-£ SCR IPTION* 

- GECCYN DOCUMENTATION 


VRBLOK 


DOUdLE PRECISION FUNCTION AVGP OT ( NL AT ) AvGP 

IMPLICIT PuAL^'t (A-H.Q-Z) AVGP 

DOUBLE PRECISION KCDEL AVGP 

DIMENSION FCTC) ' AVGP 

CC MFCN/CUNS1 S/CPI . DTv.OPI ,DR AC . DRSCC AVGP 

■ CO.VMJN/F MUD ct_/ INDEX 1 , I ND E X2 » I N C S’ X 3 « 1 ND 5 X G « CS( 30 • 3 31 « MODEL ( 3 ) AVGP 

COMMON/ INTbLK/lHOGTl,THDOT2,THDT2StGM»AE.AE:SU,FLATfFS03 2(59) AVGP 

CCMMDN/XY Z/XYZ ( i> ) * R . R SO . I SAT ♦ 1 FORCE (2 ) AVGP 

CCMP.UN'/ VR.3L uK. / X Y 5 O . C O SL A r < 3 1 ) . £ I NLA M 31) , PR , PP S I » PL AMD A « AVGP 

• . P( 33 * 30 I « ALFNt 30 I . TPSIM ( 3^ I AVGP 

EOU I VAlKNCl ( S 1NP S I • P < 1 * 1) ) .(CCSPSI » P ( 2 * I > ) AVGP 

C INITIALIZE CONSTANTS AVGP 

FI = 1 . OUO-FL AT AVGP 

F 1 $C=F1*F 1 AVGP 

F2F=FLAT* l 2 *0CC-FL AT ) ’ • AVGP 

TH“IG = 0#C0t) AVGP 

XYZ (2 ) = 0. OuO AVGP 

CL AT- iat>. OOO/CFLOAT ( NLA T ) ’ . AVGP 

XLA I-~yO. UuO + 0*2ECOtCLAT AVGP 

U = 0 • 0 DO AVGP 

GMP = 0 * 0D0 • AVGP 

SUMCUS-O.ODO AVGP 

IF ( I N lit. X 2 *lT # 2 ) GO TO 20 0 AVGP 

C USE OIFrc.KENT LATITUDES FROM PULE TO POLE • AVGP 

OO 100 LAT=1»NLAT AVGP 

PS I -ALAI *DA AD AVGP 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


j u 

3 I 

32 
2 3 
3^ 

33 
3 o 
37 
33 
39 
AO 
A 1 
A 2 
*3 

A A 

AS 
AG 
A 7 
Aft 
A 9 

50 

51 
5 2 
53 
b A 
55 
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SI KPS 1 = 05 IM PS I > 

AVGP 

56 


SPS lo 0=3 l HP SI * * 2 

AVGP 

07 


COSTS 1=U5QRT ( 1 .ODO-SPS l SO 1 

AVGP 

50 


‘ RHL=Ac*E 1/DoUU C I-* 1SO + F 2F*SFS I SO) 

AVGP 

i’ ° 


XYZ (I ) = nH ONCOSTS I 

AVGP 

GO 


X Y Z ( 3 ) S I N P S I * 

AVGP 

M 

COM PUT »: H CL Y f < IjM NL S- 

AVGP 

t ? 


CALL cO>-c A V ( T H t: T G * P A S A T * r C T ) 

AVGP 

*• 3 


ThO 1X2- (R*THJ>T 25<=CCSr*SI ) **2 

AVGP 

6 A- 


su^=o*ooo 

AVGP 

6 5 


FN=C*0D0 • 

AVGP 

fc. 5 


DO 30 N = 2 * I*NO c, > 2 » 2 

AVGP 

67 


FK-.PN<2 t.0 DO 

AVGP 

OH 

59 

SUV=bL,vM FAMAJfi rs C N ) *P( 1,N)*CS(N»1) 

AVGP 

C <T 


U — U +SUM*C OS F 3 l 

AVGP 

70 


6MRsCf»Rt( GM/rM C » SDC* THDTR2 ) *COSPS 1 

AV0P 

VI 


SU w COS=AUMCCo4 COSPSI 

AVGP 

7 2 

1 00 

XL ai-xlat <■ dl a t 

AVGP 

73 

COMPUTE btlbHTEC AVERAGES 

AVGP 

7 A 


AVyb'uTs { GMk + L J/5UMCGS 

AVGP 

75 


RETURN 

AVGP 

7N 

COMPUTE fAO-bODY POTENTIAL 

AVGP 

77 

200 

GP R=GM/b3L>?<4c2*5GOO+(THDT2S»C3e 74 62*5500* DC OSOPJ*Of25DO) 1**2* 

.5 DO AVGP 



AVGFOT=GMR 

AVGP 

7 ? 


RET U F N 

AVGP 

SO 


END 

AVGP 

f* 1 
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NAME 

PURPOSE 

CALLING SEQUENCE 
SUBROUTINES USLu 
COMMON tLCCKS - 
INPUT RlcS 
OUTPUT FILLS 


LIAS 

TC EXTRACT BIAS START 
COUNT DIASES 

CALL DIAS 


STOP TIMES PROM DATA ANO 

e 


NONE 

/PAP AM CE PFEM PREBLK FLXOLK VP 3 LOK 

NONE 

NONE 


c 


SLENoLTINC BIAS 
IMPLICIT NLAL*C (i-H*0-Z I 
LOGICALVI Vt-FCPN,FhEPRO» TIMING 
'LOGICAL TV, 0 ST A 

INTEGER* 2 MT YF EtNMEAS .PRETYPt CLAN El »DTYPE » DSTANO , ISTANO 
I NT LOCK Kt.CNO 

L-IAS0|L'1A£5G 
C I M c tN S 2 J N f * i\ rf I / S ( 3 ) 

CC M (/JN/aP AW AM / INf’AR* I NP ARI»NOlAS»NSTSTA(2) *NGPARC»NORciCI (41 

• ••• ..viu A* Mtj-N/, GE P M c-j 4 / Ct^-ANi r (-3E4, T>*vI ST/«P- G { Jo.i ST-ANOCSCG / 

LG MMuN/PKtbLN / LA T « UtlbUi 2) «S11>1 t? I fNl’A PE »NMuAi> * 

0 H-HcTY? ( 2 J . C h ANlL * VHFCHN , PACPPC « R ECNO 
CC-MMON/F LXULK /ESTR T ( 900 J .0SEK0(900) , E3T Y^ £ < o o 0 ) 

COMMGN/VKOt-GK/EI AS C< 900 I »D!AS5G(v00 > . OS T AN J ( 9 0 0 ) . 

EOUIVALuNCE ( NEWT o »NWB I A S ( 1 J J « ( Nr WU t , Nw M A S ( 2 > ) * ( ME Wil2 i NwB I AS ( 3 J ) 
DATA TPASS/0* 1 C-* 1 / « 

I F ( Nd 1 A S • On. «NLhAfIC ) RETURN 
IF { I5TA«l_2. 0 } RETURN 

T* GST A = MT YPE » G T* 24 • AND, CHANEL • NE. I S TA 
TI.MlNt=*rALSc 

i as u=istanu( i st a ) 

ISO 00 !0U I-J|j 

CHECK FCR CURRENT EIA5 
100 NWP IAS< I > =0 

. 00 12U0 1 = 1 .NO IAS 

1 F< lbSTA* NE • 3$ T ANO ( I ) > GO TO 1200 
I l=cT YPEC I) 

J F { I 1 *Eu» 0 ) GC TO 175 • - 

IF (TIMING! GO TO 1200 

IF ( MT YPE • GT (2o ,AND * m TYPE * LQ • 11 ) GO 70 175 
IF(KT YPc.NL* ( I l-( I I/D \*7 1 ) CO 70 12 CO 
175 IF{CAY»LT*l>STP 1( I ) > GO TO 12C0 
IF ( GA Y<i LT • DScNC ( 1 ) ) GO TO 3CC- 
I F ( bSfcNut I I -H51r T ( I) ) 1 200,200,700 

200 BS TNT ( I J -UA Y . 

DSL NO ( 1 J = U A Y + T F A S S 
300 l F { £ T YPcl I » -M T TPr. ! * 00, 500, TOO 


01 AS 

1 V 

DIAS 

2 0 

BIAS 

2 1 

01 AS 

2? 

BI AS 

23 

BIAS 

2?, 

DIAS 

25 

HI AS 

2 6 

BIAS 

2 7 

D I AS 

2 C 

til AS 

2 v 

BI AS 

30 

HI AS 

31 

HI AS 

32 

BIAS 

33 

BIAS 

3 A 

BIAS 

35 

DIAS 

36 

D t AS 

37 

DIAS 

36 

BIAS 

39 

BIAS 

40 

DIAS 

A 1 

31 AS 

42 

DIAS 

A 3 

BIAS 

4 4 

DIAS 

4 5 

01 ^S 

A 6 

DIAS 

4 7 

BI A5 

4 6 

DIAS 

49 

BIAS 

50 

BIAS 

51 

BIAS 

5 2 

DIAS 

5 3 

DIAS 

54 

0 I AS 

5 5 
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40 q Newre-o 

GO TO 120 0 
500 K6*iU=0 

GO TO 1200 
£00 N £ V. c 2 = 0 

GO 10 1200 

700 l F ( i. A Y • G T • L* SB N C ( 1 J+TPASS) GO TO 800 
tiSErfvO ( I ) = DS£MM M + TP ASS 
GO 10 3u0 

800 I F < dT Yf J c.( I 1 -BT YPE ) 9 00 * 1 0 00 « 1 1 00 
SOO NiiV. lo = l 

GC TO 1200 
1000 NC V. E l = I 

.GC TO 1.2 0.0 
c ACD NEW BIASES 
1100 NCVG2-I 
1200 CUKT1 NU£ 

DU 1300 1=1.3 
I IsNftblAST I ) 

C INCREMENT blAS COtNTEH 

IF { 1 1 *EU. U > G L TO 1300 
C SAVE. NE V. El AS £5 

I F { Nd IAS» Gt. iNC-FAKC ) RETURN 
K9 I AS = N3 I ASM 
BlASS0(NOlAS)=eIASSG( II > 

S I A£0 (N31 AS > - t 1 ASO t I I ) 

, CTYPfc (Nol AS ) = t 1 YPE ( I 1 > 

BSTHl (Khl AS ) =t /Y 

BGENDINlj I AS ) ~ C /Y + TPASS 
US T AtiuJ'uli I*A J / - » k . J'T r* ^ 

1500 CCN i 1 

IF ( .NOT.T WDSTA ) RETURN 
TIMING =«T RU G « 

TWC3TA=«FALSd. 

iosta—ist an ut c^anel) 

GO TO laO 
END 


BIAS 

56 

BIAS 

57 

DIAS 

SO 

DIAS 

rc 

91 AS 

60 

BIAS 

t 1 

BIAS 

02 

PI AS 

0 3 

DIAS 

6A 

BIAS 

ft 

B I AS 

66 

BIAS 

67 

BIAS 

6 0 

BIAS 

6 v 

31 AS 

70 

01 AS 

71 

31 AS 

72 

BIAS 

7 3 

DIAS 

7 A 

01 AS 

75 

0 I AS 

7 C 

31 AS 

77 

or as 

78 

PI AS 

79 

BIAS 

80 

BIAS 

SI 

BIAS 

?2 

BIAS 

S3 

01 AS 

iJ A 

DIAS 

n c 

BIAS 

J v- 

DIAS 

e.7 

01 AS 

fc'C 

DIAS 

36 

BIAS 

90 

e i as 

9 1 

DIAS 

92 
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PURPOSE 

CALLING SEUUENCE CALL DM7 VK T t SUM 1 « SUM .2 « INDXCS « GPNOi GPVALO i GP5 IG » 
■ CSTAXC « I STANO *STAXYZ *F I LENO > 


. SYM0OL TYPE * DESCRIPTION 


Sum i 
< n 

DP 

I N PU T - 

NORMAL MATRIX IN VECTOR FORM 

SUM 2 

(1) 

DP 

INPUT - 

RIGHT HAND SIDE 

INDXCS 

< 3, l ) 

1*2 

Input - 

INDICES C F ADJUSTED GEOP DTE NT I A L 
CCE FF I C 1 ENT S 

GFNQ 

( 1 l 

I * 2 

INPUT - 

LCCATICNS OF GF.OPOTHNT I AL PARAMETERS IN 
NORMAL M/TRIX 

GPVAL 0 

< 1 1 

DP 

I NPUT - 

A PR I C c I ESTIMATES of geopotential 
coefficients 

GPSIG 

(1) 

DP 

INPUT - 

SIGMAS OF ADJUSTED GEOPOTENTLaL PARAMETERS 

tST AND 

(1J 

I *2 

INPUT - 

master station NUMBERS for ESTIMATED 
STATICNS 

. ISTANO 
( 1 ) 

I * 2 

, I NPUT - 

station numbers 

*TAXY z 
i 2* i ) 

DP 

INPUT - 

STATION COORDINATES 

F I LE N O 

1 

OUTPUT - 

file NUV3SK FUR THE u-matrix tape 

SL6RGUT INES 

L SET 

N'J-L-IF 2 


CC NfMCN 3LJCKS 

AP AKA M 
I N I T P. K 

CPARAK CSTAT C ST Inf FLXBLK 

INTPLK PRIORI TPEdLK VRBLOK 

INPUT FILES 


NONE 


OU IPLT F ILLS 

B MAT T P - 

CUTP 

FE perenc es 


• GECD YN 
VOLUME 1 

SYSTEMS CESCR1 PTICN* 

- CEOCYN DOCUMENTATION 



« GE DO YN 
VOLUME 3 

PROGRAM OPERATIONS DC SC r < i P T l U '1 * — APPENDIX C 
- GEOCYK document at I JN 
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BMT'WRT 

70 WRITE OUT b-MATRlX 
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THi'wn'r 

JJI'l 1 * i A V * 
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Sl/JKOUT I Nfc BM TV.'RT ( SUM 1 .SUN’C.lNCXCS. GPNO * SPV AL 0 » GP 5 I G * EST ANO « 

• I.STANC «ST A XYZ , F I LCNC ) 

IMPLICIT P£AL*e ( A— h * o-z ) * 

LOGICAL O'POPP *PRN«AT 

iNTLGck^I GPNC . EST Al\0, 1 ST ANO * I NDXC 5 

iNTii GE R EC T Y F * ZERO tCOCC * H S T S T A* ON 2 » £3 HATNOi OMATTP t ADD R«ADDRD»SFAD 

• O’JTP* FiLFN-C 

i< t /\L MATNAM**-ESlP*C»IGt *TSL^T 

Cl MENS I UN 5LM 1 ( 1 ) * S UM 2 (1) i ir[>XCS( 3*1)* GPNJ{ 1 ) * GPVALO ( .1 ) • GPS I G ( 1 ) ♦ 
« EST ANG ( 1 ) ♦ I STaNO ( 1 ) % ST/ XV? ( 2 . I ) 

DIME NS 1GN c EC TYP { 7 ) , MATNAK ( 3 ) 

COMMOh/AP/SjAM/lNPAP * INPAR I.NOl A S , E S T 3 TA , MS A T * NGP ARC . NOP EC 1 .NPAPAM 

• Nt li IAS » M A X P A P 

CCMMCN/CF / RAM/NS r A , NMA ST * M5TE ST « ND IM * M'J-I AS* NG^C 1 .TIG PC 2 , NGPCC-M , 

• NCShS T .CMPCPr’ ,t_M* 1 . LIM2 . NDEN iNDE'JST , NT 1 DST , NT iCEN* I NNRSW, 

• NCUNS T *NDC CNS 

Cu-AM.JN/CST AT/f-r SI Q. SI G •NMTCT , 1 SUVT 

CO*-1MJN/C£1lN r / JJ, F ASHG( 2t£ * .NOBS. LB AGE 

CUMMu.\/r LX ELk/c* ATP X ( 1 CO i > . VAL LS( 1 000 > , V ( 3) * FLXJl (21 ) 

COMMON/ I N ITpK / I N I T‘M ( A- A ) * FPN M4 T , P'AT-fsC . I N I T 2 2 { 11 >■ * 

CJMMJN / I N Ir*LK /I r : T n I ( 1 1 A ) f /.OOP ( r ) « ASJ-Ol 2 1 * SRAD(.2 i * I NT32 ( 3 ) 

CO -OiLiN/PF. iO^l/rLE^0(6»2)tPP I OS 1 ( 7f ) « CO ( 2 ) * C D D ( 2 I » LM I S S ( 2) 

COMMON / The &LK /IN TP » CO TP* 1 T A PE S ( 1 0 ) 

COMMCn/VHLLOK/VP El ( 6 > ,LABiL( l COO ). I MOV* ( 1 000) , IVRB2< 1 IB 1 

Data kcCTtp/icooi* 10002 * 1 cc 0 2 • 1 o 3 1 1 , 1 0 0 1 2 ♦ 1 o j 1 3 * - 1 dr 31/ 

C'V T A V A T T Y P/ 1 / * i T n a m / 7 * c H / • Q NS / 1 / « Z F TO / 0 / . C U DC / 3 / 

rkMATTf*/***/ 

I.^OX.MJ ( l ) -NO. p'* ( I- 1 >- ( I* ( 1-1 ) > /2 

NCON s.4AX G ( AT DP( 1 ) * ADOS ( £ ) , AODR C < t J • ADDRO ( 2 > « SR AD ( 1 ) * ST AD ( 2 I ) 
KPA'*. V = NGF CC '-♦* D^NMAST + S *N SAT +NC CN ^ 

C WP ITC hlrtUtk PECO FT* - * 

NELM = NPAK f*4- 1 
V(1) = *T:>CNT 

V ( 2 I - » T S C y T 

V ( 3 ) = 0 . J C C 

*k 1 T d { 0 V ATT ° ) RECT YP( 1 ) * B *•’ A T N C « N P A-i M ♦ N L M » V * N OB S » M A T T Y P » M A T N A M 
C F R C M Trtlu POINT TO L A f * F L SC«*. 

C PECRCiA ou.O INTO PROPER OFCEF FOR 3-VATOIX 

IF (Pi*,\MAll WRITE C OUTP, ICC01) 0 M A T NO , N P AT M , NO B S 
C DFNu«MA_IZE T BE PART IALS FOP GEDPOTENTIAL CUE-r ICICNT5 
lr ( NjkCi v*Lt » 0 ) GC) TO 3S 
Ks.mCSE 5T- NGPCCM 
CJ 10 I-l.NGPCOM 
N = < ♦ 1 

LA JEL ( I ) s ( INOXCSI 1 . K I * 1C0 + INDXCS( 2. K ) ) * 100+ IN0XCSI2 , K) 

IRUA liJ-CfNC( I) 

VmLUE l I } iO'V ALO ( I > * CPS 1C t I ) 
j i s I ;; l>. < i J 


I|slN>AMUl > 

C. j s j- j i ,no i r 

I j- 1 i » j 

SO -‘l ( 1 J i - i -JM I (121/ GP S I G ( I 1 
CuNT {.SiLE 
12-21 

027 11=1*21 


„ m Of 

,\3C®^r iS ?00^ 






BMTrf 

57 

»?m r h 

SS 

PMTW 


e«rw 

SO 

PMT ft 

6 1 

PMTW 

52 

p m r w 

c 3 

o.mtv; 

f * 

t ; '* T „ 

t & 

DMT •< 

a r. 

ni'T a 

f;7 

T /i 

6 *‘‘ 

P.VT t! 

C — 

KMT i 

70 

R M T r. 

7 1 

nvT W 

7 2 

6 MTW 

7 -* 

E?MTW 

If. 

■2 *• r w 

75 

RMTv; 

?A 

Sv. T v; 

77 

Bo‘T* 

7 F 

?3M x v,' 

79 

flMTW 

SC 

B M T V 

F 1 

- O ' 4 T v: 

p 

B m r .v 

63 

>JMTW 

r.A 

0 :-*t v 

3 5 

P v T r 

Be 

B •* ’ T »; 

A "» 

E v T a’ 

r» ^ 

EM. TV= 

t «• 

*V/TY.' 

oc 

PM T / 

' T 1 

P * • T y. 

P 2 

PMT ti 

Q 7 

*Jmt i 

o,*. 

BMTW 

c c 

RMTr 



•v~ 

6 mt« 

■J A 

ev-Tw 

90 

•3 MTv.' 

1 C 0 ' 

(VAT;/ 

101 

OMTw 

102 

BVTyf 

103 

f VTy; 

10< 

BMTiy. 

105 

1»MT« 

1C' 

0 * T 

17’ 

PMT*' 

ICO 

°MT V- 

1 K 

OMTW 

1 1 0 

BAT 4. 

1 1 1 
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SUM1(IJ>=£UMHIJ)/GPSIG(I ) 

• 1 I J + NO I I*- l i 

7 CUNTINU-l 

£UM2( Jl J-SUM2 (Jl )/GPSIC( l ) 

1 0 CUNT 1 NUi 
k = hGHCC<M“ 1 
CO. 3 0 I = 1 »K 
IPl .051 = 1M 

CO 2 0 J= I PLUS 1 % NGPCCW 

IP (LMtit. i_7l)#L~*LAiTE:L(J}) CO TC 20 

UTiiMP=LAtLL ( I ) 

U;)LU( I ) = L A L: 5 L ( J > 

LAU5L ( J ) = 4T c .rp 
NT"Mf’=lKC*( 1 > 

1WUV. 1 1 > = I F.O'* ( J) - * -r 

T u MP =VALt t ( 1 > 

VALUul I^UIUHU) 

VALUkl J ) - l^vp 
20 CONTINUE 

3 0 CU.iT 1 N ’J - 

3z If (NMAST.L6.C) GO TO £5 
C ADC STATION ADJUSTMENT TEPvS TO e-WATPIX 
Il=Nul M- J4.\iVAST-NGMC0^ 

L = 0 

Cu 60 I=T ,M1AST 

4 0 L-U+t . ■ 

Ir ( NU*»Jh 2(L*CSTAMO,NSTEST) *£Q .0) GO TO 40 
K=NGPCC M+ <1-1 ) ^ 3 
DtJ 60 J = J »3 

LAUt- l_ ( J t K )■ ( J+-< ) *1 0000 t I S 1 ANQ { L ) 
l 7i J,-, ( J iK ) = I ) J*K 
. VAuUcl J+K 1-T.T AXYZl J iL ) 

O 3 C JNT I i'iL; 
tO CONT I NU£ 

IF ( ts’ -m A d T -iL T # 2 ) GO TO £5 
KSHGPCC *1 ■* 3 

L = < NMA5 7- 1 ) ♦Nf.PCOM 

CO 57 I^.L.3 

Cu do J = l « L * 3 

If- lLAikin-:).LE.LAb£UJ + m CO TO 56 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


) lj'J I N U ; 


DO 5o I J — 1 « 3 
11 = 1 + 1 J-i 
J1-J»IJ 

M:mh=L Ac LI- (II) 
L*ot.L( i 1 ) = LA 3 r ; L < J 1 ) 
tAutH Jl ) =kTTf'P 
KTAMP= I P C * < II ) 

IK JA ( 1 1 i = H J* ( JI > 
iKjrf U l MNTlMP 
TdMP = VAl_Lt < I l ) 
VALUi-( II ) - V-LUl ( Jl > 
V.\LUl.( Jt |vT : VP . 

5 j v,Uv7lNUi. 

J 


PMTW 

11 2 

PM TV, 

113 

PMTW 

1 1 * 

ir.iTrf 

1 1 e 

D-MTW 

1 1 6 

RMTW 

n* 7 

FJMTW 

J If! 

BMTtf 

1 1 9 

SMTW 

120 

BMT i 

12 1 

PMTW 

122 

p.MTW 

123 

RHTW 

12' 

PMTW 

125 

rmtv: 

126 

RMTW 

127 

B.M T K 

126 

rm t v; 

1 2C 

BMT 4 

130 

RMTW 

131 

PMT.t! 

1 3? 

BMT V 

1 33 

eMT w 

13'- 

ftHTW 

135 

PMTW 

136 

PMTW 

137 

*3 MTV.' 

1 ?■? 

HMTw 

1 35 

PMTW 

l'-O 

OMT* 

14 1 

omt v 

1 A 2 

b m r rf 

1 A 3 

BMT •/ 

: t.t. 

BMTW 

145 

BMT W 

1 A 6 

E.MTW 

1 A? 

PMTW 

1 *-C 

RMT if 

1 A 9 

BMTW 

1 5 0 

BMTW 

151 

BMTW 

152 

3MTV 

153 

B W T W 

I 5 a 

PMTW 

155 

B 4T.V 

15 6 

DMT < 

157 

8MTV 

\~F 

OMT V' 

1 55 

DMT 2 

1 6 0 

3MTW 

1'; 1 

BMT ». 

162 

OMT < 

15 3 

PM TV. 

16 A 

HMTW 

t d5 

PMTW 

K 6 

PMTW 

167 
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C ADu EUHEnTS* O^'AG, 6 SOLAR RADIATION 
€5 V- L 4NS A T— NCJN 

CO -JO 1= 1 .NS AT 
IF ( Sf.Au ( 1 1 .LE *0) GO TC 61 
L=L+1 

LaucXU. ) = 201+ 100*1 
IROv/(i_ > =N£AT *( +SRAD ( I) 

VALUE l L J -dV ISS( 1 ) 

Cl IF ( AUOR ( I ) .LG. 0 > GO TC 62 

L=L ♦ 1 

LAJIL( L>=lll+10C*] 

I r?U W ( L J — N £ A T * 6 + A 00 9 \ I ) 

VALUE ( L ) =C0( 1 ) 

C2 IF ( ADDrcC ( I ) «LF .0) GC TC 63 
L = LI 1 • 

LAuLl ( L ). “ 1 1 2+ 100*1 
law* iu I-N£AT*e+ ADORDI I ) - 
VALUE ( L ) -COO ( I 1 
C3 CC TO J=1.6 

LAvJir.H u + J)=lOC‘!+J 
If.u A ( L 4 J ) -J * ( I - 1 ) *6 
VALdt-( L * J)=ELF.'-*0 (J « I ) 

7 0 C«j;*T 1 1\ UE 
L = L + 6 

eo coNTi.NLc. 

c PRINT u“ M a T A U LAerLS 

\F (P«iMAT) »\ClTr' f HllTP. P.flOCI 1 

:r? { j w att a ) ?rr tvd<;i . 7,'pn, n a 

IF (PtvN-MAT) WRITE ( OUT P,20C0?> 

IF (fnN^I) WRITE ( DU Tp.lOOOF) 

C PRINT J- MATRIX • ) V LO.vS 

IF (PhMAT) WRITE ( DUTP.2CCCA ) 

Cu 130 

Jl- l kU*( J ) 
oMAT-UU 1 = GUM 2 { J 1 ) 

CO I i C I = 1 .NPAR M 
U = 1 Aow( I ) 

1 J= I N-jXNC ("INC < I ! . J 1 ) > FMAXOt I 1 . J1 > 
t M AT W X ( I + 1 I = G L*-' 1 ( I J ) 

no Continue 

. ArJITd { jf'ATTP ) «=CTVP( 2) , (n».*ATBX('l I i !«1 .NCLMJ 
IF <P»,.\MA1) V.RITF ( PUT P.1CCC3) LAUlL(J> .('jMATRXt I) • 1 = 1 .NELM) 
C SET PAS A V T E A I3EN T 1TIE3 
1?C CONTINUE 

*.A1 T E ( JVATTF ) .%3CT YP{ A ) . b v ATNC, . ONE , hPAPM . ( ZERO* I =T . 7 ) , CODu . 
IF (P-iNMAll aTIT; <OUTF. 10011) 5* A TNG , NPAPM 

WHITE (j^ATTC) RcC T YP< £ ) , { LAF5K I ) . I = 1 .NPARM ) 

IF (Pr.NMAT) aSITT. { OUT F « ? C C 0 7 I 

IF (tVN-!Al) w R I T E (HUTF, 1 C012> ( L A J :L ( I ) . I « 1 . NPARM ) 

A k I T d luKATTP) SECT vtM 6) , ( VALUE ( l ) . 1 = I . NPAPM ) 

C PRINT J TiAILt T f. ('CURTS 

Ir (P^iwIAD * f- IT- ( JU TP. 10017) ! VALUE ( I ) .1 = 1 . N P A -T K » 

w A I r d ( JVATTP ) F-C!y;'( 7) ,!/!>'■) .1 = 1 . U-) 

A-vir^. (JVP TmU x-.CT YI>( 7 ) , ( ZERO . I = 1 . I A ) 

L N. Flue tv/Tli* 

F I l: N J sr I LEAL * 1 


l "I f n ,1 = 1 .ND4DMJ 


(LAJ3L( I ) . I-l .NPATM) 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR’ 


3MTW 

16C 

9MTV? 

169 

0*4 TW 

170 

D-MT H 

171 

CM T W 

1 "* 2 

DM T W 

173 

R.M T W 

1 ’C 

GMT rf 

17C- 

OMTW 

i 7 e 

GMT W 

I 7 7 

DM T W 

1 7 6 

fi M T h 

179 

3M T Yf 

1 SO 

dm tv; 

131 

R M T W 

132 

F1MTW 

1 S3 

GMT v; 

IRA 

RUT V 

I 16 

DMT W 

1 t F 

OMTrt 

1 37 

HMTri 

U « 

tlMTW 

1 DR 

3UTW 

1 ">0 

DMT w 

13 1 

DMT 1 

192 

p*4T:y 

17? 

DMT A 

1 O A 

P M T 

1 0 = 

RMTW 

196 

n m T v; 

197 

RVTV? 

1 

DMT A 

17? 

P.MTW 

20 0 

DMT /! 

?C 1 

OMTv; 

202 

GMT A 

203 

3 M T W 

20 A 

GMT V/ 

20 6 

DM TV 

206 

"MTV? 

20 7 

F M T y. 

2 OP- 

MM TV’ 

20 9 

GMT Vf 

21 0 

0*1 T A 

21 1 

M M'lT M 

25 7 

DMT V. 

21 3 

RM Tv/ 

21 & 

9 M r >.v 

21 6 

M M T W 

21 6 

£JMT A 

2 1 7 

O’-ITW 

21 ° 

0«T D 

21 7 

RMT V. 

22 0 

G '4 T W 

23 1 

DMT W 


MM TV. 

223 
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FOkMhT 

r _)rt f-‘ M. 1 

FORM AT 
fu«M AT 
FORMAT 
FU.-C-t at 


^RlTi ( OL TP * 2 OCO 5 > BMA TNG » F I L5 NO » 6MA T TP 

.(.,’-«TSIX .NO.. .16.' WITH-. I*.- RU*S ANT. REPRESENTING-, 
Jt>»* utlGHTi-D 'jnSSriVAT IONS* '/) G 

( ( 19 X « 7 ( 1 OX ( 15)/)) 

( lx.l ;: il o 015t^i i7016»o/(22Xi '*S7D15eOI ) 

An . i a . t » A-PKl O- 5 ! PAR AME TCP VALUCSa*/) 

( < 12-HAT^lX NC« '.I 6» '* 1 ' A-KKJU-fi . 

( ( 4 X . h II 0 X » 1 3 ) / ) ) 

( / (?X . irfTD 1 C .6 ) ) 

, A r i.c=m;NATiCN cf labels'//! x. 'C-o^.tsmi *l* , 

■u, •U^NVIX.'CCCPFIC IEMTS '.ex, ' S(N.M) ' , 4 X . • * MMNN / / 1 X . 

♦STATICS J JJ J* .ex, 'X(JJJJ)* »2X* ’ TJ J J J * /l X , f COORD [N hTaS ,9X ‘ 

• Y( JJ JJ) * .2X. *9J JJJ */2 IX, * Z (JJJJ) * ,3X,*7JJJJ‘//1X, 

* 20 LAP RAOlAT ION' . SX, *CR* . ICX, • J9I '//IX, ‘DRAG CONSTANT .'X, 

* CC, * , 1 CX , ♦ 2 1 1 ' // 1 X, 'CP AG DOT CONSTANT* » 3 X , 

*OD* t»X, « 21 2*// IX. *P0S1T ION* * 12X, • X* . 1 1 X. M01 '/l Xt 'AND* , 1 7X . 

*Y* ,1 IX. • 102* /lx. 'vrtCOITV , 12 x, • 2 * . 1 !X, ■ 103*/ IX. ‘VECTORS' . 

1 3A , ' XCOT • ,£ X . * 1 0* * /21 X* » YOCT • . = X . *1 05 */2 IX. ' ZOOT ‘ , 0 X, 10^ 

•JPMAT ( 7 H X , * CCLO^N LACFLS'/) 

9 •A?-' AT ( j £ X , • PA~ A'-'F TE. n LAtFLS'/) 

-OK.v. AT (*C novi' . “ 3 X, •p 1 OT-HANO * . 2X. { * - f > * ' NORMAL e-MATRIX « 

vo( '*')/’ LACEL * ,7X , * S IDE * . f-X. * * * ) __ 

: UP.MAT ( * 10-M ATR I X NC. Mti ' HAS BEEN WRITTEN ON F 1 L& N • t ♦ 

* u F LLTPUT UNIT NU* , .I3* , *'> 

;ND 


eMTw 

22A 

QMT W 

225 


22A 

BMT li 

227 

tJMT if* 

2 2E 

BMTVr 

22 ^ 

u mt V 

2 70 

DMT X 

221 

awT * 

2 32 

D/T 

-> T 1 

HmT* 

27 A 

« 'A T A 

2 35 

H MT .< 

?7 £ 

BMTW 

2 3"’ 

BMTrr 

23P 

*5'MT/. 

2 3-~ 

5MT < 

2A0 

6 M a 

2 A 1 

BMTW 

2 A 2 

DMT A 

2-^3 

«*M i 

2 A A 

DMT A 

2 AE 

3**T A 

c 


2^7 

QMT .< 

2Ai; 
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name bs to mo 

ENTRY POINT PURPOSE 

RSCMP1 INITIALIZATION 

DSC 0 M P TO COMPU r r ELECTRONIC DIANES A NO CO^'CT normal 

EOUATIONS FOP EXTRACTION Of Hr ELECTRONIC HTASFS 

CALLING SEQUENCE CALL 3 S CMP 1 I RT W4 « OT WO . n T WO f D TI M - f S UM 1 , S' |M > , NE B I A S • 

HE ST NO, N IJS'PCC , n=iy^£ ,nAOMns) 

SYMBOL TYPE DESCRIPTION 


B T W A 0 3 SCRATCH - VECTOR OF SU^S OF PRBOUC T OF SI AS PARTIAL 

( NEP I AS » 1 ) TIMES WEIGHT T!«“? ° AR T I ALS P- APJUSTPD 

PARA”? THUS 

DTWP 0° SCRATCH - V FC T OR OF SUMS EH PROOUCT DA DIAS PAFTJAL 

(1) TIMES WEIGHT TIMES RE SI OUAL 

DTWO OP SCRATCH - SUMS 0 F WEIGHTS 

(1 ) 

PTIME OP SCRATCH - DIAS T Imp ARRAY USFO to DET-omim^ START OF 

( 1 > N F W P A SS 1:7 S • . 

SIIMJ OP INPUT/OUTPUT - NORMAL MATRIX 

< 1 ) 

SUM2 OP .INPUT/OUTPUT - RICHT-HANO SIDE OF NORMAL EOUATIONS 

( 1 > 

NEBI AS 1*4 INPUT - MAXIMUM NIJMR = d OF FL EC T 3 ON I C BIASES IN ANY 

ONE PASS 

*EST NO 1*2 1NPJT - FLRCTPOMIC BIAS ST & T ION Nlji'H-s 

( 1 ) 

NUMBER 1*2 SCRATCH - ARRAY FOR COUNTING THE NUMBER 0 ~ 

(1) MEASUREMENTS IN THF PASS 

retype 1*2 inpjt - tlectp.intc bias typ" num R-R ^REPRODUCIBILITY OF THE 

m • ORIGINAL PAGE IS POOR 

PARI. OS 1*2 INPUT - MEASUREMENT parameter NUMBERS 

(11 

CALLING Sro-JENCF CALL OS CHRP ( I O I A S , P FS I n ♦ S I G* T | *omh *C , L l NN: R I 
SVMPOL. TYPE INSCRIPTION 

lUlAS 1*4 [NC\ir - ELECTRONIC DIAS ino-x NUMRFR 

RFS1D Tn IND/r - vr AS' IRE* '"NT OF SIGNAL 
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.SIG 0^ 

INPUT - 

MEASUREvtCNT SIGMA 


timf ■'*. 

I NPJT - 

time nc measurement 

t 

PMDXC OP 

( 1 ) 

I N PU T - 

MEASUREMENT PACTIALS 


U I N K F9 _ *4 

INPUT - 

LOGICAL SWITC*- 1 — .TRUE. 

= LAST I NN r P 
I TER AT I ON 

SUBROUTINES JS ED 

ST AI E 2 

. 


COMMON RL0C<S 

AP AR AI4 

CP A R AM 


INPUT FILES 

NONE 

• 


CUTOUT FILES 

NONE ■ 

- 



c 


c 

c 


SUP ROUT I N ~ 03C'-in \ ( &T v; A, BTWn, OT WR , RT J vc , c >u% « i , SU v? # Nj'n j A S » PE STNO , 

« Nl) MOCF . RETYPE . RARN3S ) 

. SU M •’ * NE R I AS , »■>£ ^TNOi Mljwnf P, HF T vw“ « PAS NO S ) 

IMPLICIT R F AL*r! ( A — H , C— 7. ) 

LOGICAL CMPGPR ,L i AHCPAJ? 

I NT FOE P * i. p ahnOS , ri*-.S ) N-.1 * nu''' Hh-i iMrTYJt 


INTEGhP PUCNU1 , PAR MAX 
REAL BT I MP,T IMF 


01 V SNS I ~JN HT WA f N r B I A S ♦ t > , RTW Of 1 ) ,RTVO( | ) , 

BT l w : ( 1 > , s * IM i ( I ) . F*1 M 2 < 1 > , O vr> x C ( l ) , 

PAPMT ( l } . BFSTN0( 1 ) , NUMriEP( 1 ) , n F T YP“ f 1 1 

CO '-'VON/ A* 1 AR AV/ I NP4R , I SOAR I , Nl ST e T a . N S t A S . NS A T . N G3 A 9 £ , 


RECNO l i NPAP AM. NR T ASF, PAP VA X 
COMMON/ '.P AR A v/MS T4 , NM AS T , NST FS T , NO {••’ . MR I AS , 
MGPC.l , NO r-c 2 , NG PC O NC S- S T, C ut>G'JU , L I '•* 1 , 

L I . NOCN, NO f-N ST , NT ID ST . NT I OF N, IVMPSW, 


• NCC) PS T , NGCONS 

I NIPKNCI I) - NO [M* ( 1-3 )- < I * ( I- 1 i) /2 
1N1T 1 Al I ?F 

NSTART - ND1V - 3* NMAST-NGPCOM-NT mrN-M 

PFT" tJON 

ENT PY n5COM=>( 1 HI AS ,PF. SID, SI C,,T IMF.PMOXC , LlNNr» ) 


I R1 =1 

I R2 =Npl \SE 


IF( iniAS.FO.O) GD TO S<* 0 
IR! = l Rt A~ 

I f?S = I R 1 

jr »;FN PAS" HAS STARTED, S">LVF 
I P ( T l Mr t s t , ( FT t >a • ( I r j AS ) +C 
SU*' 1 N r c N" 'HAL FOUATIONS e OP 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 

r 0» n IAS ORF VIDUS "ASS. 

. \ r - ! > ) Al TS sc Z 

C L TPfWJ C BIASES 


IOC wTr l.C^'/tSIG'-SIG) 


NU*-"CR< J M AS Jsrpi^ni IHIASJ + I 


OG ?*Z M 5 , n,\c? >.* A X 
t I - PA-S' >S { J > 


RSCO 7 a 
P^Cn 70 

Bscn pr 
Hsrn p' 
psrn p? 

MSCO p < 

Bscn pa 
ns co ps 
pern p/. 
Cisco pT 
Bscn p” 
RSCO PC; 
esen 9 c 

PSCO Q 1 
RSC.n op 
PS C 0 9^ 

RSC 0 9 A 
HSCn QS 
RSCO op 
psrn 07 
PSCO 9P 
RSCO 09 

nsr o ’ c r 

pp.cn « r. j 

ps on i.c’ 
RSCO * C 3 
PSCO * c A 
RSCO * C 5 
fie CO * OA 
psrn « p 7 

RSC.n , ^ o 

BSCO « r c 

nsen t c 
ssc n « 1 1 
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IF ( I 1 .0.0 ) C-n TO 20 0 

BTW A< | MI AG . J }= 0 TWA( I 0 IAS* J ) +WT *o«e>*0 ( J> 
200 CONTINUE 

HT W PC I H ! A S ) ■= f*T w p(.|RlASJ + *T ES I O 

RTv;n( t M! AS >=r*TvfO( I at.) +WT 
8T l«r.( !'H 4S) =T IM<= 

RETURN 

50C ARC RAP-NST AP‘ r . GT .NDI M «0» . .NOT. L I NMF.R 
60 c j=«: 

NsK‘J y % ?( I «1 J 
IF ( N.LF. 0 > ‘ GO TO I2CC 
C COMMUTE OIA) . 

OT WRJ j= 1 * j D •? /, M T wB(I PI ) 

91 A^ = BT -TU *PTW0( 10 1) 

1ST A = Bf- ST MO ( 10 1) 

SI C. 1 =DSORT ( QFLOAK N I * FT VO 1 ) 


MT V PK-n“ T V RE (101) 


PRINT 20 >0 ♦ ISTA. wr Y=>F .BIAS 

2CC0 FO-^-'ATO )*»*<=* STAT I ON* . I 3. * TYPF*.I?.« BIAS =».G05.16> 
C UPDATE STATISTICAL INFORMATION 

CALL ST A l 1ST A.MTYPE. SI G 4 . * 91 AS. N.WGAT) 

C CC^RECT NORMAL MATRIX 
DO t=l,H n AP4M 

SU y = HTw A ( I 9 1 , l ) A F’T WO I 
00 7C 0 * = I . NPAPAM 

L = J + K 

70C S'JV-I (L) =SUM1 (L ) -SJ«* BTwA( IB1 .< ) 

SU^2 ( I ) -SUM2 U ) -SJM* BTwp( im ) 

RT* A< IP • . I > = C.C OC 
IF ( ARCR \n ) GO TO 9 CO 
DO 8C0 <=NST APT , NO l 'A 


L = J + K 

80 C SUFI (L) - SUM1 (L- )-SUM* RTWA( I 9 1 .< ) 
•so :. J - J + NOI * - I 

IF(ARCPV-U GO to I2DC 
J= I NOXN ")( N ST 1RT ) 

DO lit: I =NSTAPT .NDI M 

SUM=OTVA{ I HI . I )*HT WRl 
DO 1 ?0C <= t .NO I M 


L= J + K 

I CC C SU M 1 ( L ) = s I J M I < L ) - 5U « * 0 TW A ( I H 1 . < ) 


SU v 2 ( I > = 5 U *2 U ) - SU m * R to 0 ( I 9 \ ) 
BTW A( IHI « I ):=</. CD l 
1 IOC J = J*NUI 1- I 


C 7FR0 SUMMING ARRAYS 
1 200 9 T A *-* ( I F *. ) = O.CDC 
9TWD( IP l »=G*ODC 
9T | vf ( | k; ) =o .0 
NiiwnrPi i mi )=c 

im - 1 b i i 

C IF LAST CAL_ r OR ARC* PROCESS t AST 
IF I ir.l . . I'i2) GO TO fC c 


b®roducibility of the 

©BIGINAL PAGE IS POOR 


PASS FOR FACS | T^MATlHN < GO TO 


c AF r r i> .. t.L r->GSCS CUMK.FTF. t^Tl^N I r I. AST C S LL ITC*>.\TITJ 

IF! IBIAT.CO.O) RCTURM 


|Pi =! n? 

c S-AVT T IV" n- L AS T M • ASU -> F ***" NT FOR C'F(K TO 1- TC' y I N" N“W ^ A S S 
BT l ( I \\ > =T !' • 

GO T T 1 • ; 

Cun 


Rscn :i? 
Rsen 4 1 ? 
esoo i i a 
psr o ms 
psr n 4 1 e 

RSCO * 1 7 
RSCO M ° 
Hsrn 4 ) n 
psen \20 

psco \ 21 
RSCO 4 2? 
RSCO 4 2 7 
osen « 2A 
PSCO * 2 5 
OSCO * 2* 
PSCO 4 2 7 
geco 4 ? 3 

fic.en * c o 

Rt;r n * 2 C 

r c c n * 7 1 
RSCO 12? 
R SC n *37 
RSCO 4 7 A 
RSCO 4 2 = 
RFCO ’ ?' 
BSCO ' 3 7 
Bsrr 4 ? 3 
BSC O I 7 ^ 
BSCO 4 4.C 
RSCO 4 6 1 
RSCO 4 . A 2 
HSCO * F3 
psc n 4 A A 
P c CO : A 5 
BSCO 4 ^ A 
BS C n 4 a 7 
RC CO 4 A » 
R c CO uc 
RSCO * SC 
RSCO 4 SI 
PSCO IS? 
OSCC )S3 
BSCO 4 54 

ps r. n 4 s f 

PSC n 4 ss 

pern 4 s t 

PSCO * ss 

B e cn 4 so 

HSCO * *r 

R c, c o • f* » 
f'CC ) RFC n - a ? 
p c q n ♦ a \ 
qc c r ' ' *■ 1. 

n<rn * pc 
psc n • *■ 

rc r "( ' ♦ f -t 
‘i r - tn • f c 

use •*’ * < 
pern 4 - : 
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name cane UN 

PURPOSE 10 SET UP VARIABLE STCRAGE ARRAYS AND TO 

INITIALIZE SUBROUTINES USING THIS” ARRAYS 

D 

CALLING SEUUENCE CALL C «ROwN( I ADD R , JUI AS ♦ [’.0 l AS * KS'JM , *JSUV , PLHM « 

1 STANU.CNV, SUM 1 . G A PAR » I NO X C S , SUM , 

X Y Z S I C « X P IT » X Y Z ♦ PMPXO. X I * PA RNO'S . i: NS c * 
DENCON ,CSLV. f EBIAS) 


S Y MO CL type INSCRIPTION 


I ADCk 

1 

INPUT 

- 

ARRAY CONTA.lN ING 

ADORES 

5 ES 

OP 

THE 

VAR I ABLE 

CIS) 




STORAGE ARRAYS 






I 0 I A 5 

1*2 

INPUT 

- 

V Ala ABLE STORAGE 

ARRAY 

NO* 

l 

FOR 

B I ASES 

Cl) 





- 





BUI AS 

[)3 

INPUT 

— 

VARIABLE STORAGE 

ARRAY 

NO. 

2 

FOR 

01 ASES 

Cl) 










KSUM 

I 

INPUT 

— 

VARIABLE STORAGE 

ARRAY 

NO. 

1 

FUR 

STAT I ST I CS 

X l i 










NSUM 

i 

INPUT 

— 

VARIABLE STORAGE 

ARRAY 

NO, 

2 

FOR 

STAT I ST I CS 

C I ) 


- 








PLHN 

03 

INPUT 

- VARIABLE STORAGE 

ARRAY 

MU. 

1 

FOR 

: STATIONS 

( i 1 










ISTANU 

1*2 

INPUT 

~ 

variable storage 

ARRAY 

NO. 

2 

FOR 

stations 

( 1 ) 










ENV 

DP 

‘ INPUT 

- 

variable, storage 

ARRAY 

NO • 

3 

FOR 

STAT I ONS 

11 ) 










SUM1 

DP 

INPUT 

■ — 

VARIABLE STORAGE 

ARRAY 

NO. 

i 

FOR 

NORMAL 

Cl). 




COUAT ICNS 






Grp a r 

DP 

INPUT 

_ 

VARIABLE STORAGE 

ARR AY 

NO. 

1 

FOR 

PARTI ALS 

C 1 ) 










INCXCS 

1*2 

INPUT 

— 

VARIABLE STORAGE 

ARRAY 

NOW 

1 

FOR 


C 1 ) 




GEOPOTF.NT I AL 






SUM 2 

DP 

INPUT 

- 

VARIABLE STORAGE 

ARRAY 

N J. 

2 

•FOR 

NORMAL 

C 1 > 




EQUATIONS 






XYZS IG 

R 

INPUT 

— 

VARIABLE STORAGE 

ARRAY 

NO* 

4 

FOR 

STATIONS 

{ l ) 










XF1 T 

DP 

INPUT 

- 

VARIABLE STORAGE 

ARRAY 

N ). 

1 

FOR 

I NTEGRATOR 

( 1 ) 

• 

\ 








XYZ 

DP 

INPUT 

- 

VARIABLE STORAGE 

ARRAY 

NJ, 

5 

FUR 

ST A T 1 ONS 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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ti) 











pmpxo 

' DP 

INPUT 

~ 

VARI ABLE 

STOR age 

ARR AY 

NO* 

2 

FOR 

PART I ALS 

( l > 


• 









X I 

OP , 

INPUT 

— 

VAR I ABLE 

STOP AGE 

ARRAY 

NO, 

1 

FOR 


( i > 




INTERPOL A1 OR 



t> 



PAKNU3 

I * 2 

INPUT 

— 

VAR I ABLE 

STOR AGE 

array 

NO* 

1 

FOR 

PARAMETER 

< 1 > 




NUMBERS 







DENSE 

DP - 

INPUT 

- 

VARIABLE 

STOR AGE 

ARRAY 

NO. 

1 

FOR 

DENSITIES 

t 1 1 











Dc NCCN 

DP 

input 

— 

VARI AELE 

storage 

ARRAY 

NO. 

2 

FOR 

DENSITIES 

( 1 ) 











CSUM 

I 

INPUT 

— 

VARI AOLF. 

STOR AGE 

ARRAY 

NO* 

3 

FOR 

stati STICS 

(11 - 




- 







EDI AS 

1*2 

INPUT 

— 

VAPt ABLE 

STOR AGE 

ARRAY 

NO. 

1 

FOR 

ELECTRONIC 

( 1 ) 




BIASES 








SUBROUTINES USED 

CLEAR 

RSCMP -1 

COMAD 1 

ORtllTl 

PROCS 1 


STA I F 1 

VE VAL 1 

F 1 

PDEN? 

CC MP AR 


£ST l Ml 

RE SPR 1 

SUPD.MI 

DR AGl 

CLEAR? 


TRUEPl 

AR CP A R 

OATRD 1 

GW HR A 1 

NONANE 


C 9 SDT 1 

PRECC 1 . 

5 Q A N T 1 

TwOSTl 


COMMON ol OCRS 

A P AR AM 

CP ARAM 

CO NO J T 

C 3 T INF 

VRGLOK 


INPUT FILLS NONE 

OUTPUT FILES NONE 







SUO hCU/T 1 NsE CdFC { 1 A DDR . I B l AS * E 5 I A S . K SUM , N SU“ . PLH N , I STAND , ENV ♦ CO PC 

‘ SUM! , GRP AN , INDXCSi SU M ? . X Y Z S I G » XF IT.XYZ .P'H'XO, X I > PAKNQS * CP«CJ 

DENSE , OL N C C N , C S OW » EU 1 A S ) COR C 

IMPLICIT REALyE < A — M * 0 — Z > CbRO 

0 I PENSION I ADDh( 1 6 } . I BI A $< 1 ) . SB I AS( 1 ) ,KSJM( I» iN 3 UM( M , PLHN ( 1 ) i CORO 

ISTA.\U( 1 I . LNVC 1 ) *SUM 1 { 1 J . CP PAS { 1 ) , IN 0 XCS( 1 1 . SUM?( 1 ) , CORO 

XY ZS J G ( 1 ) • X F I T ( 1 ) . XYZ < 1 ) , P'-' PXO( 1 ) . XI ( 1 ) , P AP NOS < 1 ) . DEN Sc ( 1 1 CORO 

DIMENSION [>c.nCCN( 1 ) « C SU M ( t I t F Q I A S ( 1 ) C 3 RO 

iNTfcGcR*? U: I A S, I S TANU. I NDXCS . PAPNO S. E 0 I AS - , CORO 

INTEGER ESTSTA.CSUN - CO«C 

LOGICAL CMPGPf; . CORO 

REAL XY 2 S Ili ,K VSALL .CUTCON CORO 

COMMON/ AP AN AM/ I N'PA R * iNPAft I, NEI A S . E S T S T A . N SAT , NOP ARC . MORE C l . NP ARAM . CBRO 
NEL-I AS . MAXTOR CORO 

CC V MON/CP ARAM /NS T A .NM AST , NS TEST , ND I N » MO I AS , NCPC 1 . NGPC 2 , CORO 

NGPCUM . NCSE S : T . C Mf'GRP , L I M 1 , L t M? . NCEN , UDF.NST . NT [ DST . NT I DcN » CORO 

INNKSW , NCJ NST * NCCONS CBRO 

COPMuN/CUNOUf / h-MSALL « OUT CON « V 1 NUUT » MAXOJT » L I TRES « MAXSAT , MAX?. I N « CBRO 


REPRODUCIBILITY op Tm, 
ORIGINAL PAGE is poojj 


9 A 

9 r, 
6 
97 
9E 
oo 

1 00 
101 
1 0? 
103 
ICR* 
1 OF 
106 
107 
1 Ot 
109 
1 1C 
l 1 1 
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• c NSTART , MEQfiHX, f VAR, TOrtOCR* NARCS. AST ARD, LSTART ( 6> 

CB RO 

\\2 

CO V KG N/C i'» T 1 NF / A GnG ( 233 ) ,t.rAf,E; 


CORO 

11 3 

COf-'MONXVKULUA/COSL Am { 66 ) ,PR ( 1 00? J 


CORO 

1 1 t 

C compute i.\oiCL-b oh starting locations 

OF DlrFLRLNT ARRAYS TO OC US£D 

GOTO 

i ! e 

Ni) I Ai»E=fs(L 0 I A 5 


CBRC 

tic 

I i3 1 a l 

» 

CORO 

1 1 7 

I 02-1 0 l 4 4 £ M 6 I AS 


cb‘<c 

1 1 •: 

I 0 3 = I oH 4 M □ l A S 


Cri'iO 

l 1 9 

MSAT3=M*XUAT *2 

t O 

CT-RC 

120 

IH4=Iu344*( MJ I AS4 K5AT34NCP= ST ) 

‘ 

CURO 

j ? » 

IBbsib^ + AH^al^S + MSAUtNCSiiST) 


cone 

122 

I 0 6 - I 05 4 M 04 AS 


CORO 

122 

I £ 7 “ I C o 4 M d l AS 


core 

12*- 

ICl-IiiJ + A*{ M 3 l A S 4 U S A T 3 ) 


cos c 

125 

JC2=ic44 M£3 l ASt M5AT3I 

4 

CB9C 

126 

IC3 = lb7<MjlAS4J/3AT3 


CORO 

127 

I 301= 1 


CORO 

12 3 

IBC 1= IBUl 4MB I A S+ MS AT 3 ’ 

“ 

case 

< ■» r 

I 001= IBC1 4NCSLST 

• 

CBPO 

120 

I c!C 2-ldOl +N7 I CST 


Ci3SO 

1 3 1 

MB I AS = MO 1 AS 4 MS AT 3 


CBR 0 

1 3 2 

NST A T =NST A* V A >£AT 


CORO 

1 33 

IP-l 


CBRC 

1 2‘ 

i L = iPtNST A 4 1 


corc 

1 35 

I H=2L 4N5TA4- 1 


corc 

1 3d 

Jh=lH+NSTA+ l 


CbRC 

12 V 

!PO=l N+N3TA* 1 


CRRO 

13 3 

1 L G- I PU 4-NSTcST 


CORO 

1 33 

IH0«1L04 NSTiiST 


Chno 

1< 0 

1 rHfhV=iHO + NiUSr 


chrc 

1 A 1 

I S T A = 1 


cgpo 

K-2 

I£ST= JSTA4NSTA4 1 


cofo 

1A2 

IUOC* It-ST 4 N 3 T c£T 


cppo 

1 -\ A 

I £ N V 1 - 1 


cop c 

1 L 

IcNV2=ItNVi 4 34 (NST A+ 1 ) 


cbro 

1 Ad 

I=NV3sItNV24J* INST A 4 1 ) 


cos c 

1 A 7 

I SUM 2=1 


‘ CORO 

1 4 A 

l T TL ■= 1SJM2 + NO i fc 

* 

car<c 

1*9 

I DEL T A= l T TL 4 ND IM 


COPQ 

1 5C 

I 3 I C- 1 = 1 


CORD 

1 5 1 

I S I G2=9*N5Tc 37 4 I S I G 1 


cur«u 

132 

I S 1 GJ=V rNSIt S T 4 J s 1 G2 


CORO 

152 

ISICA=9*NSTcS74ISIG3 


cone 

15 4 

ISIC5=6*N5T£S7 4ISIGA 


COPC 

155 

1 XF 1T = 1 


CORO 

155 

1 F C T = I XF IT + 6 * N c C N M X * M AX S A T 


CORO 

127 

lSTNCS=3»NCSc£ 741 


CORO 

15? 

1ST XY 2 = 1 

‘ 

case 

159 

J$TxY0=ISTXYZ42« : <NSTA4l) 

. 

CORO 

160 

1X1=1 


CORO 

K 1 

1PXPX0=1 X I 40 
lAREA=l 

I CENT I AWE A4A 4NDFK 
ISCtNT« ICZNTK4 ]2»NC'N 

COR C 
CBKO 
CPRC 
CHRC 

162 
16 3 
If A 
1 6 5 

I DE N S U= 1 0 C c N T 4 2 *N 0 cT- ST 


C t RO 

1 tt' 

IDE NS 2= I0ENS0 i M 1 CST 


CORO 

1*7 
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. 10SIG = IuLNSO*M 1DEN+NCGNST 
IOSl«^=JD5lCfMlDSI 
ICSUF-l 

I V S CM - 1 C S U >. 4 N S 1 A T * M A X SA T * L 0 A SE * I 6 
t L SU.M= I KSUM f N S 1 AT * M A X S A T <* L B A S F. * 6 
I 0 T w A “ 1 

l *JT rtC = i oT * A »NO I M*NEB1 A 5 “ 

I J T *t> = 1 b T a l) + •» 4 ff t H I AS 
I 12T IMl : = IoTau+ 4 «KFb 1 AS 

1 DcST A= I UT I Me + fcl AS . 

I i3E TYP = IbES r A * fvED l AS 
( N U VdR— 2 *3 ET„Y P ^E"3 1 AS 
NCLfc Aft- I NUMUm -UHLJ I AS- l 

JF ( NctllAS. GT . 0 ) CALL CUE AR2 (uB IASiNCLEAR t 1 ) 

NP A ft V. - Nu U NM X < fc 
NSTA1 = NST A+ 1 

NST A*iT = rO IM-N.VAST* 3-NGPCOM-NT I CRN 
C INITIALISE SUnllUUT INES USING VARlACLt STORAGE Af-PAVS 

CALL CAT '{01 { L E I A S » I B I A S , SUV- 1 , INDXCS I AS { I BEST A ) > 

CALL SOANTl { PL FN ( I H ) , XY Z SI G ( I S 1C3 ) . XYZSi S( I SI 02 ) * XYZ ( l STXYZ ) . 

• tNV( ILNV 1 ) . c N V ( 1ENV2 I » E N V { I ENV3) .PLHN < 1 THPHM) » f'LHN ( IP i , 

« fti_PN( 1 L ) * I STAND ) 

C LOAO CCNV.CN PAPA.lt: TCP INFORMAT ICN INTO VAR1AJI.C STORAGE ARRAYS 
CALL CUMPAR ( I fc I AS < I C 1 J . I E 1 A S ( I C2 ) . I B I A S < 1 C 3 ) • BO I AS{ 1 r3C 1 ) t 
« FLHN( IP) ,PLt-N( ID . PLHN ( I ft ) , PLMN ( IN ) . PLMN ( IPO) , PL HN ( ILO ) . 

• P L HtN { 1 HO J « I STANC( 1ST A ) . [ STANCH I E ST ) . I NO XC S , SUM2< I TTL) , 

• X Y Z S 1 G l 1 S I 0 2 > . X Y Z 5 I G ( I S I G 2 ) * XYZS 1G( l 5 1 G 1 ) . X Y Z S I G ( I 3 I G A ) * 

e XYZSI G ( IbIG£).XYZ( 1ST XY Z ) *X YZ( ISTXYO) • 1 Nl> XC S t I STN35 > . 

• IS TANOt 1LJC ) , CENSE! I SSI G2 ) , DENSE ( I DEN S3 ) , LiU 1 A St I LJO 2 ) » 

« LeNSw l I AftE £ J . UE NSE ( I C ENT Ft ) « DE NSE ( I SC EN T ) ) 

C LOAD ARC PARAMETER INFCKMAT I UN IMU VAK1AULL biunn^ akkats 

C A"L L ARC PAD I C IA5 ( I B! > . I a ! AS< I P2 ) . I Fil A$< I H J > .BUI AS< I 331) . 

• Id 1 AS { I L> 4) , ID IASI I d6 ) , I B i A 5 ( I b 5 ) « I 0 I A $ ( 10 7) . 1 ti I A S ( I C 1 > » 

• IdlASt i C 2 ) • 1 8 I A S ( IC3) , Ub I AS ( I DC 1 ),INOXC5.EL<IAS(I0ESTA), 

' .. ci3IAS( IbETY.P) .NEIASC* ISTANO ) 

C INITlALIZc kc.MA IN 1NG SUBROUTINES USING VARIABLE STORAGE ARRAYS 

CALL CUMAD I (1S1AN GUST A), 1ST AN CDE3T), ISTANO (ILUC)«XYZ(ISTXYZ), 

. ■ XYZC ISTXYO ) *PL'MN ( IP) * PLHN ( I L) ,PLHN( III) .PLuNt 1 P 0 ) . PL PN < I L 0 ) , 

, PLhm I HO ) . PLHN( IN I . XY ZSI G( I SI G3 ) .XYZSU. U 3IG2 » , XYZSIG ( I SIG5 ) , 

. ‘ XYZSIGI ISICA) * SUM 1 . I NDXC S • 9 E I A St • IBC 1 ) • I t*. I AS ( I C l ) . I 0 I A 5 ( I C 2 ) > 

CALL CRAG 1 ( GkF /R ) 

CALL EST I M 1 ( Suvi « SL«2 ( 1 SUM? ) , SUM 2 ( I FELT A ) ♦ XYZ ( I STXYZ ) > 

« XYZ( ISTXYO ) , XY7S1 G( I S IG1 ) ,86 I AS.. I 9 I A S ( I D 3 ) » I 9 I AS ( 134 » , 

• I STAND ( I ST A ), I STANOI I EST ) , I ST A NO ( ILOC ) « I d I AS ( 107 ) .PARNOS, 

» INCXCS ,DEi4St( IDENSO) . DENSE! IDS) G ) ) 

CALL FI ( GRP Ak > 

A = GRHRA1 < ENV , NST A 1 ) 

A-OUSDT 1 ( ENV ( I fcNV 1 ) , E.NV ( I ENV2 ) . ENV ( IENV3 ) ) 

CALL OKU IT1 (XF11 ( IFCT),XFIT ( JXFIT) , >I( IXI ) ) 

CALL PREDC1 ( E N V ( IENV1 ) .ENV( IFNV2) ,ENV< I ENV 3) , f'MP X 0 , X 1 { 7 ) » NP ARM « 

• NECN.MX) 

CALL PRUCSl < 1ST AND ( ISTA) ,XYZt I STXYZ ),PLHN( IP) • I’LHNt IL) ) 

CALL RtiSPHl ( 1 UCXC5 . I DIAS ( I C2 ) . OP PAP ) 

CALL ST A I FI C K;L M , N SUM, NST AT ,f*A Xo A T , CSUV( ICSUf) « CSUM( I MS JM> » 

• LOASC» CSU.K 1LSUM ) ) 

IFCLOASE* GT .0 ) LBASE=NSTA 


reproducibility of the 
ORIGINAL PAGE IS POOR 


CHPtf 

1 AS 

CPRO 

1-9 

CHRO 

170 

Cf:MCJ 

171 

CBPO 

17 2 

CORO 

173 

CHRC 

1 7 A 

CHRO 

17E 

CrtRO 

176 

cnRci 

177 

CD R C 

l 7 5 

CDRO 

1 79 

CHRO 

ldO 

CHRO 

131 

CDRC) 

1 32 

CORO 

17 3 

CHRO 

1 p t. 

CORD 

1 3S 

Ct*RC 

1 16 

C-3R0 

1 37 

CdRO 

i ee 

cone 

1 7 R 

CHRO 

100 

enpn 

17 1 

Cc<R0 

1 1?. 

CHRO 

103 

COP.O 

106 

CORD 

175 

enno 

19* 

CDRG 

1 ~i i 

Cb R E 

i vf 

CDRO 

109 

CORO 

200 

CHRO 

201 

cuno 

202 

CHRO 

203 

CbRO 

2 0 A 

CHRO 

20 5 

CBRO 

206 

CHRO 

20 7 

CORD 

20? 

CHRO 

209 

CHRO 

2 l 0 

CBRO 

21 1 

CI3RC 

212 

C-JRO 

213 

C3R0 

21 t. 

CBRO 

21 S 

CHRO 

216 

CBPC 

217 

CHRO 

21 0 

enno 

2 1 9 

CDRO 

22 0 

CDRO 

22 l 

CCRO 

222 

CDRO 

223 
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c 


. CALL TfcUSTl (Ff'FXO ,NPAHM) 

CALL SUKJN1 (tic ]/»«.( 1L<D2 ) , ClNSL' < ! A U F A ) , OEN 5 K ( I C ENT W > ♦ GRP AR , DLK'CUN ) 

C ALL FDEN2 (OcN.SEt I ECfiNT ) , DENSE { 1 ARE A ) . DlNSc< I OJNS2 > . 

V <3o lAS( IUC2) *DCNSE< IDSIG2 ) iSUMl ,£> ENCCN , 0 UPAH > 

CALL THUcP] ( X Y 2 ) 

CALL 1 { L L IAG< TBT KA » » CD I A S ( IDT V=C) ,ErfIAS( I Cl T Vi 8.) .EiJ I A3< I FIT IMfi > , 

• SUFI tSUI-12 *NLI ASE. EDI AS( ILtSTA) ,EEIAS{ INUMIJR ) *EdIAS< IuETYP) * 

« FARNJS) 

CALL VSVALl (G<*f-AR ) * 

CALL CLEAR < CUliL A.m * £6 .2) 

COS LA F ( 2 ) =• 1 oOCC 

CALL NCNAMc AND PcbFDRR JOB PRIME FUNCTIONS 

CALL NON A ML ( NPAR.M , PMPXO. 1 13 I AS { Ici7 > , I 0 I A S ( I 33 + 1 2 ) , 3D I AS . I D I AS ( I «4 > 
« i U 1 AS ( 1 1$ ] > , I [3 I A S< I 02 l , I 0 I A S ( J £3 5 ) . I 3 1 A S ( I 3 6 ) . p A R Nil S , 

O j>UM2 ( I SO M2 ) |SUM2( I TTL ) . SLN? t I DEL I A ) , I NDXC 5(1 ST NOS I • 

« 1 STAND ( 1 ST A J *PLI-N( IN ) * SU-'-M « I NO XC S ♦ fi O I A S { IOC 1 ) # ID l AS { I C 1 i * 

• luIASC IC2) , I 6 I A S ( IC3 ) t DENSE. ( I ARE A) ,D£NSE( 1CINTR ) ,OINCON t> 

• tOlAS( JdtST/) «EE1 AS( I3ETYP) ) 

RETURN 

END 


CORO 22V 
CHPO 22 E 
Cl’RO 7.2 6 
CL3R0 277 
CDRO • 22 >' 
CORO 22? 
GIRO 2.30 
CDRC 2T1 
CORO 232 
CDRO 23? 
CDRO 23' 
CDRO 235 
»Cf!RO 2 36 
CDRO 237 
CI3RO 2 3D 
CDRO 22? 
CDRO 2-’-0 
CORO ?A 1 
CDRO 2*2 
CHRO 2-3 2 
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g.U£ft& 
S£T 

Cos^r^m R£f?fly 
To 2zr flg 


No fOAnvf. 


fO 

Trooctssxm^ 

ARCS 


(^eTo^) 


REPRODUCIBILITY of the 
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PURPOSE. TO ALLOCATE CORE F OR VARIABLE STORAGE ARRAYS 

c 

calling sequence CALL CHARLY(NCDRE, I CORE, SI CSC I 


SYMBOL 

TYPE 

OESCR I 0 TICS 



• ncore 

I >4 

NUMBER O r ARRAYS FOR WHICH CORE IS TO BE 

ALLOCATED 

I CO^F 
C NC ORE ) 

r * <► 

SI7ES IN BYTES 

OF ARRAYS TO BE ALLOCATED 

’ cone 

ticso 

I * A 

RETUPN LABEL - 

return to this number if 





INSUFFICIENT jCO r E IS AVAILABLE 

SU3R0UT I NES 

USED 

HONE 




COMMON BLOCKS NONE 

INPUT. TILES NONE 

OUTPUT FtLES NONE 


CHARLY 

ST ART 

0 

CHAP 

27 

* STORE OFF i 

REGISTERS 

CHA R 

? p 


PC 

15,12115) 

CHA D 

?Q 


DC 

* • 7 » 

CHAP 

3C 


DC 

CL 7 1 CHARL Y * 

CHAP 

31 


STM 

1 i • 1 2t 1 £< 13) 

CHAR 

32 


0 ALR 

t 2 * 3 

CHAD 

33 


US IUG 

v ,12 

CHAP 

3 A 

* SET UP SAV 

E AREA CHAIN 

CHAP 

?S 


LR 

1C , 13 

CHAD 

3 A 


LA 

1 3 * A p r A 

CHAP 

;<7 


ST 

13, 6(C, 1C J 

4 ■ CHAP 

38 


ST 

1 0 • A ( c . 1 .3 1 

C.H A R 

30 


nc 

15, FI RST 

CHAR 

40 

AREA 

os 

1 ?F 

CHAP 

4 1 

* LOAD 

REGISTER ?. WITH THE NUMBER 0 57 ARRAYS 

CHAP 

4 2 

FI RST 

L 

? , C U ) _ 

CHAR 

4 3 


L 

? , C ( 2 ) 

. Chap 

4 4 

* LOAD 

REGISTER 3 WITH THF ADDRESS OF BYTE COUNT ARRAY 

CHAP 

45 


L 

3 * A f 1 ) 

CHAO 

4 A 

* CONS 

TF.'ICT 

DVT- C FU NT _ I 3 T fq H gftm a in 

CHAR 

47 


SR 

6, S 

CHAP 

4 A 


SR 

6 , 

CHAR 

4 Q 

LOOP 

ST 

5 . L I r, T ( 6 ) 

CHAP 

5^ 


L 

’,0(31 

CHA O 

SI 


ST 

r » L IST( 6 > 

C h A P 

s? 


LA 

6 i » ( '"i ) 

CHAR 

5 3 


L A 

3,4(3) 

CHA O 

F4 


OCT 

i,LOOP 

CHAO 

5 s 
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IC 

9 • = X « SO * 

CHAR 

6 6 


STC 

9 * L IST-M 6 ) 

C^AP 

5 T 

* ISSU 

E OFOU 

SST FOR STORAGE 

C^A R 

* A 


GET « AIM UC ,LA=L 1ST, 4 = ADDR 

C« AR 

« O 


STC 

9 , ADOS- A ( 6) 

CHAR 

A 0 

* w:tupn if 

INStJF^IC ICNT STORAGE AVATLAPLE 

AR 

A* 


NP 

1 3 , 1 5 

CHAR 

5 ? 


GC 

i , RET 

Cm a 

.<" ? 

* CALL 

cbrcwn 

CHAO 

fi 


LA 

1 « ApDP 

Cmap 

6 S 


ST 

MADDR 

CHAO 

6 * 


LA 

I « L AODR 

CHAR 

6 7 


L 

l 5 , AOCON 

char 

* A 


GAL a 

14,15 

Char 

fQ 

* restore re 

G1STFR AND RET UR w 

CHAR 

7^ 


SR 

15,15 - 

Chao 

7 1 

PET 

L 

I 3 , ARCA+4 

Char 

7 ? 


LM 

?. 1 2. ?0 { 1 3) 

Cmao 

7 ? 


L 

14,12(13) 

CHAR 

7A 


MV I 

L-(13)*X* r- * 

CHA R 

Oc; 


3CR 

15,14 

CHAR 

7A 

APCON 

nc 

V ( C5R-P4N) 

CHAO 

7 7 

LI ST 

DS 

3C r_ 

CHAO 

7 * 

la rr.R 

ns 

F 

C U A = 

■7 9 

A odp 

os 

30 F 

CHAR 

ft c 


F NO 


Char 

R 1 
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MAKc 

CLEAR* 

PURPOSE 

TO SET AN ARRAY 70 Z~RO 

CALLING SEGUlMCF. 

CALL CLEAR! IA,N, K) 

SYKBOL TYPE 

OE SCR I PT ION 

i A l 

OUTPUT - ARRAY TC Be CLEARED 

( 1 1 


N 1 

INPUT - FIRST DIK-NSIJN OF ARRAY 

K l 

INPUT - SECOND 0 I RE NS I ON CF ARRAY 

SUOKOuf I NE S USED 

NONE ■ 

C C W<ON uLUC^S 

NONE 

INPUT FILES 

NONE 

output f Ills 

NONE 

SUBPOUTING aEARMA.N.Kl 
DIMS NS ION I a ( 1 ) 


J = N* K 

C CLCAk THE ARRAY 
DO 10 1 = 1 . J 

1C lAt I ) = 0 
RETURN 
END 


CL G A PT 
CUEA 2 o 

cl e a 2.9 

CL? A 30 
CLGA 31 
CLG A 32 
CLGA 33 
CLEA 3* 
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NAME 


CLEAR 2 

PURPOSE 


TO' SET AN ARRAY TO ZERO 

CALLING StiCUENCE 

CALL CLE AR2 ( I A.K ,L) 

SYMBOL 

TYPE 

DESCRIPTION 

1 A 

I * 

OUTPUT - ARRAY TC 5F. CLEARED 

K 

I 

INPUT - F1R5T D I PENSION OF ARRAY 

L 

I 

INPUT - SECOND DIMENSION OF ARRAY 

SU9ROUT I Nc 

S USED 

NONE 

cc mm On clocks 

NONE 

Input f ile 

c 

NONE 

OUTPUT F IlcS 

NONE 


SUBROUTINE CL E AR 2 ( l A * K , L ) 
l N T r C,r R * 2 I A { 1 > 

J - K £ L 

C CLEAR THE ARfoAY 
CD 10 I = I . J 
1C 1 A < I )=C 

return 

END 


reproducibility of the 
ORIGINAL PAGE IS POOR 


of 1 
r 1972 
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COEF 

DESCRIPTION' 

COEF computes the set of interpolation coefficients 
needed based on the order of the interpolation and the dis- 
tance in units of stepsizes from the most recent time point 
in the array of back values. 


REPRODUCIBILITY of the 
ORIGINAL PAGE IS POOR 
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NANt 


COEF 


PURPOSE 


TO. COMPUTE INTERPQLATOK CUE^'R 

1 C I ENTS 

Calling s: 

lCUENCS 

CALL CCEF ( S, I ORDER, A. AS ) 

0 

S VWJJL 

TYPE 

DESCRIPTION 


s 

UP - 

INPUT - INTERVAL DISTANCE 


2 CNu “ H 

I 

INPUT - CRDEP 


A 

< n 

LI P 

OUTPUT - POSITION COEFFICIENT 

VECTOR 

AS 
( 1 ) 

DP 

OUTPUT - VELOCITY COEFFICIENT 

VECTOR 


SLEk CUT i NH S USED COM 


CO'i^CN uLJCKS INTTRP 

INPUT FILlS NONE 


CLTPL7 F ILUS NONE 




y-«5?-7ri-^7 ? 

•■GEOSTAR-M A G ECPCTu: NT I AL AND STATION POSITION 
fi ECO VERY SYSTEM*, C, E« VELEZ. G. F. BRODSKY 

OCTOBER 1970 


ZiU3>< JU T I N c CCER 

( S , 

I CRCF P 

« A * A S ) 

■ COEF 

3E 

IMPL IC IT RE «L * ? 

( A 

i 

T 

0 

1 

Ni 


COER 

3 6 

CO-.1MCN/ tMt“P/CC'V!.i( 2! .el) 

.Ml?( t > 

CDEF 

**? 

CATh MAaC/15/ 




* COF.F 

3S 

L AT A i CL 2 / 0 / 



• 

COEF 

3 v 

Cl MENTION : !P Z (2 

1 > , 

P' J PZ(?1 

) ,3P( 72) * 3PPC 2 2 ) ,0(23) , A ( l ) , AS( 1 ) 

COEF 

A C 

Ir ( I OLk ♦ N= . 0 1 CC 

TO 

000 


COEF 

A 1 

CALL C CM ( 20 1 




COER 

A? 

INITIALIZE 




COEF 

A 2 

C ( l ) =1 .OC 




* ’ COEF 

f.A 

tPZ( U = 1 .CO 




COEF 

A 5 

L-ppz ( i j- i .no 




COEF 

A 6 

5P< 1 1 = i.CC 
tr:HP( 11=1 .CO 
DU I 0 I • t i A X C 
IL 1= I- 1 



„™ RO i,OC!ElUTY OF THE 
SU PAGE IS POOR 

COEF 
COEF 
COE 'R 
COF F 

a? 

a e 

f.a 

eo 

SU..\= Uc CO 




CO FT 

El 

L’U »> L = 1 * IL 1 




COc R 

52 


» SU.v=^uy- = PZ(t )/DFLOATC I-L 41 ) COEF S3 

!C u»Z( tl-SL* COF> 

LO 2 J I-2. w a>0 COEF- SS 
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r SUM= 0« CO 
. CO 1 5 L- 1 • I 

i'i SUM = S»Uy + fc FZ( L ) *BPZ ( I-L + l J 

?.C uPPi( I > = £ CM 
C Ef\ C INITIALIZATION. 

90C 1UL1=ICkCcP-1 
101.0 = 1 CHCcR-2 
UO 30 1 = 2 % I OR CFP 

2 0 uC I )-b( 1- l)y(DFLOAT (2- 2>-S>/D FLOAT! 1-1 > 
OU AO 1 = 2 ,'ICRCEP 
SUM=0* C 0 
00 3 9 L= I ♦ 1 

39 5Utf=SUM+£ FZ (L )*B{ I-L+l ) 

4 0 tP( 1 1 = SUV 

CO 5 0 I =2 »I CHCER 
SUM= 0« C 0 
DU ^ L=ltl 

*9 SUM=i.UV+c FPZ ( L > *R( I — L + 1 1 

50 LPP< i ) = SLf- 
F ACT = 1 • O U 
CJ 100 1 = 1*10 L2 

£U.M = Oj CO 
DO 0 0 L = i « l CL 2 

60 EU.-I = SuMt F *iCT * CO w l3(L • I 1 *0PP(L+2 ) 

A ( t ) = S O Vi 
100 FAcT--FhCT 

r"AC"F = j««jO » 

Ou 1 l o i = i • i ui i 
SUM =0*00 
OU IOC L = I * 1 OL 1 

103 bUM = 3UM+ F /CT* C0M6( L « 1 } *eP ( L* l ) 

A5( I 2 = $U.v 
110 FACT=-FAC1 
k - T U f- N 
£NU 


C05K 

56 

CO£F 

67 

COFF 

5P 

CO£F 

r»9 

COEF 

so 

COEF 

6 1 

COEF 

62 

COEF 

63 

COEF 

6A 

COEF 

55 

COEF 

66 

COEF 

67 

COEF 

66 

COE^ 

69 

COEF 

70 

COEF 

7 1 

COEF 

72 

COEF 

72 

COEF 

7A 

COEF 

75 

COEF 

76 

COEF 

77 

COEF 

7 P 

COEF 

79 

COEF 

50 

COEF 

? 1 

COFF 

r»? 

COE p 

6 ? 

COEF 


COEF 

«6 

COEF 

RE- 

COEF 

IT 

COEF 

5 6 

COFF 

59 

COEF 

f 0 


REPRODUCIBILITY OF THE 
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NA«£ 


coefl 


PURPOSE 


TO LIST KEN-2CRO GRAVITY MUDcL COEFFICIENTS DP THt 
SPHERICAL HARMONIC EXPANSION 0^ THE GFOPC TEN f 1 AL 


CALLING SEQUENCE call COEFL( I UNIT. NORMAL) 


symbol type description 


I On I T 


INPUT - PRINTER FILE NUMBER 


NORMAL L 


INPUT - SWITCH INDICATING NORMALIZED COEFFICIENTS 

ape desired 


SUCROUTlNES USED 
COMMON CLOCKS 
INPUT rlUrS 
OUTPUT FILES 


OENDRM 
FMODE L 
NONE 

NONE 


SUBROUTINE COLFH IUNIT , t^OOPAL > 

IMPLICIT REAL t fe l A-H ,0-3 ) 

logical ncrmal 

NEAL *o CS 

CUMM jN/h KCDLL /I NOE X 1 ♦ NCE X2 * I NCEX 3 , INDEX* . C5< 30.33) . MDO E L ( 6 ) 
DIMENSION OUT 1 ( 5) . OUT2 ( 3 ) . I NO I ( 5 J . 1ND2C 5) 

RtAL*e MCCEL 

DATA CCO »CC 1/ 1FC . 1H 1/ 

WRITE! lUNlT .ICO) MODEL 
C WP IT c lUI 2CNALS 
I -0 

CO JO N= j .INC CXI 
NC = N — l 

Ir(C5tNC.l)»2C.0.0C0) GC TO 1C 
1 = 1+1 

CUT imaCJJAC.il 

IFtNuftMAL 1 CUT 1 ( I > = OUT 1 ( I )/DcNCRM(NC * 0) 

INDl ( 1 I ~ R C . 

I NDil 1 I ) - C 

lHl.LT.:) GOTO 10 
1=0 

*RITt(lUMT.10?) ( 1 NC 1 l J) , IND2 I J) .O'JTII J ) . J =1 , 5 1 
1 0 COnT 1 NUl 

JF( I ,GT . 0 I *« I TL ( I UN 1 T ♦ ICS) ( INC 1 ( J) . I NO 2 ( J 1 .OUT l(J)»J = l#I) 

C W R i T z. SECTORIAL S r, TESSERALS 
LiNES=0 
1=0 

CC=lCO 

po 2 0 Ne it INDEX l 
N C * N “ l 


CDEF 25 
r.n “ f 2 7 
CCEF 2 e 
C ) rr * jo 
C.i£F 3 0 
C*)£F 31 

COEP 32 
CDEF 33 
1 COE F 3 A 
COS" 35 
COE- 25 
C-JE C 37 
CDE r 33 
Clz~ 30 
CDF- AO 
COE- M 
CDE - A2 
C3E r A3 
.. C3E~ A<* 

cof- A c 

C O E F AS 
COr. - a- 
COE? 5 5 
COE- 

CJ£f 50 
COcT SI 
C03" 5? 

COEF S3 
COE c Af. 

rijrr c i 
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NS= 3 2-K 

KAXUst-1 I NO ( 11* Or X 1 , U ) 

CU 2 0 M£,«AXC 
• Ki-54-r^ • 

VT-M-1 

1F.( CS( KC ) *C C* 0«30« ANC*CS( NS • FS ) .-0» 0. CO) GO TO 20 

1 = 1+1 

A*NU*<M = 1 * C C 

IF \ NCkMAU ANCPVsl * CC/CLNCPH(NC .MT ) 

COT 1 ( 1 ) = C £ ( NC « K ' ) vAN CRM 
CUT2 ( I ) = CS ( NS i>-’S )*A NO R F 
IN01 t i l = NC 
jNi>2 { I ) = NT 
1F(I-LT.3) GOTO 20 

IF C MOO (LInSSi 20) # r C • 0 ) V.P IT E < I IN I T , V 0 2 1 CC ' 

IF{MOl>(L iNES .5 ) «EQ« 0 > hPIT=(lUMT»101 » 

1=0 

CC=CC1 

L 1 Ni_ S= L 1 N c S + 1 

ftPiTH IUMT.1C4) { I NO 1 ( J) . IND2 ( J) , JUT 1 ( J> ,0UT2t J > ».J =1 .3 ) 

2 0 ' CUNT 1 NUS 

IF{ | *GT. C ) a? ITF ( 1UN IT , 104) ( IN01 ( J) . IND2( J) ♦ OUT 1 ( J) , OUT 2 ( J ) . J = 1 

FETUPiN 

ICC fukMATU(-l.KX*‘]AS//6X, 

c 6h^3NALS/-jX . 6( 1 1 — J //5 ( 5 X « 5H I .NDSX • 5X < 5HVALUE » 1 X ) /7K * 

* - . -S (.-4HN- w, iex j/1 X) 
id ro at ' : x j 

• rn *- . ■ ■ r I I «_r r r ▼ •*> t i ^ v » c 1 **> t* < V \ \ 

i vf c r v4 ^ i w i ' i j a ♦ w- 1 \ <_-%♦ i «i i i \ **" >- * i- * —■ « - *' * * 

103 FOPH AT ( A 1 ,0 X . 2AH5EC TOP 1 AL S AND TE SS CP AL S/6X , 1 0 ( 1 H- ) » 1 X » 3 ( 1 H- 1 * 

• t X «9 ( 1 * — )//6X» 3 < EH INOvX . 1 3X , 

« 3F VALUE » 10X ) /7X . 3 < *MN V » c X » 1 M C ♦ 1 3 X » 1 H5 * 1 1 X 1 } 

10* FOkHAHU .5X *3( 12 . I 3. 2X. IPE 1 2 *5, 3X. 1 PE 1 2.0 .4X) ) 

C NO 


CO EF 

56 

COEF 

57 

COEF 

50 

COEF 

55 

COE- 

60 

COF- 

6) 

COEF 

62 

• COF- 

6 3 

COEF 

64 

COEF 

65 

COEF 

65 

COEF 

67 

■ COEF 

65 

COEF 

6 <3 

COEF 

70 

COEF 

71 

corr 

72 

COEF 

73 

C'JE^ 

7 A 

COEF 

•*5 

COEF 

76 

I ) COE* 

-»7 

COf - 

7? 

coe.f 

70 

COEF 

60 

JCOE + 

8 1 

CHEF 

n? 

rrtFF 

n * 

COEF 


COEF 

*5 

COEF 

j 6 

COEF 

37 

COEF 

36 


REPRODUCIBILITY OF THE 
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NAtfC 

PURPOSE 

CALLING St.OUP.NCE 

Symbol type 
M I - 


COM 

TO COMPUTE BIN'/' 1 AL CO EFF I C I PINT S 
CALL CCM(M> 

DESCRIPTION 

INPUT - NUMBER OF COEFFICIENTS 


e 


SUCROUTiNcS USED NONE 


cchmon blocks 
iHPUr files 

OUTPUT FILES 


INTERP 

NONE 

NONE 


SUBROUTINE CCM(M) 

IMPLICIT PE'L*S (A-FUO-Z1 
CO -A M On/ IN TERP/C { 21 « 2 1 ) P'DU W ( A ) 
... Ml — M + 1 

C«J 10 Isl.Ml 
CU * P s I • DO 
C( I « l > = I «co 
IF ( I «Lc« I ) CO TO 10 
11=1-1 

CO 6 J = 2 • 1 1 - 

. £ CC I t J > =C ( 1-1 . J > +C( I - I . J-l > 

J C C JNT INUi 
RETURN 
' ENJ 


COM ?2 
COM 23 • 
C TM 2f 
COM 25 
COM 2 6 
COM 27 
COM 25 
COM 2 5 
COM 30 
COM 11 
CJM 3 2 
COM 33 
COM 3 a 

COM 35 


£.0^4- 
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NAK.e COMA D J 


entry point purpose 


( 


CCMADl INITIALIZATION 


CCMAOJ 


TO PRINT ADJUSTMENTS TO COMMON PAQAMeTc.RS 


CALLING ScUULNCt CALL 


CGMAC1 ( I ST A NO* SS r'AfJO tL.OC .STAXYZ* STXYZC, PL*kT • 

RLON .H* RLATC . PLONO «H0 » NAMP , PSI G« 

PLHS J G * X Y ZNCM .PLHNCM, SUM! * INDXCS • 

GPVA L * CPV AL 0 * CPS I G ) 


SYMBOL 

T YFE 

I STAND 
( 1 ) 

i *i 

ESTANO 

( 1 > 

I * 2 

LLC 

1*2 

ST*XYZ 

(3,1) 

DP 

ST * Y t 0 

13.1) 

r.p 

rtLAT 
( 1) 

DF 

kLU*N 

< 1 > 

LP 

h . 

DP 

( 1 } 


klato 

(3) 

DP 

PLOMO 
( 1 > 

DF 

HO 

DP 

( 1 ) 


N M E 

( 1 ) 

DP 

PS I G 
C 3 . J t l ) 

R 

PLHS I G 

r< 


( J . 3 ♦ 1 J 


DESCR IPT ICN ' ' - ; 

INPUT - station NUVPEPS 

INPUT - MASTER STATION NUMBERS FOR ESTIMATED 
STATIONS 

SCRATCH 

INPUT C OUTPUT - CURRENT -TEST STATION COORDINATES 
INPUT - A PRIORI STATION POSITIONS 

INPUT - station latitudes IN RADIANS 

Input - STATION LONCI TUDES IN RADIANS 

INPUT - STATION t-EIGHT IN METERS 

INPUT - A PRIORI STATION LATITUDE IN RADIANS 

| N PUT _ A PRIORI STATION LONGITUDE IN RAC I ANS 

INPUT - A PRIORI STATION HEIGHT IN METERS 

input - station names ftoODU CIBIEITY OF THE 

SV page is mob 

OUTPUT - STATION COVARIANCES 

1 NPUT t OUTPUT — S T A T J J* J SPHERICAL COORDINATE 

CUV A T I An CD 0 
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XY^.NUM R 

( 6 . 1 ) 

PLHNOM K 
(till . 


INPUT - KCMJNAL SIGMA3 AND CORRELATIONS CN 
RECTANGULAR STAT1CN COORDINATES 

o 

INPUT - NCM INAL SIGMAS AND CCFRELAT I C NS ON 
SPHERICAL STATION COORDINATES 


SL.MI OP 

( 1 ) 


INPUT - INVERTED LEAST SGUAAHS MATRIX IN VECTOR 
FORM 


INDXCS l v 2 

( 3 . 1 ) 


INPUT - INDICES CF ADJUSTED GEOPOTeNT I AL 
CCEFFI C I ENTS 


GPVAL OF 

( 1 > 


INPUT - CURRENT VALUES OF ADJUSTED GEOPUTENTIAL 
COEFFICIENTS ■ 


vPVALO D F 

< 1 ) 


INPUT - A PRIORI VALUES r GP ADJUSTED 
C-FOFOTEnTI AL COEFFICIENTS 


GPS I G OF 

( 1 ) 


INPUT - SIGMAS rCR AOJLSTLD Gf> DPGTENT I AL 
PARAMETERS 


CABLING SLDUtNCE CALL COM A C J ( OU T E-R i 


SVMJOL type 
OUT E.R I 

SUER CuT IN l£ L SEC 
CCVMLN w'LJtKS 
INFul FILES 
OUTPUT FILES 


rHSCR IPT 1 CN 


INPUT - 

CUTER ITERATION NUMur.P 


PDEN 

SOUANT 

OUTRAD 

numloc 

CONSTS 

CP AA A M 

FNODF.L 

TPEULK 

NCNE 



mTJM7> 


out p - printed REPRODUCIBILITY OF THE 

ORIGINAL PAGE IS POOR 


SUjROUT I NE COM4 Dl( I ST ANC. ESTANC.L CC . S T A XYZ . STY. YZO.RLAT • RLC N . H. 
RLATO . FLONC.HO . N A v.= ,ps I G. PL FS I G. XYZNOV t PLHKOM . SU M l«lNOxCS. 
GPVmL * CPVA LO » GPS IG ) 

IMPLICIT I A-H, G— Z ) 

LOgI Cal cnpgpf 

Integers 2 i st ano. r s tano.lcc . i ncxc s 

InTlGlA CUTER .DASH, GUTF.OATP 

RlhL PlHNCM, XYZNOM, p« I C I S I C .PL LSI G 

CUJJLE PRECISION NAVf.,vr DcL 

JlMENb ION I a; AtY ( 3) , SCEV( ? ) ,CO = l t 3 ) . SIG I 3 . 2 I » S JM 1 ( 1 ) « I STANOt 1 ) « 
c a T A NO { 1 ) « LJC ( 1 > »ST 4XYZ(T. I } , ST X YZO( 3. 1 } . -TL A T ( l ) . PLC'Jt l I » H < 1 ) . 
•« L * I O ( I « ft LON o ( 1 > . u C < 1 ) . N a * ? < ] ) . ? S 1 G { 2 • J . 1 ) . PL H 5 I G ( 3 • J • I > • 
XYi.NCv (*’*. 1 ),PLHf,CM( £ * t ) . INDXCSt I J ,f.^VAL( 1 > . SPVALOt 1 > 
oPS I G ( > ) i 1 C S ( C ) 

C J.4MCN/CCASTS/CP I * D T V: O P I , CP AO. 

Co J.\/^ PAG' V/\STA ♦ N** A ST , NST S T , ••D : -i , M j I A S » N G*’ C 1 ♦ NGi’C > , NC^COV . 
NCM J I , u 1 . L I •!? , s; E K .f. SJ J'..T . M I : S T ,MI ISON, i NN--?S* , 


COMA 

On 

COMA 

OA 

C DMA 

P7 

COMA 

9S 

COMA 

09 

COMA 

ICO 

COMA 

10 1 

COMA 

l 0 3 

COMA 

1 0 3 

COMA 

I C A. 

coma 

i os 

coma 

10v 

COMA 

i r 

coma 

10 ■» 

CO MA 

1 Of 

COMA 

1 1 0 

COma 

1 1 1 
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-CO^/'ic^L^NOrX, 4 , .« OC . 3 3 . . M **L < * » 
lATm 1U/ IfC* 1HS/ 

INDXNO ( l )=NOlVM I — 1 I * l 1 ' 1/2 

fccTUwN 

ENtHY C t M A C J ( CUTcR 1 
PRINT AOJwiTcC. SURFACE CENSITICS 

IFI.NOiN^T.GT.C) CALL PDfM(OUTcf) 

NSTAnT=NCr-1‘-3H)V^T-NGfCON-NTirtNM 

IFCN&1 til .L=r.O ) GO TO ICO 0 
PRINT AOJUSTtC STATION POSITIONS 

L I N c. S — 0 - ^ - - r~ ' 

INdTA=0 

1ST=ND 1M- j«NMAS T +l 
DO A 00 L=1*NMAST 
DO 100 J : l<3 
12= I NOXNC ( I Til ) + I ST 

slot j . Ji = sim < 12 > 

]A>\K AY ( J ) ' I— in 

IFCSUKU ISl.LT.O.onO) URT Til < O'J 1° . 30 . 

!>G l .V(J)=RSa-T!'3 A55<S<JM1< 12) ) I 
100 I ST= l 5 T + I 

12=1 AKTM U ) 


:o ) J.l 


iu < r t 2 i 1 ) 


13= I Ak« A'V ( ? ) 

s i o i i » s ; = ' 

S*G( 2 i 2 ) = SL’M <13+11 
1 » = SIGC 1*?> 

S1G(S» I ) = SIC( 1.3) 

C0K1 ( 1 l = SUU < 12*1 1/ <S3EV< 1 I.S'JEVt 2) > 

Cu„l <«. l-SLMK :.?*2)/<SOiV< 1 I'SJEVI 2) 1 
cum C3I.SUMU I.5*it/<r.iev<2i*si[visii 

200 ioCUN=RUFLUC< INSTA.«TAS0.NST=ST.L-1CI 

IFt HoCU f < tLi)»0 ) GO TO 2CC 
CO *00 K - 1 • NCCCN 
L I‘Nn S = L i N - S 4 1 

IF (MUD ( L IN' S » 1 5 ) • N “ • 1 } CD T0 2 -° 

V^IT-I OlTF , 20C0) CUTER 
to R 1 Tt( CL T P » 3 0 1 O ) 

25 0 I =L JL ( K J 

CO 300 J s l • 3 
DU 300 K = 1 . J 
F ;> I G ( J • w « I ) - S I G ( J * M > 
aRITc ( C u 1 R • AO CO ) 

fcRl T E< GJTF . 30 20 1 APRlCF.NA^t 1 )» 

\m^Icmm^'c;'’I^um.MAM £<I ,.isTAMO<n.<sTAxv2<J.i.. J m. 3 ) 

« S Sl V » C C 3 1 

C«LL SCJA M (NSTEST, NSTEST * .PAL .1 

LIHz6A=0 

punch jcu.m:" 

to ioo i « i.lsi c ST 


vi'-n AlLilf^ rtl-^ 

sss^.-"* 


SCO 


40 J 


I 


, T ANO ( J)«(STXYZO(J»l)* Jr ' * ^ * 


COM/ 112 
COMA 112 
CJMA M e 
CCMA 1 1 “3 
COMA IIP 
COMA 11 7 

coma ne 
OJMA 1 1 9 
COMA 120 
COM; 121 
COMA 122 
CCMA 123 
COMA 129 
COMA 125 
COMA 126 
COMA 123 


COMA 

125 

CJMA 

129 

COMA 

130 

COMA 

13! 

CCMA 

132 

COMA 

133 

COMA 

1 3* 

COMA 

135 

COMA 

1 3 6 

COMA 

1 -37 

'COMA 

1 •». a 

/* nil * 

1 39 

COMA 

1*9 

CCMA 

19 1 

COMA 

t A 2 

COMA 

l* 3 

COMA 

IT A 

COMA 

1 4 5 

COMA 

1*0 

COma 

1*7 

coma 

1 A.® 

coma 

JAC 

COMA 

153 

COMA 

151 


COMA IS 2 
CUMA 153 
CQMA 15* 


COMA 

155 

COMA 

156 

COMA 

157 

COMA 

1 5C 

COMA 

1 S9 

CO*-’ A 

1 60 

COMA 

151 

CJMA 

162 

COMA 

16 3 

COMA 

16* 

COMA 

1 o 5 

CCMA 

1' 5 

CC'ma 

153 
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LlNLSX=L U ESX i 1 •* 

■ 00 500 J - 1 . 3 

500 PLH51C(J«-il )=SCDT(PLHSIGUiJt I)) 

CO 7 0 0 J = 1 * 2 * 

Ji-J+1 

DO oOO X = J 1 « 2 ' 

60 0 PLHS I G ( J . r , I > =PLHS 1 G( J • X « 1)/(PLHSIG(J.J»1) *PLHS 1 G(K . K « 1) ) 

7 C 0 PLUS I G{ J * - . I 1 =PL*-<S I C< J . J. I )/D? SEC 
IF ( MHO < L I .nCSX » J 6 ) . Nt * 1 > GO TC 5 00 
IF ( L l NcS **£T * 7 J WHI TFC OLTP ,3000 ) JU^R 
• WITHOUT? •3040) 

600 CALL JUT h<-'") ( RL^TOt I ) • L A T 0 iLAT^i * SL A T , 1 ) 

CAL_ OUTfi/C(RLCNO( ! )*LCND*L0NM *SLCN * 1 I 
ARJ rdDUTF.COCO) 

* li I Tc( O-J fF.OCSC) APniOS,NAME( I 1 * 1 ST A NO (-.1 )- * LATO* L AIM * SLAT « LOND » 
. ,ONM. StCN . t-0 ( I) » (PLFNCM J . 1 > » J - 1 * 6 ) 

CALL ULTA/D ( RL*-T ( I ) . LATSj L ATMi SLAT* 1 } 

CALL OUTh;j(KLON{ I ) .LCKC.LCNM. 5LON. 1 ) 


‘ J ~ lUL 

1 F ( RL A 1 ( I 1 « L T *Oo OOO ) J-i.ASH 
LATUP-I AiiS(LATD) 

LATMP= I AL 5 <L A T ,J ) 

SLATP-CAcrSI 5L AT > 

PUNCH J0cC.NAi>r.( I ) . 1ST AND < I ) , J * L A T DP , L A TMP * SL AT P , L OHO * LON M . 

» SLUN.hU) 

?00 a* I Tu l uuTP 1 3 0 £0 ) AD JUS T « K Avr-. { J ) , 1 VNO ( I ) » L A T 0 , L A T M . S L A T , L J N.. . 
. L ON M SLdf.VHt ir. ( PLHSI G < J • J * I ) i J ~ 1 » 3) » ( ^LHSI G-M'.K * I )-«K=2 . -3 » . 
. PI HA I C t ? . T . T I 

100 0 IF ( NGPC JF .LL • 0 ) RETURN 

PRINT AUJ’JSTbC Or. TPOTENT I AL COEFFICIENTS . 

NOP1 -NCSt ST-NGPCUM+ I 


11=0 

CO l 2 0 C 1=NGP l.NCSEST 

u-l 1 + 1 

IF IMJD( I 1 .GO ) .SO, 1) WP ITT. <OUTP .207 1 » OUTER 
I F ( A jO ( I 1*5 ) • E.Q * 1 ) W R t TiilCUTPi AOOC) 
JslNUXCi( i ♦ 1 J 
K= 1 Ni/XC S ( i i l ) 


M= l NOXCG ( 2 . I ) 

CJ=GPVAl( I> *C-F3IG( 1 1 
C2 = GPv'AlC(I >*CPSIG< 1) 

lr( J.wC* 1 ) CS<N.M+ 1 »=C 1 
IF ( J • EC • « ) C5 ( ,7 1-N. 32- V) = C1 
MINi>aNC ( N3T APT-NO° 1 * ! ) ♦ NS1 A c T 
atGl -V SJRT ( GUV l ( k 1 > 

S1G2=«P3 1 C { 1 J * Si Cl 
1200 *.U TLluUTF. ?C30> ICSl J » .N,m.C2 
K £ T U A N 

30 0 0 rOiHAI (in * , 5x»A0r | S TAT I CN PC-Sl 

# , KHTcf.iT! MJX"=FK 13 

301C FJnVAT ( lFC/‘iX . iSH'L ARTH FIXED P 

# IcFr>TANCAn-D Dc. V 1 *• T ! CN « I 

. U>. lHX.JJX, 1 hY.1?X,|H7 

. 3 X « JMX-7 , 5X * 2MY-// I'ix . 1 

# 3 ( S X . 3 F < M ) I ) 

10 2 0 F o «MA t (• 0 **-««*•»* ■* * * NEGATIVE. 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


-Nw° 1 4- I 


,C I .SI G1 »SIG2 

ITCH ADJUSTMENT SUMMARY for . 

/ > 

tc TAN JULAR CUORO INATZS * 30 X , 

IX . 1 I .1CLVRFLA T I JN//2 1 X. 7MSTA T I CN 
. 11 v , l M X , 7 X , l H Y , v X . I H z * 5 X . 1 »X — Y « 
1MNA NUN f.*£ R « i X • 3 ( ex * 3H( M » . 2X ) , 

GU-’CNT TO OSORT FOR COMPONENT* 


COM A 

1 es 

COMA 

169 

COMA 

170 

C0‘-«A 

171 

CCMA 

172 

COMA 

172 

coma 

17'- 

COMA 

175 

C0“A 

176 

CCMA 

1 7 7 

CCMA 

175 

CCMA 

17 9 

COMA 

1 SO 

COMA 

1 31 

CC MA 

1 P.2 

C 0 v A 

i 1 1 

COMA 

1 BP 

COMA 

1 K 5 

COX' A 

1 it 

COMA 

!£*’ 

COMA 

<; ? 

COM A 

1 S <: 

COMA 

joe 

COMA 

101 

COMA 

1-2 

C IMA 

1 c 2 

CO A 

i <r, e. 

COMA 

IPS 

COM/ 

10*. 

O'V-'A 

197 

COMA 

J TO 

COMA 

ICO 

CO'* A 

IQQ 

COMA 

20 1 

COMA 

20 2 

COMA 

20 3 

CC*'A 

20 A 

COMA 

2 :■ s 

COMA 

r\ r. 

COMA 

c D 7 

COMA 

20 2 

CCMA 

2 0P 

COMA 

210 

COMA 

21 1 

COMA 

? 1 2 

COMA 

213 

COMA 

21 A 

COMA 

215 

C 0 ‘ * A 

21 c 

COMA 

217 

COMA, 

21 7 

C J v » 

CIO 

C 3** A 


. cnm% 

i ”> ^ 

C ') ‘ ' A 

“> c 

CSV A 

> •• -* 
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3030 

3QAO 


3 0 5 C 
30 6 C 
3 C 7 0 


30BC 
30 * 3 
ACCC 


CF HASTEN STATION'. 13. • ** * * ***** ‘ ' ' 1 
FUFtMATIIF . SX . Ao.4 X .AC . 16 « 3X. 3F 1 2# 2 . 1 X^ m • DEVIATION. 

FO«M AT C 1 FC/AX .fOHOSTOE TIC COCH . C .1 AT.S . 5«: X.l- I C L A T I T UC£ . 

I OX. 1 1 HCORPFLAT ICN//2I X.7HSTAT ICI-. .X. 1 . • -• 'MLCN.6X.2HHT 

2X .1 AHFAST UCNG ITVCC . 2X OHT .6X. 3HLAT . ; * 

■' 2t:I”^^rirsnccNo7ir.t«H , T«c^»s».2x.2<2A.*M«sec».»x». 



FLhMAT I Ac * I *' . A l ,212 .FI C.7. 13 . I a.FIO. 7.r 10. J> 

POMATUM. 3 >x. 33HGEOPCTENT.au COEFFICIENT -DJU^T-, FCP. 

ilhCOtFF^C 'ent* lox'ile' VALUE^ S IX'. I C ADjusTEO) 

FONMaTI'ACJUSTHD statics coooo in~t -T f-h ™ r - n 

format (IX) 

LK1> 


COMA 
C CM A 
COMA 
CfK’A 

c • i v a 

COMA 

COMA 

COMA 

rQyfi 

COMA 

COMA 

COM. A 

CCMA 

COMA 

COMA 

COMA 

COMA 

CO w A 


22 A 
225 
225 

t- • 

2 2 * 
22 ? 
?30 
2 31 
2 32 
233 
2 3 A 
235 
2.36 
2 37 
2 2B 
2 3° 
2A0 
?41 
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^ EMTR^ 
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Y&T.MT 
f\^?OST(f ^ 
.SOtif nee 
DeM^xTjres 



STHT^CMS 
/YDjOST£t> . 


m.NT 

OorK>-ncM /^$Tus>TeT 
0] (=0 PC r £ MTX ft L 

C ceFFjae^Ts 


1L<5TUEM 


loco 


•pRXfJT 

f\^XO$>TC= 

SrATXC/O 

pos.rrx.o^s 
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N A. ME 


PURPOSE - 


COMPAR 

TO LOAD. CCMHDN PARAMETERS INTO V AP I ABLE STORAGE 
ARRAYS t, 


CALLING SEQUENCE 


CALL COMPAR ( (} P V A L 0 . GPS I G , GPNJ . G^V At »RL AT . RLON , H . 

NAME ,RLATO,RLCNO » NO* I S T AN C i E3 T AND . 
lNDXCS.TTL.XYZSlO. PLUS 1 GiSTASIC. 

' PLHN CM « XYZUO v t .ST A X Yt « STXYZO » ST A N'JS « 
LOC .LSI G, DENSO » U ENS * AREA. CENTER , 
BCENf R> 


SY.MbJL 

TYPE 

DESCP I PT ICN 

G FVA_ 0 
( J ) 

DF - 

OUTPUT - 

A PRIORI VALUES; FOR ADJUSTED 

oeopgtential coefficients 

GPS 1 G 

(1) 

OP 

OUTPUT - 

SIGMAS FGP ADJUSTED GEOPOTFNTIAL 
PARAMETERS 

GhNii 

( 1 J 

OP 

OUTPUT - 

locations o- geupotential parameters IN 
normal matrix 

GPVAL 

( 1 ) 

OF 

INPUT - 

current \ alues of ADJUSTED GEOPUTENTIAL 
COEFFICI ENTS 

RL*r 
< 1 ) 

UH 

input 

««ni 1 ■ -.4- Y t T ft«^i ^ . T‘M tf? A *Y T- A M S 

RLON 

UP 

INPUT - 

STATION LONGITUDE IN RADIANS 

( 1 ) 



% 

K 

OP 

INPUT - 

STATION FSIGHT IN METERS 

< 1 ) 





OF 

INPUT - 

STATION NAMES 

( 1 ) 




kL AT 0 
( 1 > 

OF 

OUTPUT - 

- A PRIORI STATION LATITUDE IN RADIANS 

FLCNO 

OF 

OUTPUT - A PRIORI STATION LONGITUDE IN RADIANS 

< 1 ) 



' 

h 0 

OP 

OUTPUT 

- A PRIORI STATION HEIGHT IN METERS 

< i ) 




l STAN u 
( 1 J 

l * 2 

input - 

STATION ►UMt-EPS 

Si t»T AN«J 

( n 

l *2 

IN^UT t 

OUTPUT - MASTER STATION NU^bER TO WHICH 

AO JU ST ED STATtUNS ARE CONSTRAINED 

1 NLXC a 

( j. 1 > 

I * i 

OUTPUT 

— Indices of adjusted gfo j otential 
co eft i r. pent s 
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TTL 

DP 

OUTPUT - AD JUSTE C PARAMETER TITLE ARRAY 

{ 1 > 



XYZSI G 
{3.3.11 

P 

i 

OUTPUT - STATION RECTANGULAR COORDINATE 
COVARIANCES 

PLH3.I G 
(3,3.1) 

R 

OUTPUT - STATION SPHERICAL COORDINATE COVARIANCES 

STASl G 
(3*3.1 ) 

ti 

OUTPUT - SIOHAS AND COVAS l A'ICt. S OF ADJUSTED 
STATION COORDINATES 

PLHWOM 

(6.1) 

R 

OUTPUT - NOMINAL SIC.MAS AND C ORPe L. * T I C NS ON 
AD JUS TEC SPHERICAL STATION CJC DI. 

XYZNCM 

(0*1) 

k ' 

OUTPUT - KCM.N.L S.G.AS = “ ^ 

AD4USTEC PlCTANuU'" ^ 1 ^ 1 1 l 

STAXYZ 

DP 

INPUT - TRACKING STATION CARTESIAN COORDINATES. 


c 3 , 1 > 


iST.XYZ 0 

DP 

OUTPUT - 

A PRIORI STATION POSITIONS 

(3.D 

STAND 3 
(3.1) 

1 * c 

OUTPUT - 

LOCATIONS IN 
PERTAIN 1NG T J 

NORMAL MATRIX O c INFORMATION 

' adjus^c station coordinates 

L CC 

I »; 

c :ca& tth 



U) 





U 3 1 G 

DP 

OUTPUT - 

SIGMAS CF ADJUSTED SURFACE DENSITY 

( I ) 





CE.NS0 

(1) 

DP . 

OUTPUT - 

A PRIORI VALUES OF ADJJSTcC SURFACE 

densities 

0tlN5 

DP 

OUTPUT - 

SURFACE DENSITY VALUES. 

( 1 1 




♦ 

A Pc A 

OP 

OUTPUT - 

cyDfACE DENSITY SUP-SLJCK AREAS 

< l ) 





center 

( 1 ) 

OF 

OUTPUT - 

THE GEOCENTRIC COORDINATES OF THE 
SUL- “CLOCK CENTERS 

uCeNT K 
( 1 ) 

OF 

OUTPUT - 

■ THE LAT ITUT E 
AD JUST E C SUN 

AND LINGITUDc OF THE 
:-ace density jlock 

SUCK CUT l u; 

LS L SCO 

S T A I N P 
VCONV 

INDENT 
S Y M I N V 

STORE SQUANT PLHOUT 

qjj7»jaD NUMUR2 NUMLOC 

c C ><MCn t'LUsiN; 

C INCUT 

TP 7 JL * 

CONST S 
V- PLO K 

CP as AM FLXBLK F MODEL 

INPUT P 1L 

.. s 

NONE 


eepeoducibility op the 
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OUTPUT FILES 


QUTP — POINTER 


SUBROUTINE covpah(gpvalo.gpsig,cpn.i,gpval^lat : rlln.h,namc, 

. ■'a L ATO,PLUNO.HO,lSTANC.fSTANC.INOXCS.TTL.XYZ a ir,.PLHSlG.STAS.G, 

. PLHNCK .XYZN0M«STAXYZ,S1XY7C ,STA'IJS.LQC,DSIC,DwNSO.D. NS.AkEA, 

, tcNTcRf*3CfcNTK) 

IMPLICIT (A — h.O — Z) 

LCil CAL< l PLMSV 

INTEGER* £ GPNC. 1 5TANC, ESTANlO, I NDXCS. ST A NOS . NDE XC S , LOC 
R = AL YZ S PL MS! Gi^LHnCMi XYZ MOM't PS I G . GP $ l GN » T ttD l 

CWNS ICN CPVALOC l ) .GPSTGn ).GFVAL( 1 > ♦ PLAT ( l ). c L'JNd > 1 H( l) ’ 

. 1 ^fcM)%LATCCl ).RLCND<U-HCC iMSTANCIll. SSTANO< M-LOCCl). 

!NOXCbC3,l ) .TTLl 1 > . XVZSICt 3.3. I I .°LMSIC< U • J » 

s p U HN- k( 6, 1 >. 5TAXYZ( 3. 1 ) t STXV2C( 1. 1 ) , oT AN U S ( 3 . 1 ). SL-1 < * 

5UM£(jJ«T*”l(2}*XY2 KC P ( 6 . 1 ) .GPn 1( 1 > . AXY Z( 6 » | -> ■ j • ° tNS0 
. D-NS( I ). AREA ( I ) . CFNTFR ( 1 I . -.C-M a \ ) • I SURr V 1 I , JSJRF ( 1 > 

CUMM JN/CCNO'JT / I G 1 ( 7 ) . M ST A A T , NE CN’-Ut •• ) « N S T AR D »LST A FT (6 ) 

CCMMON/CC N ST S /DP 1 » DT R*OP I . TRAC , RS:.C MrprOM. 

tOH^N/:P^AM/NSTA,NM*ST.NSTfST.N:;n.M9IAS.NGPCUNGPC2,NGPCO« t 

# ..Nv.SLST ,C*PCP«.Ll Ml . LI M2. NOE N , N V* I ST , NT l D S T . NT I N . I M NP S W . 

# NCUNST .N-JCCNa . 

CJMMuN/I" L XOL* /Ni : LXL S ( ■? CO * J I . P » i « < = . i a i > » Pl^o* i 
COMMUN/FM tDE-L/ I NOS X (A) « C S ( 3 0 • 3 j 1 ♦ V J3L L { 1 > 

CUMMU.N/rPc' J LK/INT^.OUTP.CATP(7 ),SC^C,FLTP(2) 

COMM CrJ / V E EL ON /Gt *5 I C> N ( 2 1 - 0 ) _ T , . . ■ . « i_i / 

CAVA X.3H V.2H 2.5H XCr.T.SH YPOT . =H ZOUT/.JL/1H / 

lata ^j/£H.:cc(o/.s^c/£hSccoc/ 

doui valence ( isurf t i ) . noexcs < i . i > > . t jsukfi i > .cpsi gn( i >) 

EQO IVAL-NCE (Iv-TiTwOlt 1) 1 

NST« -<T = N L I M— 3 *N‘-* AST-NCjFCCW-NTI Cr.N + l 

^^CAUL'^'AISP^is'rA'IsTANC.NAMr.-LAI.^ON.H.NlTA.iO.NSTEST.SSTANO. 

cNU FILE SCRC 
Ru«1nl)SCFC 

lP(Mj;K.Lt.O) GO TO 530 
^LAO SURFACE CF.NS1TY INFCpvaTICN F RCM SCRATCH 
UO 7 uu I 1=1 .F G5C.AS0 

1 2 - M 1 N 0 ( 1 1 4 c ft C , i. OS 0 1 

700 RcAJtoC^C I { l SURF (1 I*I-I1«I2) 

CJ 7uO 1 1 = I » 2C26 SO 
I ^ = M INJ( I 1 «■ ' A c , 2 0 ? 6 1 
7*0 «!E«u(iCRC) ( J FA’A ?(I ).I=I1 .!?> 

PRINT AML LLNVFAT W^ACt TENSITY JN* CW -1 A T I CN 
Call 1NJ-.nT< : JSI f. .DENSO , OF N S . A - f- A . C “ - J T ER . 3 . 

1 F ( N Ji'CC » v «L F • 0 ) G(; Tn SCO 

HI fiu A P ; « l CL I VALUES FROM SCRATCH F ILc. 

NGPa =.NC St CT- NC*PC‘1M 
CO o u 0 I 1 = 1 t i 22- 

| t *si.il;,vl NC ! \ * J 2 A > 

j CO ( jx.'C I IS FV L(II' i 1 !! <LI 


I LE 


INTO X 

lENTR ) 


Z ' S 


tiptrILTTT of r i® 

rB?E 0DU c ©^ poor 

original 


COMP 

117 

CO VP 

1 1 6 

COMP 

l 1 G 

COMP 

120 

COMP 

121 

COMP 

122 

COMP 

1 ?3 

COM° 

12' 

COMP 

125 

COMP 

1 26 

COMP 

127 

COMP 

126 

COMP 

1 2S 

COMP 

13 0 

COM p 

131 

CC*- J P 

12 2 

COMP 

133 

COMP 

1 2' 

COMP 

13 5 

COMP 

1 36 

CCMP 

137 

■s' n Mp 

13 5 

r i. i m 

1 7T 

COMP 

I AO 

COMP 

1 A 1 

COMP 

1 A 2 

COMP 

1 A 5 

COMP 

1 A A 

COMP 

1 6 5 

COMP 

16 6 

CCMP 

167 

COMP 

1 * 2 

COMP 

1 \ * 

COMP 

150 

COMP 

151 

COMP 

1-2 


COMP 
COMP 
COMP 
C OM D 
COMP 
CO M.P 
COvP 
COMD 
COMP 

COMP 
COMP 
COMP 
COMP 
Go V.P 
COMP 


1 S3 

ISA 

155. 

ir^ 

IS? 

1 s* 

1 SG 
loA 
16 1 
16.2 
163 
I 6 A 
165 

! tc 
1 at 
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no o5C 1- l.NGf-'COM 
IIs]«NCP* 

6f>0 OP v a l 0 I l i j = G p v A l ( I ) 

C OCTAIN 5Tut'.£C CLMMON PAKA'^TER INFCRMATJCN 
A 0 0 CALL S T O A u. ( * T ^ Ur. *»*TRUF*) 

C -CCAVsRT jTATICNS TO X, V. Z'S 

IF ( .Nl^ T A » G T * 0 ) CALL SOU ANT ( NST A , N STC ST t * Tft Uc. • ) 
If ( NOI H * L 0 ) GO TO £ - 

Ol) I 

TTL( 1 I-pL 

IF ( I «L T * 7 J TTL( X )=AXYZ ( I ) 
i CONTINUE 

s IFINSTEST «L Q * 0 ) GO TO 2C0 
C SAVE NOMINAL ADJUSTED STATION INFORMATION 
OU 20 1=1 .NSTE5T 

STAY ZC ( 1 t U = 5TAXVZ( 1 . I ) 

STXYZO ( 2 . I ) =STAXYZ C 2 , 1 ) , 

STXY20 ( J , 1 )=STAXYZ< 2, T ) 

KLAT 0( I ) sfiLAT ( I ) 

RLONO( l > =RLCN ( i ) 

hOl 1 ) = F ( 1 * 

J-dS r ANJ { II 

c ST A NO (I I ST ANO.NSTc ST ) 

JF(PLHj,v( I) » Gti TC 10 


STAS 1G( 1 

« 1 

. l 


= PS ! G ( It 

I 

) 

STAS Io(2 

• c 

* i 


=PM G ( 2 t 

1 

) 

STAS IG ( J 

9 -J 

. ! 


epsrc c 3 »■ 

I 

) 

STAS IG M 

< C 

. I 


;PS TG( 4* 

I 

) 

STAS tG ( 1 

9 ^ 

. I 


-PS I G ( S * 

I 

) 

STAS IG ( 2 

• -J 

, I 


-PS 1 C. ( 6 » 

I 

) 

GO TO 20 







FLrtS I G ( 1 

« 1 

. 1 


= PS I G < 1 . 

1 

) 

PLhS I G 1 t- 

? < 

. 1 


=PS I G ( 2 . 

I 

) 

PL Hj 1 G ( J 

f *2 

. 1 


= MS 1<>( ? t 

l 

) 

PlHS IG l l 

» c 

. 1 


= n S 1 G ( 4 » 

I 

1 

FlHG l G ( I 

% J 

, l 


-PS l G ( St 

I 

> 

PL HS I G ( 2 

t ^ 

. 1 


- P S I G ( 6 t 

I 

> 


20 CONTINUE 

CO 120 Ll=I»2 
CO 120 i = 1 , NS TEST 
11 -EOT A.MC < I ) 

IF(Il.dO.I) GC TO EO 
IrtLL.CO. II GC TO 120 
CO JO j=i«3 
CO JO <= 1 .7 

30 5TASIj(J»** 1 MSTAS1G(J.K,11) 
GO TO vO 

4 C IriLL.^-.l 1 GC TO 120 

00 i-» 0 J - 1 t 2 

CO 3 0 f* = ii *3 
IF(J.zU.K) GC TO GO 
IF ( i'LMiV. (1)1 C-U TO SO 
STAJlGlJt*.! ) - STAS I G( J * i > ’ 
STAi, IG( * » , ♦ I )=ST4SIG(J.<. I) 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


$T A3 1 M J , J , I » *ST AS 1 O ( K . K , I) 


C-U T J 6 0 

SO PLM.> 1 V ( J . K * ; JsfLHiltl J,K t n»»Ll-5I 


( J . J« 1 ) ' ■•’IHOIGI * * < ♦ n 


COMP 1*>£ 
COMP 16 G 
COMP 1 0 

coM^ n 
c CMP 1"*2 


COMP 


COMP 

1 7 <* 

CO VP 

l' 7 s 

CQVP 

l7d 

CO ‘*P 

17? 

CCMP 

l?c 

CCVP 

I7S 

CCVP 

170 

COMp 

IS! 

envp 

I S 2 

CCMP 

17 3 

COMP 

1 3' 

COMP 

1 3 3 

COVP 

\3 f 

CO v 3 

1 S? 

COMP 

IT ? 

CO vr 

13 r 

rrji.p 

jrr 

envp 

1 - I 

COMP 

\~>2 

CO VP 

\ ~ 3 

COMP 

17^ 

COMP 

1^5 

ccvp 


envp 

ISP 

envp . 

1ST 

CCvp 

i *; t 

C3MP 

*n .■*» 

CO VP 

?. 7- *. 

envp 

202 

CO"? 

2C 3 

CO V 7 * 

2 z f 

CO*’ 7 * 

2 ~ z 

envp 

20S 

CO vP 

2 0 

CO**f» 

20 ^ 

COVP 

per 

CO VP 

717 

COVP 

2 11 

CO VP 

212 

COv.» 

2 1 7 

COMP 

j> 1 * 

COVP 

r 1 5 

COVP 

71 f 

CO VP 

2’. "* 

C')vp 

-1 • ^ 

c vp 

217 

c 

^ > •* 

COVP 

? 2 ' 

r 

1 ? r 2 

co 

y ~ 
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, PLHSIGt* I )=PLHS1G{ J,K* 1J 

6 0 CO-\r l NL/E 

VO cO J = 1 .3 

lr(PLMS«( 1) ) 00 TO 70 © 

STAS 10 ( J* j. I }=STAS1C(J.J, I >**2 

GJ T0.60 . 

70 PLMS I G ( J • - « I > = PL HS I G < J • J » I J * * 2 
BO CONTINUS 

IF( PLrtS w < I ) ) GO TO 100 

5 0 CALL PLrtCLT ( ST AXYZ ( 1.1 ),STASIG(1*1*1)«PLMS1G(1 .l*I)»PltP2*P3> 


Gu TO 120 t ^ \ 

100 Call vc on v( plhs i G( l . i ♦ I ) » stas i G{ i . 1 . 1 ) ♦ xyzs i g ( i « l » I ) > 

120 COf.T I NL H 

DO laO I = 1.NSTE5T 
‘ DO 1 30 J= 1 . 3 

AYZNuM (J.I)=SCRTCSTASIG(J.J.I> ) 

13 0 PlHNLV, (j,J) = SCPT(PLHS10ti».J.I) ) 


DC 1*0 JM.2 
J1 = J/3 + 1 
j2={J+6J/2 

• -AYZN-jM ( JK*. I )=3TASIGtJl*J2.I)/(^YZNJM(Jl 
1 A 0 PlHN OM ( J 4 : i ! ) =P’LHS I G ( J 1 * J 2 . 1 >/( I’LHNJW ( J 1 
. CO ISO J - 1.2 

150 PLHNUfc: ( j t D = PtHN2M( J. I 1/RSEC : 

CO 17 0 1= 1.NS1CST 

11 = 1 

DC 160 0-1.3 
nn i^oksj. 3 
SUM1( I 1 IsSTASICtK, J*I > 


, I ) *XYZN0M( J2 . 1 1) 
« I ) *PLHNCK( J2 . I 1 ) 


160 11=11+1 

CALL S YM 1 N V ( S L M 1 4 3 * 2 ♦ SUW 2 ) 
11 = 1 

•.CO 170 0=1.3 
CD 1 7 J K =„ t 3 
■ STAS IC,( J.M) =SUM1 (ID 
STAS 1G IK J )=SU‘M Ml) 


C 


17 0 11=11+1 

N ST A AT =Nu l?.*-2 *NMAST 
CO 1.6 I=1.NST5ST 
STANuStl 4 1 >=0 
• ST ANJS (2 .11=0 
1 7 o ^TAMCS ( J 4 I ) =0 
LL-0 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


DO ISO 1=1. N M AST 
ISO Ll. =L L + I 

KOC JN=MJf* L'JC ILL .CST 4N0.NSTEST t LOC I 
IF ( NDCt N . EC 4 0 ) GO TO ISO 
Cu U'ii K= 1 . MJCt-N 
M =LOC ( * ) 

CJ lib J-1.2 

ICS lT^NG^IJ.M ) = 2 * < I — 1 ) ♦ J +NSTAFT 
TTHi01hi]O‘(1-1)»2) s n A m c ( l L ) 

190 LL.'lT INU; 

K o T /t k I - i » S 1 A (• T ♦ 1 


2CJ if IN;. I A.l: .0 ) GO TO 30 0 
»>.. |M oT..T u:. Pi •» IT IONS 


COMP 

22* 

COMP 

225 

COMP 

226 

COMP 

227 

COMP 

2.2 6 

COMP 

229 

COM® 

230 

CCMP 

231 

COMP 

2 32 

CCMP 

233 

COMP 

23 A 

COMP 

235 

COMP 

236 

COMP 

237 

COMP 

230 

COMP 

23? 

COMP 

2 1. 0 

COMP 

2M 

COMP 

262 

COMP 

2*3 

COMP 

2 A A 

COMP 

?A5 

CGMP 

2AC 

COMP 

2' 7 

COMP 

2 A 3 

COMP 

269 

COMP 

2 50 

COMP 

251 

COMP 

2 C 2 

CCMP 

2 53 

COMP 

256 

COMP 

255 

COMP 

256 

COMP 

25 7 

- COMP 

25 R 

COMP 

259 

COMP 

260 

COMP 

261 

COMP 

262 

COMP 

263 

COMP 

266 

COMP 

265 

COMP 

2 1 1 

COMP 

OS’ 7 


CO*V» 265 
COMP 269 
COMP 270 
COMP 27 1. 
COMP ?7 2 
COVP 273 
CU^P 2 T A 
COMP ?7S 

r.rjvp 27 a 
COMP ? 7 7 
CQMP O'*- 

COMP 27“ 
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lines=o . - COMP 

’ DO Z'jQ l 1 * N S T A COMP 

LlN=.3=L I NES* 1 COMP 

IF(Mu6(l INES, *5 )»«£0. 1 » IftPITf (OLTP,lOCQC) * COMP 

CALL UUTFAO(RHT( I ) .LATD.LATM, ELAT. 1 ) COMP 

CALL (JOT hAO (HLflN( I ) .LUSH , LCNM, Sl.OiV, I 1 COMP 

IF(MGO<L JNE5, 5 )«r:o. 1} V. ^ I TE { DU TP, 10100) COMP 

V»R1 Tti ( UUTF. 1 0 2C0 ) NAME ( i > » I ST A NO ( I ) , L AT 0 t L A T V » SL A T . LOND .LONM , SLCNt COMP 

. HU) • COMP 

IF l I * G T « N S T E S T ) GO TO PSO COMP 

wRITC ( GUTP, 1 0 3C0 J ( PLHNCMT J , I | ,J~ 1, 3 > COMP 

V. fit TF. ( OL T F , 1 0^00 > COMP 

250 Continue • comp 

300 NGP=NO im-ngfccm-3*nmast-nt;dem comp 

NSTAkT=NCF+1 . ' — COMP 

IF ( NGPCC N .LF. * 0 ) RETURN ' COMP 

C LCAL> cSTlMAUw .GEOPOTENTIAL COEFFICIENT INFORMATION INTO VARIA3LE COMP 

C STC.hAG~ mRKAYS COMP 

NGP 1 =NCj AST — NGP COM - COMP 

CO 5 0G I-l.NGPCJM COMP 

1CS=N^2XC £ ( I , 1) * ' COMP 

N = MDtAC5> ( I 1 ? ) COMP 

y=wu£xcsu,?) comp 

11=1 +NGP1 # COMP 


1 N0XC3 ( J , Ills ICS 
INOXCS ( 2 . 1 l ) =N 
iNDXCb ( 3 , 11 ) = v 
P - i-i + 1 

L I I L 1 1 
GPNJ ( I 11 = ITT L 
T v* D— C a O 

IF ( I CS • £ C *2 ) T>D=S*D 
,J = N/10 
i I=JC',:: 2t 
J= M- 1 0 * J 
11-1 1 + J*£ 55 
0=<M-1 1/ I C 
11=1 1 ♦ J 

J=16 7772 lc*( M-l-1 0* J) 

T«DlU) = CH(T>Cl(l),in 
TwDl < 2 ) =C A ( T * G 1 < 2 ) , J > 
bl G = GP S I CM I > 

GPS 1 o( II )=SIG 
TTL ( IT TL >=TV.O 
IF< ICS.L T .2 > CC TO 500 
K=31 -N 
M = 34 — M 

SCO GPVAu ( I 1 )=CS(N*M)/SIG 

RE TOrvN 

1 3 00 C rj^MAT { lhl.^X.1 =M TRACK 1 NG COIFLr l CNT/, IhO, 1 2X , 7HST4 T I CM . 6 X , 

1 1 7HG„C G2 TIC L AT I T UG E , 0 X « 1 «>h r AST LONG I T JO C « C X » VHS»K I 0 • 

2 -jHHi] Ct-T/ IHO. 10X., 11 HNAMf NUVUf R *SX « ? ( 1 MlPEG MM 3FCCNOS.6X), 

3 3a, ;ri(*:TEFS) ) 

1 C ICC Fw«M.\T ( l > ) 

1 C 2 0 v/ ruM-il ( 1 J * « A 7 , ! C . ~ X . 2 < 2 l 3 ,F?,3.9Xl.Fll*?l 

I 0 3 r G »•’.;•< 4 A T ( 1 f x , 1 m+ , " C « l * I ? a , ] ■ ' » i i; , S . I -j A . I H ♦ . ~ S • I ) 

I 3 4 CG Fw/v *: AT l 1 I • i , -*• G X * 1 M_ , 2 1 X « 1 , I t X , 1 *•«_ J 


pbpeoducibility of the 
original page is poor 


COMP 
COMP 
COMP 
CO M p 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
CQKp 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
CCMP 
CCMP 
COMP 
COMP 
COMP 

c <r*p 

CO-'f’ 

C*J 


ENJ 


COMP 


230 

231 
2C2 
2 A 3 
2SA 

235 

236 
PS 7 
233 
259 

290 

291 

292 

293 
29 1 
2 9 5 
2T 6 
2T7 

2 93 
paq 

3C0 
301 
30 2 
3C3 

30A 

30 3 
303 
307 
303 
309 

31 0 
31 1 
212 
313 

31 a 

315 

316 

317 
313 

319 

320 

321 

322 

32 3 

324 

32 5 

326 

327 

3 2 A 
3? 9 
330 
3 3 1 

? 3? 
V*3 
•3 ia 
3 **> 
*>3 6 
337 
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POSITIONS 


AcoweMrxflL 

APdXOfiLI MAlOCS 

FRorw SCOTCH 
p 

FXLf 


"X. fO r-O t rrk AT X C Avi, 


580 


%0O 


' E -Gf\J ) suRFACS 
XENi XT^ XNFOtL- 
n\fltxo/o f-tenv 
SeCAicH Fxee 


. / St opt; \ 

/ SToCLes \ 

AjO/KrAoyO ’PA£fll7'€'t<i:iO) 
\ lKjR.(2f)lflTXCO / 


/ T ^gtO’T \ 

/ VRX Ki-T \ 

MW E> CoiJV(*£T \ 
SOR-FAcie TV/ 

VlWr-CRfW^TXcO / 
\ •* xmc / 

\ ^Y.z'. / 


TTbQQA^T \ 
* CoKioeaT 
SVATICs^ TO 

\ , 


5 80 


JTlTic^S 
.fM>TOSTcr p 



. hes 


^coPcTeU'rrftC' 
APC.XOR.X 
v vnu;e^> ^ 


soo 


5avc* NCmr ^Gi- 

ft t>lusret> &rATx<yv’ 

J/vJi'Ofim ATT.oyO 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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NAME 

PURPOSE 


COMMON BLOCKS 


CONSTS 

8LOCKOATA STGRAGE OF INPUT/OUTPUT FILE NUMBERS, 
'INTEGRATOR STEPSIZE INFORMATION. CONVERSION 
CONSTANTS, AND EARTH PARAMETERS 


CONSTS 

CPARA M 

CONCUT 

INT8LK 

CGEOS 

MONTHS 

VRELO K 

TPE8LK 




c 

c 

c 

c 

c 

c 

c 


Block data . - . 

IMPLICIT KG AL * 8 (A-H.O*-Z> 

LUG1 CAL 1 CR'iFT , VARSTP .NCRPAT, I MTAL .KLVOSW 

INTEGER XY2TP,f- VTP, SCPA.'SCPC. FL TP .PLOTP.DAT P .OUT P.GRD TP, ORDER 
LUUrtLc. PFECISION LOVE 

COMMON/CC KSTS/DP I .DTWOF 1 * CPAD. CRSEC 
. CCMMJN/CPARAM/NSTAI I 9 ) 

COMMON/INTELK/THCOT 1 , TFEUT21 a ) .GM.Ai , ASSQ.F ! NV , F S03 2 < It ) . RPR E 3 S » 

, INI T AL .NORRAT .THF.TG .FOG IF.S( 6 ) , ST EP$Z ( A ) » HLVER2 l 2 ) , C RLE KB ( 2 > , 

• CTUL(2).RT CL (2)*3TPlC*( 2).S ( 2) .ORDER (4) , A£AT( A ) ,VAf>STP{2) 

# HLV C S V, ( 2 ) * NT ON ( r : ) , L OVrl ( 2 ) . T CR EF T , NBOOY 
COM*>1 J N / C G EO'S /■ 1*5 A T l D-(‘ 2-J-. T H.ET GOT IS-> ».I C6.14 1? } 


CO V.MC A/ ML N 7 H S /'"JN r '-‘ {26 ) 

COMMON/ V ££L 0,< /C P.SL AM < 6 & * * I G < 2 1 IS ) 

COMMON/ TPE3L< /I NTP « OUT P.PATP * X V Z T P • KEPT AP ,RVTP, PLOTP « I COS. SCR A* 


• SCAC. Ft TP, C^DTR 
DATA 3TEFEZ/4 * l «0D + 2 / , 

• UpLEFB/EtC.PSO-I 0 /» 

. ATJL/2*0«250-7/ , 

• STEPGP/2 *4. 0D2/. 

, VAA31P/2*. r AlSEe / » 

, T GklFT/* FALSE. / • 

*’ FS022. AS AT/21 * 0. CSC/ . 

CAT A INTO- ,0UTP.0ATP » X Y 7 T P 

• FLTP.GR OTP/S, 6 « 12 .E>, 9 , < 
LATA rtCMlh/0, 21 .60. 51 . 1?1 .1! 

• 0.21«3?.90.1?0.1! 


1 HLVCP‘J/2*0«25D-4/ , 

C TOL/R^O.PSD-l 0/, 

S 1°LO’.V/ 2* 1 2. 5D 0/ . 

O POER/ 4 * 1 i / . 

MLVOS-V/2*. TRUE. /, 

NC PA AT/. FALSE./, 

NFON/A*D/ 

PT 3P, RVTP . PLOTP , IOB3.SCRA.SCRC. 
.1 C.2C.1A, 16. 13.13/ 

2, 10 2.213.244.274. 30 5, 335.366. 
1, 131 ,212. 253, 273.304,. 134, 36 5/ 


LATA NbT A / 1 Ct * C / 

CATA n A«C S / 1 9 * 0/ 

CmTA N5JLY/2/ 

Gp jv ITAT JjNAL CHNST4NT T I *■* E S MASS CF EARTH IN M £ TERS* * 3 /SE CO NO 5* * 2 
LA I A 6M/ 2 #9 S6C13000C+ 1 «/• 

SEN l—MA JUK AXIS UF f'F-E PENCE ELLIPSOID IN .METERS 
» Ai/c 17 £ 1 pi, OC/ • 

INVc.ro- OF FLATTENING OF REFERENCE ELLIPSOID 
, F 1FV/29A , 2SE DO / . 

RATIOS OF LUNA-}, SCL4A, PLANETARY MASSES TO MASS OF EARTH 
« , » N‘. l_ L N 

. nOj IE;- /O. 1 2T r 71 7 1 C Of c CTO- Cl . 


• . .SUN 
« 

• • . V C.NUG 




CONS 

1 3 

CONS 

14 

CONS 

1 s 

CONS 

16 

CONS 

17 

CONS 

1 3 

CONS 

1C 

CONS 

2 C 

CONS 

2 1 

CONS 

22 

CONS 

. 23 

CONS 

2 A 

CONS 

25 

CONS 

;>/ 

raNF 

27 

CONS 

20 

CONS 

24 

CON’S 

3 0 

CONS 

3 1 

CONS 

32 

CONS 

.33 

CONS 

34 

CONS 

3E 

CONS 

36 

CONS 

37 

CONS 

3F 

CONS 

39 

CONS 

4C 

CONS 

A l 

CONS 

02 

CONS 

43 

CONS 

4-4 

CONS 

4 5 

CONS 

4 6 

CONS 

47 

C ONS 

a a 

CONS 

AD 

CONS 

5 C 

CONS 

si 

CONS 

s? 

C JNS 

£7 

CONS 


CONS 

3f 
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• • * M A R a 

. « 

• • « JUPITER 

0 

e**SATuRN . 


0*e 150 00 3 22*; 23 a 9560+ CO. 
0. i074466525270C73D*C0» 
0* 3 17860*3 30 30 + 03 , 


0 0* 961 4905 1 750+ 02/ 

C RIGHT ASCuNj 1CN CF GREENWICH AT JAN 0.0 FO :> 1 753-1975 IN DEGREES 
DATA ThE 1(0/99* 151 A4I7C0. 9E* 91 2725 TOO . »«r# 674006500. 

# 99*4209 3A7DO . co. j £6 i £600 . 9 e. -*4 34 736D0. 

. ' 9 6* 706 7E25D0, 99 .45 1 71 1 700 , '-9 . 2 1 29935D0* 

# 5e*C74P765CC.cn«73E55 95D0.99*4:?3 + a -96D0. 

• 99* 24 37 750 f. C • 99 * C 0 5 OS A i o' 6700 ♦ ) , 765 3 375D0 * 

. 99, 5132703233 00.99 * 27455+1 Of. 60 0*99 o035337500D0/« 

C MEAN ADVANCE IN RT ASC CF OKEFNWlCh PER MEAN SOLAR DAY IN DEGREES 
« Tl-DCTI/* 9‘:S647 3354D0/* 

C SC LA 9 RADIATION PRESSURE Ih Nf * T ON S/ME T E P ** 2 

* • R PR t ES/. *50-5/ 

C PI IN KALIANS CDOLDLE PRECISION) 

DATA DPI /2* l-ir>925526f 9793 2D0/. 

C TWO PI IN RADIANS (DOUBLE PRECISION) 

« DTrtOFI / 6.2331 653071 79596^00/* 

C CONVERSION FFC« DEGREES TO RADIANS (DO'JNLc. PRECISION) 

. ORAL /.0 1 745 329 25 1 <*94 3256DC/ . 

C CONVERSION FKM SECONDS OF ARC TO RADIANS (DC'JELE PRECISION) 

« DRS£C/«4v4 f 13o? 1 1095360-5/ 

CONSTANTS FUR SOLID EARTH TIDES 
K 2 


DATA LJVE/0.2SD0. 

C K 3 

• ’ 0 • CD 0 * 

C * LAMcCA (PHASE ANGLE - t EGRESS) 

« 0«CCC/ 

DATA LLSL/M/O.ODO. 1 . ODO,64*C.OCO/ 

■ END 


CONS 

EE 

CONS 

5"> 

CONS 

53 

CUNS 

St 

CONS 

60 

CONS 

61 

CONS 

6 2 

CONS 

S3 

CONS 

64 

cons 

6 5 

CONS 

56 

CONS 

67 

CONS 

66 

CONS 

69 

CONS 

7 C 

CONS 

"M 

CONS 

•”2 

CONS 

▼3 

C DNS 

74 

CONS 

•» c 

CONS 

If-, 

CONS 

-» 

CONS 

? F 

CONS 

T C 

CONS 

*0 

CONS 

r 1 

CONS 

A 2 

CONS 

33 

CONS 

s t. 

CONS 

3 5 

C DNS 

a a 

CONS 

3** 

CONS 

a p 

CONS 

<F 9 

CONS 

70 
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NAME 

PURPOSE: 


CORPEL 

TO COMPUTE AND PRINT COPPELL T t CN C?DFFF J C I uNT S FROM 
THE DIAGONAL and AMOVE The DIAGONAL OF A NORMAL 




MATR I X 

IN VECTOR FURM 

CALLING SEQUENCE 

CALL CORPEL { SUFI *NPAR AM, NDiv , INNER , TTL) 

£ YM3QL 

T yVe 

CESCR IPT ION 

SUM1 

DP 

INPUT - 

INVERTED LEAST SQUARES MATRIX IN VECTOR 

( 1 1 



FORM 

NPARAN 

i 

input - 

CRD EP OF LEAST SQUARES MATRIX 

NDIM 

i 

INPUT - 

F TP ST DIV-NSION OF SOUAPE ARRAY EQUIVALENT 
TO * SUM 1 * VECTOR 

I NNER 

I 

INPUT - 

ITERATION NUMGER 

T TL 

DP 

INPUT - 

CCRRELAT1CN PARAMETER TITLE ARRAY 

( 1 ) 




SLeftCUT 1 Nl 

S USED 

NONE 


COMMON BLOCK 5 

TPEBLK 

• 

INPUT. FILES 

NONF 

t 

OUTPUT’ F 1L 

es 

OUTP - 

PRINTER 


$U3 ROUTINE COPPELt SUVl , NP A R A M f NO I M , I NNER.TTl ) 

1’nTEGc.K CLTPi CO LI , CCL2 
REAL *■ 0 SI>1(1 ) . TTL ( 1 > 

COMMON/TPccLK/I NTP, OUTP, SCRTP< 10) 

C COMPUTE CORRELATION COEFFICIENTS 
IF lNP*PA*-l )2C, 1 0. 30 
10 5 UM l ( 1 ) = CS0RT (SUM l ( 1 ) ) 

2 0 •r£TU(<N 

JO DO 2534 I=1»NPA?AM 

1I=\U1V¥( 1-1 )-(( I-IJ + I )/24l 
SUM l ( * M = C SOK T ( SUV 1(11)1 
lrdfCUfNEARAH GO TO 2532 

II = 1M 

CO 2531 J = I 1 • NPaaam 
1 J=I I ♦ J- I 

25 2 1 SUM! ( I J ) * SUM 1 ( | J )/SLM 1 ( I I » 

C DIVIDE Jff -Dl/uONAL TETRIS E Y SDUA- E -GOT OF PO *t AND COLUMN DIAGONAL 
C TERM 

If { I .CD .1 ) GO TO 2534 
252211=1-1 

. Ji -I 


CUPP 

COPT 

COPP 

CORF 

CORF 

COPP 

COPP 

COPP 

COPP 

CORK 

COPP 

COPP 

COPP 

CORK 

COPP 

COPP 

CORK 

CORF 

COPP 

COPP 

CORK 


35 

36 

37 
36- 
39 
AO 

4 1 
A 2 
A 3 

A. A 
t, 5 
46 
A? 
4 C 
A 9 

50 

51 

5 2 
5? 
SA 

5 *"• 
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CO 2i32 J = M1 

SUMl { J I) = £UM I < J I ) /SUM1 ( I I ) 

26 ? 3 J l - J l + NJ I * - J 
2534 CONTI NUu 

C PRINT CORRELATION COt'F F T C I EM S * 

J3TKT=2 

lSTOP=NPA fi AM- 1 ■ „ . 

ISTKT=1 

\nRITL(GUTF» 1 C 1 1 2 ) innef ■ 

2 53o *RI T£< cU 1 F . 1 0214 > ( TTt_ ( IJ , I = JS 7R T ,NPARAM ) 

DO 2 53o l- : M STOP 

I 1 =N L> I V * ( 1-1 )-( I “ ( I — 1 ) I/2 + I+1S.TRT 
CUL1 -1 3TF T+ I 

CUL2=MINC (COL 1+ IP. NPARAM) 

12=11 *■ CC L. 2 — C CL 1 

26 3c Tclcolf, 1 0215) T TL ( I) • ( SUM1 < J ) • J= I 1 • 12 ) 

J3TRT= JS1KT+2C 

1F(JSThT * 0 T uNf-APAM ) RETURN 

1STUP= I ST LP-2C 

I3TRT= Ii,l FT + 2C 

GO TO 2636 

101 1 2 FU.-MAT { 1 Ft, 5X ,71 HCCFRcLAT ICN COEFFICIENTS "OR ADJUSTED 
o AF Tc. K 1 T £; RATION N(JMbcP.I3) 

1021*< FORM AT ( 1 h C , t- X , 2 0 Afc/ ( 7X ,20 Ac )) 

10213 FORMAT ( 1 Ft, At .2CFF , 21 
t NO 


. cork 
CHRP 
CORR 
CORK 
CORK 
CORK 
CORK, 
CORK 
CORK 
CORK 
CORK 
C3R C 
CORK 
CORK 
CORK 
CORK 
CORK 
CORK 
CCRR 
CORR 
CORK 

PARAMETERS CORR 
CORK 
CORK 
CORK 
CORR 


66 

57 

5* 

59 

60 
61 
62 

63 

64 

65 

66 
67 
63 

69 

70 
T 1 
72 
7 3 

74 

75 

76 

77 
7 C 
70 

*0 
e i 
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COWCOF t 

DESCRIPTION 

COWCOF assigns predictor o.r corrector coefficients 
for the integrator depending on the order requested. Per- 
missible orders are five through fifteen.- 



COW CO F 
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nam£ • 
PURPOSE 


COwCDF 


TO ASSIGN INTEGRATOR COEFFICIENT VALUES 
OROFRS 5-15 


CALLING secuence 

CALL COWCOF(POS. 

VEL * I ORDER . 

IPC ) 

*. SYM&OL 

T VPS 

CESCR I PT ICN 



FOS 

DP 

OUTPUT 

- VECTOR 

CF PDS I T1 CN 

COEFFICIENTS 

( I > 






VEL 

UP 

OUTPUT 

- VECTOR 

CF VELOCITY 

COEFF I C 1 ENTS 

t 1) 





- 

IOROER 

i 

INPUT 

- CFDER 



1PC 

I 

INPUT 

- PREOICTOR/CCRRECTUR 

SELECTION Switch 

SU6ROUT I N£ 

S USED 

NONE 





CCWMON SLOCKS 
IKFUT FILES 
OUTPUT F I LE5 


NONE 

NONE 

PRINTER — 6 


EBPRODUCIBILITY of the 
ORIGINAL PAGE IS POOR 


Sue ROUT IK£ COfcCDFIPOStVLL.l ORO ER » IRC ) 

. IMPLICIT REAL*? li-P.O-Z) . ’ 

ClMrNSlON POSID.V^i.m 

CltfEN:>ICN JET A( ?■? ) , -3ETASI ) . ALPHA(99 ) » ALPHASt 1 

0 1 ME NS 1 C N .* 5 < £ ) < S'; ( 5 > * F ? ( * I • 3 £ ( 7 ) • 4 ( 3 > • til D ( o ) i -.4 1 1 ( l 3 ) ( tli 2 < 1 1 ) t 

b 1 3 ( 1 £ ) * -J 1 4 ( 1 3 ) . f? 1 5 ( , .5 ji; ( 5 ) . u 57 ( S l , IS3<7),AS?<5)» 

h s i o ( ; x . n s u ( l o > , o s i 2 1 11 > . u s 1 3 < 1 2 ) , -< s 1 ( 1 3 j , s 1 5 ( x a > 

c 1 me m 3 i c n 45{i).v:(5),A-{ji,A'i(’),M(3),An<'-o,.\;ino),Ai.2ni),- 

A1 J(li 1, \U( 13) *A1E( lAJ.ASSIAI iASe(5).AS7(S) . ASS ( 7 ) , ASv ( 3 I . 
AS10IS KA51K I 0 ) • A 5 1 £ ( 11 I ,4f IK 12 ) .ASli( 1 3 ) * AS 1 s ( 1 -A ) 
fcUUl VALENCE ( =b( I ) * ?CTA ( 1 ) ) , { 3S I 1 ) . iSTA( £ ) ) . (i 7 (. 1 ) , A£TA< 1 0 > ) » 
(03(1 ) * J = T A ( I6))»(3Stl )»UETA{?2) ) ♦ ( J 1 0 < l ) . )ET -\ ( 3 1 ) > , 

( J 1 1 ( } )«R£TAl40) )•( F 1 2 ( 1 ) *tETA( i 0 ) 1 . ( 5 1 Z ( 1 ) , OL T A ( 6 l ) ) , 

( til h( 1 ) . LITE { 73 ) ) . ( t 1 5 ( 1 > ,S?T A ( ?.> > ) 

EOul VAt_E4 C5 {535(1 1 . •? E T A S ( 1 ) > « (ISM 1 ) » Liu T A 5 ( 5 ) ) « 

( 337 < 1 ) . rf TASI 1 0 ) ) i f L’ S .* ( l > . EFT A -i ( 1 d ) ) , UiSO <1 ) , LETASI .?.! ) > , 

( ua-10 ( I ) • As»| ? 1 I ) , ( JS1 1 ( 1 I , j? T^S( A 0 ) I , ( - J51 k ( 1 I , •i'-TASt 50 II * 

( it 3 1 J ( n.‘:ETA3(«51) ) , { 1 « ! £. ( X 1 , T* T A 5 { 7 ; ) ) , ( p S 1 3 ( XX , O \ T AS ( tb 1 > 

fcOul VAU-NC" ( AS( 1 ) i AL y FA( \ ) ) , { A d { \ ) , ALPHA ( -> ) I * { A 7 < 1 ) , ALPHA { l 0 1 ) * 

Uc (1) ,AL*>A ( ) ) , ( A' ( 1 ) ,AL;-N\( ,M) ) , ( M o ! 1 ) ,^L r M \ ( 31 ) ) * 

< A X X < l ) , ALPHA ( A J I ) , ( t 1 2< J > , 130) ) • i A 1 J ( 1 ) , /L PH A (t I ) > . 

(aU( l),ALPO\(7II),i;i!U!. Alpha ( r 6 1 ) 
iOOlVAL - ) , ALPrtASI t ) ) . ( A f , ' { 1 ) • ALPHAS! ‘3 > > . 

( AS 7 l 1 ) , alpha s { I 3 ) > . ( A r : ( 1 > . Ai.Pil,, 3(1' ) ) « ( AS ~ ( l ) • ALPHAS ( 2 1 ) ) * 

{ AS 1 v t 1 > . AL'-rfA M 7 l ) ) , I AS I 1 ( 1 ) , A c >. * A i ( .\ 0 I ) , ( A S 1 3< 1 ) * AU »H A S ( SO ) ) 


CDwC 

31 

CO *c 

32 

COWC 

? 3 

COWC 

3* 

CC3V.C 

?S 

COAt 

3 f. 

COWC 

37 

COWC 

30 

COVI c 

30 

euwe 

AO 

CD AC 

A 1 

COWC 

42 

cow c 

4 3 

COWC 

;a 

CO wC 

45 

COWC 

A6 

CO AC 

47 

C0-;C 

• t> 

CJwC 

4G 

COWC 

5 C 

cow c 

3 1 

COWC 

52 

COWC 

3 3 

C'Jv.C 

SA 

C-TWC 

? 5 
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( AS 13 111. ALPHAS! 61II.(*SH( 1 ) » ALPHAS! 73 ) I . < AS 1 5< l I . ALPHAS ( 86 > I 

= (XCHOEF>-5) * (IC9DFP+2) / 2 «M., t *oQacn+fti 

. 0?7777777? 777T^^1, -.2?. 12459-959$ ?$>9995D+01 . 

■ ♦ lA?0fl3V3222 i:O3:*JC t 0l,-.3«'.‘lUniMlllll00*00/ 

Uo/*. 15701 JS??V?e°nE3fi30*0t . -*35217*4494*4/4444*0401 . 

+ -3 T9^^D'5'50999Ot;ccc.uC'»0 1«-* 1 6 erjOSoC'tbj^S^SSC' 50+01 ♦ 

J7/T. *2857308201 CE3ZC1 CTO, . - . 5 I 0 9? 5 A I 0 OS 2 ? 1 0 D S 20 * 0 1 . 

;: 4S 5S?lS312 1AS212t8C.0l.-.Ar23^A0,/72«- J 6772O.0l. 

"4.1 <507-32 0 767 1=5767140401 . - » 3 1 56 5 1 o j 1 2 1 £ 53 1 2 1 t»3 + - 
tiS/«.2 r * °9 C = c -3 57 1 a?P5?l*r) *01 . - * 6 9 35 2 5 1 32 2 7 5 1 3 2 2 7 5 O + l» 

I^iriMS7'3677a.SA77C»62.-.19S0M634<>SA S5 SOW.O*O2. 

♦ . £47116? C.2 27M22274C+01. -.21 *09 3 9153439153430 01 » 

4*3 CC ? 24 5270270 27 C3 6 0+00/ 

ay /4. 2 b*Af" 23 3 57 5 2 27742*0+01 ♦ ~* 39 99327 3255 3 774-2 ^00+ 01. 

151 537C,56M209C + 02, ->2 1223545623 39770720 + 02 . 

+ . 1 h?9 1 5C 0 5 30 1 r 24? l>c + 02. ->5333167 162 6 5 24^2 690 + 0 1. 

4 ,?-> 06 30 0 5 A 0 1 2 3 <-5 6 73 C + 0 1 . ~ . 29 4 66 30 C 0--4 0 9 1 ? 1 07 0 + 0 0 

CATA OIO/ ,t Al 17*“* C*0>23« M70<0. . I 120-.1 30-MM + + *> ”0.02. 
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OAT A bSa/M.12SP6111 111 111 11 l ID <00 « + . 370 5 J 1 .5 3 3 3 J 3 73 3 3 3 3D+00.' 

# 2 ’3333 332 23 2? 32333 C +C C. +* 1 O 1 -W! iPUPri^bOH-^eiiD + OO » 

9 -, 1 e7499999':9C ;: >69949C-01 / 

L.ATA fc,S7/ + *315.r- c 1. ° 3 1 2 1 d c 3 1 2 1 6.D + 0 0 , + * 2 5? 1 TO J 32 00 42 323 0 A 0 + 00 • 

# -,376 02513227=1 22 27-*-C + 00* + »2^^0 , ' , 0 5':^330637 330'3 + 00* 

m — 00950? Q47Cf S547C7C-01 . + ■ li2b"l 77 J 74 179-194 10-01 / 

DAT A b $8/ + • 3 C 4 2 24 5 3 7 0 3 7 C 3 7 0 3 6D + 0 0 . + • 4 5 0 3 J 3 99 7 3 « 3 5 7 ? U 6 30 + 00 « 

m -*5465360*A4 735A4973C + 00. + .47lf2 : »6?14O£57l42SD+00f 

« ' -- « ,2 60 6 06 ft l 2 1 t c 3 12 l 69C+00 , + % 3 2 4 7 3 5 a A 7 73 5 A 4 4 7 340-01 * 

c 13673 G 4 17969*? 170-3C-01 / 

DATA DS9/+, 2945650 0C49C51 71C7Q + 90 . +- » 5 2 r 'Ai 7 ) 3540V54 37 339D+00 ♦ 

4 -*7 430 233 1 3692 06349 1 C +00 .+. 7 9 -$4973 322 92 7 6 39530 + 00 ♦ 

6 ‘ 522065 53 30335C76 9? C +00 , + , 27 JCr.0 U J*4 02 0^ 3 V9 1 0+ 00 • 

# -• 7 £r.631 £-035 273 36659 C-01 . + * 9 3355 3 56 36 l 1 97 2 3 440-02/ 
DATA 8S10/+«26697344 66 ?Pf:7li2BC+00, + «3oO0i 37 3 ^1552023210 + 00. 

# -,964016? 2 5 3 37,74 25C4C+00. + . 1 2 4 0 ■? J 9 37 o 4 64 l 26930 + 01 » 

, -* 1 140 564373 697707 2 3 C + 0 1i+o7209 -*• 3 5 3^1 >3421 51^0 + 00* 

# -* 2 9755656^6 96 4 l 26 9^ C+C O « + , 724=> S7 63 594 j 85 36 1 60-01 , 
— * 7 P r 2 D 5* 01 22 ^ 5C 7900 C- 02/ 

CATA b 51 l / + « 2 50 1 5 C '£ = £4 & 34 367? 1 C +0 9 . + * d 5 OC ? 2 4 360 1 69 l 5 1 62D + 00 • 

% — »12ri r 30^6 252«‘459l9 4C + 01.+»17 10 "•917**4 0^34 42350 + 01 , 

# . — * 19955014719 6 1 63029 D + 0 1 » ■«- » 1 6 7 5-' , :v393l>2 47 39 45 PD + 01 * 

# £ 676.660 6 1 6 C77 2607 3C + C 0 , + » 3 1 :.7 >7 6 1 4 1 734-3 C30 + 00 . 

# 6 596 52 0 3 37 4C5 5 06 C6 f;-0 1 » +* 6 7 67- *499 *46 34706? 5D-02/ 

DATA d 31 2 / ♦ * 2 7A 2t,5t'-40 02 1 5 94 C590 + 0 0 . + « 70 433 3C001 4 029 1 3040 + 00 . 

o 1 V7 1 5*37 563 23“'7P£- C+0 1 ,<+,2521 16545172961 930+01 ♦ 

, -»22 39 6333175525 P97EC+ Cl. +,30 bP-231 5 21 5 44 55 4 30+01. 

, - -• ? 1 1 1 71 7907 99 2 fc3? 1 nC + O 1 » + • 1 02 7 67c 33742 22 542 50 + 0 1 , 

B —• 3 25 5 67^ 4 2 a 2 5 2 £ 2 F. A 5 C + 9 0 , + * 6 o 9 2r -i 1 4 1 O 3 0 1 1 3 30 1 0— 0 1 • 

# -,5924056412337652332-02/ 

DATA 5S12/+ + 2 69 023 0 4£ 7726 fl?77 4 r*00, + .7tC' 36 -i 2=97 7744 0 420+00. 

# — ,1'7 A 290 5C93C27C5 2430 + 0 1, + , 33'.. 5^427327 3575 357D + 01. 

e 4 -6774 2 09 3 67 5 1 5 3?-5 V. +0 1 . + . 5 4 1 a 1 7 6 A 37 52 9 51 71 30 + 0 1 . 

# -* 4531 27 Q 1 9 2 17 1 c S ? 3rC + 0 l . + ,2 F-7-: 3 1 1 2 ?4= J4 -335D + 01 . 

, -.1199 60 2129C C 1 0*9?. 6 2 + 01, +.2 r * 40 4 4 £4229327700 3D + 00. 

, — *6252763?24479C7 r * 7? f. - 0 1. ♦ • 5 2 *6 5 3 5 2 3 7 3602 3 5 C6 ; 3— 02/ 

DATA bSl 4/+ • 2 t 4 ?S1 2* ? ’ + 60061 39C+0C , + .32 i Of * Co ‘‘4^252 l 10. t’ + CO, 

, — •2C7162C C 3 7 £5 1£;M5/C+01 » + » A 4 1 A -» >2 53226; 357069 + 01 . 

# 72 t 210330*. It 21C 4 3 9 C+01. + .~192'*:»4l75 7 0 <: -? J v 9570+01. 

, — , a £ F 3 27 3 7 2 l 2 ? > 72 1 2 7 C + O' 1 « + *6‘. 603 0 1651 1 2 .? 3 2 1 S 50 + O l » 

. m — ,3514563 -3A 1476970. 3 10 + C1.+.13? .3 05 4 192 344 575 2 03 + 01* 

# -,3722-425771 1 4 c £ C ? 5 5 C + 0 0 , + , c 1 3i 6 6 7 4 1 4 2 4 57 4 5 9 2D - O 1 , 

# -, 467763 3 407C*22£ "-5 1 C-Cr/ 

CATA b 5 1 i/ + » 2 60 t 36 3 961 276 C I O 36,3 + 0 C . ♦ ,3776 :C?d 59 6 9 2-2 32630 + 00. 

9 ? 40 9 .337 262 574 26? 770+0 1 • +• 5 '20 36> 9?2o4 062 23CD + 01 . 

# - , 1 C? 9 1 7 9 4 6 5 d 0 5 1 C 1 7 4 f I «•■}.',*• 1 4 6 1 7 3 *7 7 C 7 5 0 7 0 1 4 2 -J + 02 . 

# —*150661 3 57 7 3 ^ 121 1 266 + 0?, + , 1 ^ -5321 »c,9 32 26 7 1 3 20 ♦ 0 2 , 

9 - , 393^^0 7 27 3 0^7 Cl * 3 70 + 0 1 . + . 4 .!•; t>75 604 37 334 «. d2 5D + 0 1 . 

# t =7 7 7 l r 9 1 7 4 70 1 ^ 5*- 9 T + n 1 . + • 3*' 0 1 32 5 4 *7 3 4-3 >4 J 4 | O ♦ 0 0 . 

, -* 69471 ;7?5 1 4 1 1 2«- 1 1 6 r-0 1 ♦ + * 4? 1 -*. :52 2 5“ 0 05 47265D-C2/ 

LATA A5/ + . 3 4 f. j 3 3 3 2 223 233 3333D <30. -*2*> If,* e (-.( t' 56566660 + 00. 

, + « 7 9 1 !iC5 f ; 6 c 6 r. 5 6 6 6 o \ C - r i • + i: • .^ >30/ 

DATA A;/<» 2 ? C 3 2 132733 2 227."? 370 *0C. -,?<•? 96 7 ' 6 6 6 f 5 6 d 6 6 D + 00 • 

, ♦ . 2 C - 1 6r-> 6 9t. -3 6 1 r / + 6 + • 1 L ♦ 0 \ * — * ? 1 *j •• ; * ! 9 '. 1 T *3 9 *, 9 c 0 9 90 — 0 t . 

, +0*020/ 

wATa Ai/+«?-=217 '2 ?.2 U 0 4 7 3 2-* ♦ C 0 , - » 7u 70 .0;'C 4 3 J0254 5*90+ 00 , 
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♦ « 7 1 34569 9* 7Cc<5 qA7C<3n-0 l ♦ + O* 000/ 
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♦ « 2 2967 22 05687 2 306L7D+ 0 1 ♦- * 215234 2 372 l JAO 13 790+ 01 • 
*• t 29< *040674 60 21 7 450 + 0 l 46 1 1 739021 X 3402 1 1 60 + 00 • 
* + • 6549575 61 7 263 9506 0 0-0 t » + d« 0 00/ 

JATA A 10/9*56901 J7 5 6 1 6 5 2 0 28 2 I O +00 , -• 1-92302962157540 5 CCD + 01 * 
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♦•3C 04 719190917 l 07530+01 .-•17371279^61 9 C4 76 190+01. 
♦•50747S780S64197530C+00, -.631 40 4320 9b 76543200-01* 
♦0*000/ 

C.ATA All/4# 65 CC 9263 6 01 691 51220 + 00 9 — *24-1651 C3 50 5591 83 990+ 0 1 • 
+ *5432 70. 5 32 70 30 32 7C7C+01,- . 79 «2 3 2 50B 7 3 4 6 7 2 1 170+0 1 . 

♦ . 7579 RO 463 1 2 ’6972 39C + 01 f-. 52071 9 6^63446 363440+ 01 # 
+• 221721 2476992 14365C+01 56 1 721 630992454 J25D+00* 
+ . 610 V? 54936171236150-01. +0* 000/ 

uATA A 12/ + * 7C933300014 C2° 16 050 + 00 * - . 2565 77 5 727 57 95 7 35 1 O + 0 1 » 

♦ * 7 56 53 6 5635621 ?fS51C + 01» — * 129 5 35 33 2 742 1035750 + 02. 

♦ a 15 3441 1576C7 3 24 27 4C+02.-* 12 o7 150 7 <'-4 7 591 3 2290+0 2, 
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CAT A. 


CAT A AS 10/* 


DATA 


♦ 0 

A 5 1 1 / + 


DAT A A 5 I e/4 


DATA 


*0 

A SI 3/4 


— • 1 5 3t' 17 72 AH6772Af:6 7C-0 i , ♦ • 3 1 4 1 5 Jw 39 1 5 3 4 3 9 1 5 30- 02 # 
*0.000/ 

ASi/+.o5 45- 5756172639 50 6 CO -01 « ♦•67 1030 6 034 5560 54650-01# 

1 1C 6 35 7473 5 /• *6 7 35 4 C + 0 0, + 

5.99 9 0^0 60 3465 6CF&6C-01 # ♦ 

2 70 F 6 08 9 06 5 25 57 31 RC-C2 ♦ +0 
621 AO- 32 Oa 67654320 r-01»+ 

160097552^ 10082 9C9C+ CO, + 

142 4272 4 36772 4 1677 F + 00# * 

191 958 774.2 5C44 091 6C-0 1 , + 

.« COO/ 

6 107 264 936 17 1 23 rl 6 091 . ♦ 

217995 4 555475 3 3C 3CC+ 00, ♦ 

2 67 1720052709 6 3 +-04C+00* + 

7709378000? 5 500 A? AC-0 1 « + 

2C677S22 3 7 C53C7C33C— 02, ♦ 

592405641 223766233C-0 1 ,♦ 

2639 505421 27625/ 60 C+C 0, + 

5 ISO l 4 3 033 C 1 2f -C3AC + 00# ♦ 

230 988 9 82 0 827 22082 C + 00 , + 
l 6 55 555 35 F. 2 074 7 1 515-0 1 , ♦ 

• 000/ 

576035? 5337/ £21336 C- 01,+ 

357612764 c ^.'i f 2 1 C4H + C 0, + 

861771*1334519=0390+00,+ 

5 74 7 4 8 0 2 2 1 2 5 6 L •* 4 5 7 C ♦ 0 0 , ♦ 

922 r.57 7 67 4 66316 5 9? C- Cl , + 
t 636936 285 923 46769 C-C? , ♦ 

561 2 *>9509845071 7 4. l F — 01 . + 

4326632 3 7 f. C 2 102 6 ?D»O0* + 

1 26607666251 7 2663 VC »C 1 , + 

1 £5556 9 9 303 '7 69-372 0 + 01 , ♦ 

3353701 9 3 9 £ A 7 15-7 1 35 + 00 , ♦’ 

1 78 673 327 5222 5066 40-0 1 , + 

♦0. COO/ 

5674437 4 1 07C? 1 ! 471 C-0 1 , ♦ 

52501295471 6 =620 74 r*00,+ 

2009 1=7 36? 6/ 51497 JP+G I . ♦ 

24696640327325^771 C+01.+ 

9 9 6 4 9 30 73 3 l = 5 4 ? 7 C2 C + C n , ♦ 
l C54 96 7 500 79 1 CF .r.40 C *00 , ♦ 

133560 1 777*o6 0 2 7 0 r -02, ♦ 0.000/ 

IF( IOAO^h.GT* 15# OR* I HO 25 9, L.T, 5 1 GO TO tUO 

( ( I C 905 C-5 ) a ( IOROER + 2 1 > / 2 

L=IURUcA-2 
LPl=L+l 

JF( IRC.iC.llGC TO ICO 
IF ( I PC ,NS .0 ) GO Tf.l ? CO 
CO 10 i- 1 »L 

P05( INO 17 X + l > 

V-u { 1) = o i 1 45 ( lNCcXf I ) 


LATa AS14/+ 


DATA AS15/+ 


1 04 3 705 00526924 1 6 20 ♦ 00 • 
19 39 3 1 176 30567 83060-0 1 , 
. 000 / 

8 3 69 6 3253653 79 36500— 0 1 ♦ 
1“ 68 0603 34 215167540+00# 
6t 65 9^9.7 .53624 3 386 20-0 J , 
2 255 7240740 74074 070-02 • 

1004 3353* , 26l50 392S0 + 00 , 
3C 2 60 27 .7 36 0 1 4 8 C 6 760 + 0 0 * 
1U-165C 798661 21 S3 27D+00. 
1 -.>697 5 31970493 6 371 D-01 # 
• ODO/ 

1 1 6 a 2 7 35 3 905525 5730 + 0 0, 
45 9457 5 a 071 66 507160 + 00# 
4154 9360169151 335 70 + 00. 
Hi 8 52668 55 05862 17 10-01 * 
10 320 : 57333 35733330-02# 

1 73206 7 41765750 A« 90 + 00* 
A 1 .39 705 3302 7 50 32 320 + 00, 
c’2^0 02 0 *07 442772430 + 00# 
25 l 28576256 1 4037340+00, 
1 r 20 1 4665975706 1 470-01 , 
0 • '*-> 0 / 

1 4 •: S3 6 13 524 8 15 6 0 260 + 00 , 
896061 95226 3 5928830+ 00# 
1 5CH320 31 30032 7 14-70 + 0 1 . 
76758 3 39733 357 l 04 30+ 00 » 
992 51 3 «. 10095^549960-01 « 
1 a 735*498294596 1 640-02 , 

1 6 55 3 A 05757 739 8 3500+ 00 • 

1 l-icvi 4.7432455 13530+01 # 

2 6 c. c- 4 2 2 6 2 S7 3 4 6 0 4 5 9 D + 0 1 . 
1 *il 5 34470505290 4 A 60+0 1 , 
32 >0 743320 455244600 + 00, 
17 5 0 0 3 0 62321 7323610—01 . 




10 Ct.NT IN'Jl ’ 

VCU( LF 1 I - C2TAS( IM1CX4LFI ) 

Kw 1 

100 ce 11 c i - 1 #l 

f-#'iil I I * ALH“A ( 1 S3:: X ♦ I ) 


COWC 

224 

cowc 

22 5 

COWC 

226 

C 3 WC 

227 

cowc 

22 5 

COWC 

229 

C owe 

23 3 

COWC 

231 

CT.vC 

2 32 

C3wC 

23 3 

ZO'XC 

2 34 

COWC 

235 

COWC 

236 

COWC 

237 

cowc 

238 

cowc 

23° 

COWC 

240 

COWC 

24 1 

c n a c 

24 2 

COWC 

24 3 

COWC 

24 A 

cowc 

2* 5 

COWC 

2 48 

COWC 

?c 7 

COWC 

2 4F 

C owe 

24? 

cowc 

250 

COWC 

231 

COWC 

252 

COwC 

253 

cowc 

25* 

COWC 

26 5 

COWC 

25c 

CO.VC 

2 57 

CO wC 

255 

COWC 

2c «* 

COWC 

?6C 

cowc 

?8 r 

cowc 

262 

cowc 

26 3 

COWC 

264 

COWC 

26 5 

cowc 

266 

cowc 

267 

cowc 

26 n 

cowc 

269 

cowc 

270 

cowc 

2^1 

COWC 

7~*2 

cowc 

273 

COWC 

2** 4 

COWC 

.2 7 5 

cowc 

27 6 

COWC 

277 

C 3 wC 

27 ? 

cowc 

27 = 


8.0-m 



COW CO F 
Page 7 of 7 
October 1972 


VclUl^fM < INDEX* I) 
l i C CUNT INLE 

VCL{ LP1 i -cHTA ( I NO E X * L P 1 ) 
ftc'TOKN 

20 0 *Ki Tc ( 6 . 2 CO ) I PC 

300 FOKMATdhl.* ^FRMISSIHLE VALUE £ OF IPC A [); 0 AND 1. VALUE PASSED 
« AS * » 01 0» 0 **t**RUN TERM InATEC***** * I 
CJ Tli 10CC 

400 VklTLI 6* ECO > ICRDcR ' 

SCO FO^aT ( 1 n' 1 » • PEE M ISS IBLS VALUES OF IRROcH AR£ 5 THROUGH IS* VALUE 

# A iitlD WAS * * G 1 C * 0 t * *«^*RUN TERMINATED******) 

1000 STOP octet 
End. 


COWC 2?C 
COWC 2*1 
COWC ?v2 
COWC 223 
COWC 

weave 2 3S 

COWC 2^6 
COWC' 257 
COWC 2SB 
PCUV.C 2- D< ? 
COWC 290 
COWC 291 
COWC 292 


Reproducibility of thf 
original PAGE IsTooT 
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COWELL 


DESCRIPTION 

COWELL is the integration subroutine in GEODYN. It 
integrates the satellite equations of motion and the varia- 
tional equations. COWELL features a second order predictor- 
corrector method with variable stepsize. The order of the 
integrator is also optional. 

The integration procedure is not self -starting . The 
starting procedure consists of initializing logic and data 
arrays, using START to obtain the requisite back balues. F 
is also invoked to evaluate the accelerations; VEVAL is 
invoked to evaluate the variational equations. 


The order of computation for normal processing is as 

follows: REPRODUCIBILITY OF THE 

ORIGINAL PAGE IS POOR 

* 9 Predict position. Predict velocity if drag 

perturbations present. 


9 Correct position and velocity at least once, 
twice if necessary. 

• Evaluate (integrated) variational partials based 
on corrected values for position and velocity. 

o Check for decreasing or increasing of stepsize 
and update tables of back values. If necessary 
call REARG to increase or decrease stepsize. 

• If the time of interest has not been reached, 
start processing cycle over for the next stop. 
Otherwise, processing has completed and control 
is returned to the calling routine. 


8 , 0-120 
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NAf*i£ CO*ELL 


purpose;'. 

/ " 

TO SUM CCVF.IL INTEGRATOR WHICH INTEGRATES SATCLLlTi 

equations of motion AND all force model PARTIAL 

* DFIR I VAT I VES TO DESIRED T I ML (DAY) 

C ALL ING SE 

CJjNC e 

CALL COW 

ELL (DAY, \ , F c T , I 0 P DE R » H ,T tK» S J M » V A R * F A C * M « 
. NN. I SAT .PP.P.CC.C, VCC.VC) 

SYMBOL 

T YPf 

DO SCR IP r 

ICN 

OAY 

DP 

INPUT - 

DESIRED CUTPJT TIME 

Y 

( t. 1 ) 

DP 

input - 

ARRAY CO NTAINING SATELLITE POSITION C 
VELOCITY AND FORCE MODEL P ART I AL S » AN 
OUTPUT ARRAY FROM INTERPOLATOR 

FCT 
C J. 1 ) 

DP 

INPUT & 

OUTPUT - RACK. VALUE ARRAY OF ACCELERATIONS 

1 LKOl R 
. <£> 

I 

INPUT - 

ARRAY OF INTEGRATION ORDER FOR ORBIT AND 
PARTIALS 

h 

( £) 

UP 

INPUT - 

AFRAY OF STEP SIZES FOR ORBIT AND PART I ALS 

T IM 
<Z) 

DP 

. INPUT - 

ARRAY OF INTEGRATION TIMES Cr 0R61F AND 
PAR T I ALS 

SUM. 

C £ # 3 « it 

DP 

INPUT - 

ARRAY CONTAINING SUMS USED BY INTEGRATOR 
AND 1 NT c f POL A T OR, 

VAR 

.L 

INPUT - 

VARIABLE STEP SWITCH 

f aC 

OF 

input - 

= + l IF FO°WAr?D 

n - } I rr 0 AC K W ARU 

M 

<21 

1 

Input - 

DI SPLACE !^-:nT ARRAY USED BY INTEGRATOR 

hN 

1 

INPUT - 

NUM&5P UF EQUATIONS 

1 oAT 

1 

INPUT - 

sat ell i t f- number 

PP 
( 1 ) 

DP 

INPUT - 

PCS IT ICN' PR t D ICTOR COEFFICIENTS 

P 

< 1 ) 

DP 

INPUT - 

VELOCITY PRLOICTUR COEFFICIENTS 

CC 
t 1 > 

OF 

INPUT - 

POSITION CORRECTION COEFFICIENTS 

c 

DP 

INPUT - 

VELOCITY CORRECTION COEFFICIENTS 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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vcc of 

(i) .... 


INPUT - VARIATIONAL PARTIAL CORRECTOR COEFFICIENTS 


VC OP 

CD 


JNPUT - VARIATION PARTIAL FIRST TIME DERIVATIVE 
CORRECTOR COEFFICIENTS 


SUuKOUT 1 Nc. i L SEC COWCOF 

INTRP 


START 

VEVAL 


F Rc-ARG CLEAR 

ONVERT 


CCVMCN (iLOCKS 


INTRLK vmat 


CELEM CT I ME 


INFUT FILES NONE 

OUTPUT FlLiS . PRINTER 


R c F £ Rc.N C E S 


«GSQCYN SYSTEMS CESCRIPTION* 
VOLUME 1 GFDDYN DOCUMENTATION 


SU^JoTINl CG^LUCAY, Y. FCT. I 0 F OF F * H i T I H * SU M . VAR » FAC . M * N N * I SAT. 

• PP.P.lC.C.vCC.VC) . 

IMPLICIT Re AL * 6 ( A-H . 0 - l ) 

til ME NS ION S U M 1 2 . 3 . 1 ) • * u x ( e I t E C C N (1 1 ) . r c T (3 ♦ 1 ) * H ( 2 > t T 1 M ( 2 ) , 

,* " *Y ( c , j | i .vP(U .C(U .Pr i ( CC LLL. VC t I L.V.CC t 1 » * p C ( 2 > 

irD'’-£C( O \ , u ( ? ) . v II ( ? 1 />*rt/ . Kr.llNT? I ?. \ /?, *0/ 

LOCI CAL IMTAL.FEVAL.NCCRAG.VAF.HLVOSW 
LOGICAL FcVAL /* TRUE */. STRTP ( 

LOGICAL NCR PAT 

CATh tCLN/.O SCO. *05263167900* 

*0«n>7ii lCAOC'i. OUC22Af.eOO, 

• . * Q 3 > 7 1 C 13 1 C C . .033961 A 7 6 DC , 

• « 0 327 •* £ \A CO Ci « 029 A6500 . 

« # C «? 7 1 i C CSl DC. .02555250300. 

• .*0i37?Ht02CC/ 

EOUI VALE NCC( PC! .PC l l ) J , ( RC2.PC (S ) } . ( PC3 ,PC( 3 M 

L UU I VALENCE? A L X ( l ) . AUX l ) » ( AUX < Cl . 4 UX2 I . ( AUX ( 3 > , AUX 3 ) 

CCMM'jN / 1 <N 1 PL K. /L G2 I 3 0 ) * fc ( 2 ) . L GA { I S ) . I N l T AL • N-JRR AT . LG 3 ( IAI. 

4 STEPSZ (*. ) P'LVSR‘J( 2 ) . 

■ • Uci Lw *"» c (C ) ♦ C T CL ( 3 ) . 

• F:TUH2I ,STEFLO(2 J .STPUPI2) .VSATI1 6>.HLVUSW<2) .LOVE( 1 6 > 

CljlMCh/VN' AT/VMATRX(3.5),S(6t0)»LYMl6) 

ClMMUN/CllEM/ELEMST (6,2 ). TORUS L( 2 C ) 

CUaIMoN/^I l^E/OATAfcP (2> .OAYO, I S1P( 1 7 1 
c IMTlALlZi 

NlJP c ( ISaT i.gt.o.do 

i u R «*• a I S Uf 0 '•» ( l > 

I UK J m 2 - I C i- 0 - A (2 ) 

IUIL 1= I UP UR 1- 1 
I u l L 2 = iUJU-l 
H = v,(» I 
( 2 ) 

M IP I = lt 1 ♦ ! 

N l ► '*. -f I ♦ 2 


COTE 

*»e 

CDWE 

79 

COWS 

SO 

CO WF 

SI 

COPE 

52 

COWS 

S3 

CO WE 

FA 

COWS 

65 

CO WE 

66 

CO WE 

77 

COWH 

RfJ 

COKE 

69 

COWS 

90 

COPE 

Q 1 

COPE 

c 2 

COVE 

03 

COWS 

o<» 

COPE 

9 6 

CUT'S 

76 

c owe 

97 

COY E 

9°. 

C0*E 

OQ 

CO WE 

100 

CO WE 

101 

CO WE 

102 

C O WE 

103 

COWS 

I 0 A 

COKE 

105 

CDwE 

106 

COVE 

107 

CUKE 

106 

COWS 

I 00 

COVE 

1 t 0 

CO. YE 

1 1 1 


to- ^ 


a n i *■* 'y 
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M 2 P 1 -M 2 + i 

' IF ( NN » dt/ « ) ) GO TO 3 
1 U 2 L 1 -* IOhCS T;- 1 

JU 2 L?- lurC 42-2 

2 IF( I NI TAL > G 0 TO * 

IF(NN«ijT * 1 ICQ TO 260 
GO TU ‘ 10 C 
4 iNZTAL^. F 4LSE. 

KGUNT (ISAT)=IC 1 L 1 
M 2 = 0 

MUJalClLl 

lFtNN. cU . 1 ) GC TO 1 8 

IF(lok 0 K 2 .GT* ICKOR 1 1 I CRQ R 2 “ I O KCR 1 

iL 2 til = XOKCR 2 - 1 

IU 2 L 2 -IC 2 LI -1 

K 0 UMt 2 ( 1 S;T)= 102 L 1 

M 2 >=IL 2 u I 

Id IF ( • NU T * WR 1 GO TO 20 

M( l } =M ( 1 MV ( 1 1-1 4 

Ir (NN.GT • 1 >M{ 2 ) = V( 2 ) +M ( 2 )-l 
20 CONTINUE 
M-MU) 

K2-M ( 2 ) 

KIP l -K 1 + 1 
r/lP 2 =KiPi + l 


v2Pi *:<i« + i 

C - ->Sr.*T PR£'u ICTOR COE^FIC I C N T S 

21 CmLL C Ca Cl-r ( FP , P , 1 U HOP 1 « l > 

C SET CORRECTOR COEFFICIENTS 

CKLL L J.JCLF (CC .C. IORDP 1 . 0 1 

I F c-n n • l o • li Gr: to 22 

ir i 1 ukl-k 1 .HO. I 0 P?P 2 ) GC TC 2 3 
C SET. VARIATION EQUATION COE FFICIENTS 
C lL C. C Zr (VCC.VC. IQPrT*2*0l 
GU TO 24 

23 0 U Lc l ~ 1 . 1 C 1 L 2 
VCC( I NCC ( I ) 

22 VCt I I =C ( 1 1 

VCt iOlLl J=C( ILlLl ) 


*24 CONTINUE 

C S T AR T INTEGRATION PROCESS 

CAUL STA«T( IUAOK 2 . K 2 )tFCT,SlJM, Y.NN.Ml ,M 2 .TIM( 2 >l 

1 FI KjRwRI .NS* IC^ORE.ORcFt ! )«nE.H(?) ) GO TO 2 fi 
T 1 M ( 1 ) - T l > ( 2 ) 

Gu TO o 

2j C^LU STAhT( IOFDP 1 , M< 1 > .FCT.SU 1, Y . 1 ,M1 , MI .TIM< 1 ) > 


24 ST»xTr\t I 5 aT ) F^LST • 

C CFcCK IF D.'.Sihr.J Ilv: HAS HfcEN RE A CHE 0 (DAY) 
100C0 T2= ( T 1 .* t 1 J-2* CC »H( I ) ) / ?* c <0 4 

Ir C 3«Yvr AC.C2 .T:*f AC ICO TC 100 
I r ( f i'N <Lui 1 ) •-’ C TURN 


T2-<Tl.-:tE)-r2.nO*n(2))/?.£^Ci^ 
Ir (0 AY *F AC.LT .T.2 *F AC 1FFTURN 

C PPcu ICT 

ICO CC l *0 Jsl. J 


reproducibility 

ORIGINAL PAGE is 


OF THE 
POOR 


M»\i J — O.'-CO 


COWE i 1 2 
COWE 1 I 3 


COVE 

1 ! V 

COrE 

1 IE 

COV.E 

1 1 6 

COVE 

117 

COKE 

1 1 B 

COr’E ' 

119 

COV.E 

12 C 

COVE 

1?1 

COKE 

122 

CO/E 

I 22 

COV f 

t 2 <- 

core 

125 

COVE 

12 t> 

C 0 «t 

127 

COVE 

128 

COKE 

1 29 

CO wE 

1 30 

COKE 

111 

C’Jv F 

:t 2 

C 3*5 

123 

coke 

13 V- 

COv.E 

125 

COVE 

1 3 c 

COKE 

137 

CO*E 

123 

COaE 

12 5 

Cm au 

la'j 

ca*e 

1*1 

COKE 

142 

C OWE 

14 3 

COVrE 

IV £ 

CO st. 

1*5 

COvc 

146 

CO*£ 

1 V 7 

COVE 

l*> 

COV‘F 

IV 9 

CQ>£ 

1 SC 

CO*E 

151 

COKE 

15 ? 

COviE 

153 

COWE 

154 

C iwE 

155 

CONE 

J * A 

CtJ , * c 

157 


1 "F 

COWE 

l 5 <* 

COKE 

160 

COKE 

15 1 

COkL 

I T'O 

cn*~ 

I ^ > 

ecus-: 

15 -* 

enws 

155 

co .«>: 

1 - 6 

CO A- 

IF* 


8.0-123 



COWELL 

page 5 of il 
October 1972 


DO loO 1 = 1 * I OIL 2 
>. K — Ml PI - I 

120 FRf.3aPr»eC«PPlI)*FCT(J»K) 

l«-0 V| J» 1 J = ( SUM< 2 . J. 1 ) ♦P-EC >*P( 1) **2 

1A2 II* ( UX A AG ) GO TO 195 

00 150 J^.c ’ 

J 1 "J ** J 
P65 D =0 eCCC 
CO lfcti I=1«IC1L1 
K = M 1 P 1 ~ I 

1 5 1 PPvi 0 =P r,i C * P ( l ) * F C T ( J 1 » K ) 

l?0 Y(Jfl)= l5UM(l f Jl.l)+'FF-EDI»H{ll 
C SAVi PkLC I C TL C POSITION! FOP OS t BY VAfiUdlE STEP INTEGRATOR 
l$c IF( • NUT * ( FEVAL*OR* VAR ) )C-0 TO ISA 
PC 1 = Y l 1 * l > 

PC 2 = Y ( 2,1) 

PC 3= Y { 3 » 1 ) 

19 A NC.ORK-C 

TYN'= T l .v< 1 MH( 1) 

209 NCuT *v = N C C RR + 1 
C EVALUATE acceleration 

CALL f‘(TY^,Y»AUX«•FALSE•) 

C COFAECT 

220 LO 2 bO J- 1, 1 
PCS - 0 • C 0 

V LL = 0 • C 0 

wJ <C''v I"Ci!ClL2 
* R5»*i l P £ I 

F OSsPU S ♦ C C ( 1 ) CT ( J« K) 

2 A 0 VEl- V—L ♦ C < I )-FCT(J«<) 

FOS = PUS-» CC( 1 I’AUXl J ) 
v£«_= VLL + CO I V AUX ( J > 

VtLsVtL*CUCIU)* c CT(J,VlP2-KTlLl ) 

Y(J,lJ-(PC5 + SLN*(2iJ*l) ) * H ( 1 >“* 2 

Y C J * 3 • 1 ) s (V^.L tSlHl 1 , J • 1 ) ) — H ( I ) 

2 50 C Oix T ] I'i uc 

2*1 1 F t N LO R-v • C T * 1 )GO Tn ?5t 

I r ( « \IG t, (F“VAL, r l^i VAR) )CO TQ 25? 
c C C YPU T i_ OISwFtP*NCY BfTwEEN RPLDIC TrO 5 COFRLCTED VALUES 
YPC«=<rCl-Y( 1 #1 ))**2 + t FC2-YI2. 1> )*»<2MPC5-V(3« 1 M**2 
YPCW=YPCF *ICCN( 10^9= >* *2 
IF(.hOT,V/i')GC TO 257 
1F< V PCR. C 1 •■.)L*LEH5( I SAT ) )GCTG25 9 
C JN^ScAjE STEF 

IF ( KUUNT ( I SAT ) *t_T « M 1 ) GCTO 2S7 

1 r ( 1 4 N • G T • I « A N C » K JUN T ? ( I 5 A 1 ) • L T * M2 ) GO T C2. 57 
C “2 • DO 

Ir ( HLVOS* ( ISAT ) ) G:)T02S2 
IH YPC ^ .L T. 1 • C- 2 ) GO TC 2 £2 

*i = AT CL < 1 6 AT ) / YPC -J 

U = G* * ( 1 • CC/< 9 FLO AT ( IU1 L 1 ♦ I 01 LI ) ) ) 

i r- ( o • l i •<•0-0)0 = 2,00 

|Flvl*u.T*«-O0)C-«jOC 

2£2 |r ( F Aw*-J 1 ) »G T ,«TPOP ( If.AT ) | GC.T:j?G7 

Ir IN.\ ,ul , ),ANL»M(2)«:fJ*( T» 2 T>"jlM li/ T ) ) v>( ! T O ? i 7 

CAu, 1 A A C ( * M » 1 , 1 C F 2 1 • 1 J r f •“ I , ■ i ( l ) , • * ( I ) * T I M( 1 ) , t I M ( 1 | 


COWE 

166 

COWS 

160 

COWE 

1?0 

CUWF 

171 

COWE 

172 

COWE 

173 

COWE 

1 7 A 

COWE 

1^5 

COWE 

176 

COVE 

r/7 

COvjF. 

!7fc 

COWE 

179 

cow^ 

170 

COWE 

1 8 ) 

COWE 

182 

COLE 

18 3 

COWE 

: i6 

COWE 

185 

COWE 

1 86 

COVE 

187 

COlE 

1 AG 

COWE 

189 

COVE 

190 

COWE 

191 

COv.tF 

102 

COVE 

1 Q 3 

C-lvF 

J Oi 

r owf 

1 Q<A 

enwe 

19 6 

COWE 

107 

COVE 

1 98. 

COWE 

19° 

COWE 

200 

COVE 

20 1 

COW F. 

292 

C-V.vF 

2C 3 

COWE 

20 A 

COWE 

205 

COWF 

296 

COW?. 

207 

COWF 

2 08 

COWE 

2 99 

COWE 

210 

COWE 

21 1 

COWE 

212 

COWE 

213 

C0W“ 

2 14 

c*J«r. 

215 

COVE 

2 1 1 

CO WF 

2 1 7 

COVE 

2H 

COV.E 

21^ 

COWE 

22 9 

C J AC 

2 9 1 

COWE 

2 2,? 

C J v- f ' 

2 2 3 


8.0-124 
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o FCT, 1 , SLM.SLM.CC ,C, Y ,Y . . F «L $L , f F C T , G ) 


COWE 

2.2 A 

IF(N‘x«GT • 1 1 C ALL Kf A«OI Y 2 , M » I C'FD P I * I OFDR2.M ( 1 ) »H ( 2 ) , 

TIMM 

» COW: 

225 

» ,Tlt-H2)«rCTU,-11UI , NN, SUM{ 1.1,21. SUM. VCC.V C.Yl 1 , 2) ,Y 

, ,TRU;» . 

COW" 

2 2 A 

• FCT.C ) 


co we 

227 

KCUNTC 1SA7)=!C1L2 


cowr 

22 0 

1F(NN*GT . 1 KOLNT2( i SAT )= IC2L2 


cows 

22C 

GO TO 100 


COWL 

200 

2S * IF( YPCR . L T.PL VEF6( I SAT > ) GCTQ257 


cove 

211 

C RECUCE S TIP 

* 

core 

232 

U — * 0 0 0 


CO WE 

233 

JFIhLVOS* USAT) ) 50T025S 

- 

cows 

2 3* 

0=«r0L- < t SrT l/YPCR 


COWS 

235 

0-G**( 1. CC/tOFLOATC ICIL1+ I01L1 )) l 


COVE 

236 

IF(0*GT,£.00)G=2»DO 


COW E 

237 

IF ( 0 »LT. . “CO J C=.3O0 


cowf; 

2 35 

2 5 o IF(F Ad- HI 1 1*0 .LT,ST^PLC( I SAT > ) COTC237 


COV/E 

2 35 

C IF FIA:>T T I M t OUT OF STARTER AND STEP PEO'JCTICN IS NEEDED* 

restart 

COUf 

240 

C blTtt SMALLER STEP 


COWL 

291 

IF l S TR TR ( ISA T )> GOTO 26 3 


cnv;E 

2*2 

h(ll=0»Hd) 


CO we 

2 93 

H{ 2) = L*rt ( 2 ) 


COWE 

JAA 

AUM = l, A c S (M 1 ) 3 


co we 

243 

call LLO A k { Y t 12 • NN ) 


COvJF 

2* 6 

too 2 52 0 1-1,6 


C OW- 

2*7 

Y( I , 1 ) ~ELc AST ( I . I 5 AT ) 


COH C 

24f 

2620 CONTINUE . ’ 


CO WE 

2*9 

T J V ( 1 1 = J • t A*’ 4 * i/AYO 


cows 

25 0 

T'm( ? > = t t v( i 1 


COWS 

251 

IF(NN,£Q. DCQ TO 2540 


CO W£ 

202 

uO 2526 1 = 1.6 


COTE 

25 3 

Y(l, 1+11=1*00 


COWL 

25 4 

262- COhTlNts 


cows 

255 

25*v I Tc ( C . 25A 1 I SAT , AU X I 


CQWff 

2 C P 

2J4 Fon.M AT ( 1 h 1 * 1 SAT*, 12 ,/.* INITIAL ST LP TOO LARGE* ,/* 


CO WE 

2: 7 

• * RESTARTING a ITH* ,Gl 1 . A , * SEC STEP') 


COWL 

256 

IF (NN.zO , J 1GCT02S 


•COWL 

253 

GC TU 24 


COWL 

2.^0 

2 ; J CALL Ml .Ml * ICPCR 1 , IfiSCF 1 ,H{ 1 ) ,K 1 1 • T1M(1), 

T IM ( 1 ) , 

cows 

25; 

• • FCT, l.SC^.S UM ,CC,C,Y,Y, .FALSE. .FCT.Q ) 


CO /Jr. 

25 2 

lr < NN* GT . 1)C ALL J 6 A AG ( «2 . M l « I GPU 11 , JO Sr l>R 2 , H ( 1 1 , H ( 2 ) , 

T IK< 1) CO 

263 

« ,T I >1 { 2 ) ^CT { 1 . M 1 + 1 ) « NN, SUM ( 1 , 1 , 2 ) , SUV t VCC , VC ,Y ( 1 , 2 ) , Y 

i .TRUE. . 

COV.'E 

26 A 

•FCT.C) 


COWS 

20 5 

KOUNT ( 1 3A T > = I C1L2 


COwE 

266 

IF I NN.Cr .1 ) K. OLN T 2 ( I SAT C2 L2 


COwE 

26 7 

GO TO ICC 

* 

cuwe 

2ea 

237 IKFsV Al ./NO. YFCP.LE.CTCL C ISAT HGnrj256 


COWE 

26 9 

236 I r ( .N Cu kk.lT.2) GO TO 200 


CJ#E 

2 7 0 

2 3 6 T I M < I ) - I Y N 

. 

COWS 

27 1 

IF t V A.* « AAt. KOUNT { 1SAT) .LT.^1 ) K CUNT { t SAT 1 = KOUNT { l SAT > ♦ 1 


cows 

272 

YM- M 1-1 


COWF. 

27’i 

C RLStT uALK. VALUE A^ PAY 


CO*E 

27* 

Ej 1 ,7 i I- 1 . v* 


C O tit. 


r.j 1,7 j=i. :< 


CUWT 

2"*(’ 

157 FwrCj.Ii)aFCT(J.M*l) 


co^e 

277 

FCT ( 1 . V J ) - A-JX 1 


OJ/ r 

27p. 

F Cl ( 2 . Y I ) = A JA S 


COWF 

27*: 
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FCT ( 3. Ml }sAUX3 
19? CONTINUE 

ST*TK( 1 SA 1 > = . TPUil* 

C UPC ATE 5LMS 

CO d »C J = 1 i 3 

oUi-1 ( 1,J*IJ = SUM( 1 * J . l)4FCT(J*Ml t 
3 # 3 SU'l l 2 ♦ J « 1 ) = SUM( 2 » J * l ) + SUM { l * J • l ) 

26 C 1F<KN. nO. 1 )GCTC950 
Pk=C=T I M ( 2 ) 4P ( 2 ) 

IF(PAi_C- CT«T l w ( 1 > >GO TO ICO 

TJK(2)=PriC0 

NNLl=NK-Z 

*M=M2-l 

OU 196 Jj=l*NKLl 

KKK= ( J J- l + v 1 . . . - — - 

DO 1 »o 1 i = 1 * VM 
KK=KKK4 II 
DO l >6 J= I* 3 

19$ FCT(J*kk J-FCT { J « KK + 1 1 

lr< VKn ,«NC.KCLN'T?{ I SAT)»LT*M2) KO'JNT2 l I SAT )=K.OUNT2< ISATJ+l 
PK£u-*(T IM(2)-T lM(l » l/H( 1 | 
lF(P«cu*tC.O*CO)GO TO 202 

CALL INTvF ( PFHD .H( 1 ) . ICPCP 1 * l ♦ Y, FC T *Ml * SUM ) 

202 CALL F(T1M2).Y*Aux,.tcuS.) 

C tVAL'UATC fUr<CE MOCFL PARTIAL ACCELERATION 

CALL VlV AL ( Y , FCT ( l.Mltv?) , ~ , , F ALS E . . ‘-1 2 ) 
c I NTc f,P AT z. VARIATION HQUATICNS USINC C 0 P L C T UR COEFFICIENTS ONLY 
OU -20 L1 -?; KN 
KO = MU (L 1-2 1 
CO 320 J= 1. 3 
PC 1 = 0 • C 0 

CO 3 1 = 1=1. I02L2 

K = M ? P 1 - I 

316 PC l 1 ♦ VCC ( I I «r CT ( J .K C + K ) 

3 20 Y ( J i Ll J = ( :UM( 2 * J « L 1 ) + PC l ) *H( 2 > ** 2 
H2 C=VlC( 1 ) * F ( r ) *- * 2 
IFINJOH AC J GO TO 33 1 
u 

hlC= VC ( l ) 1H ( 2 ) 

00 326 L 1=2«NN 
K0=M 1*(L1-£)»V2 
DU 32& Jsli2 
J1=J43 
PC l = 0 • C 0 

DO Jic2 I = 1. IC2L1 

K=.M2 p l — I # 

222 HCUPCH v(( I >* p CT(J.K0 + K> 

22= YlJl.LlJs ( SLMC li J.Ll )*PC1 >*HC2» 

CO 3 30 J= X . 3 
Jl = J 4 3 

CU 1 = 1.3 

*1 = 1 4 o 

S ( 1 . J ) =- f 2 C V V WA T V X. ( l , J > 

3( I • J 1 I ■= - h 2C * VMA TR X ( I « J 1 > 
b(Il.J|s-HC»VVMf.X(I,J) 

3 2 , i< l i < J I ) :*n| c *W ATT. X< I.J1 ) 


COWE 

239 

cove 

2 61 

cove 

26.2 

C owe 

263 

COVE 

Z*,t 

CO ye 

235 

COKE 


COwE 

25? 

cowr 

2 c- 

cove 

22" 

COrE 

2= 0 

COY F 

29 \ 

Coy;c 

202 

COVE 

2">3 

COfE 

29^ 

COY.' I 

29 5 

COWE 

2°6 

CDY.“ 

29? 

COVE 

29 ft 

COWE 

2 ? ? 

COVE 

3 DC 

COVE 

391 

COWE 

302 

COVE 

30 3 

COVE 

30 a 

COY. E 

30 r» 

CGWt 

306 

COWE 

337 

COVE 

39 5 

cows 

3C *'• 

COVE 

?! 0 

COVE 

31 I 

COW** 

312 

COVE 

31 3 

COWE 

31^- 

CO aE 

31 5 

COVE 

31 6 

COY F 

31 7 

COWE 

31 e 

COWE 

319 

COWE 

3 20 

COVE 

32.1 

COWE 

322 

COWF 

323 

COWE 

22 9 

' COWE 

325 

COVE 

32 5 

CO* E 

32 -* 

COWE 

3 2 5 

COWE 

329 

COVE 

330 

COWE 

32 ! 

COwE 

2 1 2 

CJW = 

3 3 3 

COwF 

3 2“ 

COVE 

3 15 
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S( J« J) * l • DO 
3 30 S( J 1 • J 1 )— £(J1 . J1 ) + 1 * D 0 
GO TU JJ4 
3 3 1 KN.N = 3 

CO 333 1-1.3 

OO 3 32 1 « 3 

332 S( 1 V J > =-F 2C*vyATRX ( I • J I 

333 Sti . I J — o < 1.1 > ♦ 1 • DO 

33h CALL CNVt f'T { NKN ♦ S . 6 « AO X ) 

CU 33o LU2.NN 
K<=M1 + (L1-1)*w2 
1)0 333 J=1,NNN 
PCI = 0* CO 
DO 337 K=1.NNN 
337 PC1=^C1+S(J*K)*Y(K*L1> 

33o AUa( J ) =PC 1 

CG 333 1 = 1 .3 

PC 1 = 0 . C O 
CO 333 J=1,NKN 

233 PCl=PCl + V.vAT^x(I,J)*AUX(J) 
33c FCT ( I . k< )=FCT f I .:<K I *PC I 


DO >00 L =2 .t N 

■ L1=m l+L*w^-y2 

DC >00 1.3 

UPC ATE SL.-lG 

£UM.( l « 1 

-j rs q z.j j ( 2 i J * L ) — £ *J v ( *j> 


, J,L )+FCT ( J.L1 > 
t J • L ! -*■ £ U” ( 1 i J i U 



{ r 1 K ( 2 )-?* CO*Hl 2 ) ) / S*6AO-5 
1 F(OA¥*F^C.OT,T 2 ^AC)GC T c 260 
950 T2= ( T I ( 1 )-? . CO *H< l ) ) / r , 6 

IF ( C AY* F AC* OT*T2»FAC ) GO TO ICO 


.. RfcTJA* 
CND 


COWE 

3 36 

cuwe 

337 

COWE 

3 30 

COWE 

339 

COWE 

3<A0 

COw£ 

3M 

COKE . 

2 2 

COWL 

3^.3 

COWfc- 

3AA 

COWE 

346 

COKE 

3^ 6 

COWH 

347 

COWE 

34 3 

CO WE 

349 

COWE 

350 

CO WE 

351 

COWE 

352 

COWE 

35 3 

COKE 

35 4 

COWE 

356 

CQwE 

366 

COWE 

357 

COW^ 

353 

COKE 

3 39 

COWE 

760 

COWE 

361 

C'J WE 

7 . :> 

Myr 

3 6 3 

COKE 

364 

COWE 

365 

CUWF. 

356 

COWE 

367 

cnwe 

340 

cow 5 

36 9 
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L 

A ti 
VAL 

9zcr 

TlO 

U£S 



Say£ p££t>ICT£2> 
PtSLTLCAl P<P V$£ 

BY V/iPZA&LP 
stcfp xA/rec/i/no/L 

Ql 

w) 

F \ 

/ £ V/UO/l7Cz \ 

\ CC£tC-ll£Tj&P / 



(LOP, 

ppev 

VAC 

C£CT 

ZOOS 

ops 

i 
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DESCRIPTION 

v„ 

DATARD. is a subroutine specifically designed for 
the MULTI -ARC GEODYN program. 

DATARD stores on scratch files.,- updates -and retrieves 
from scratch files all a priori and parameter estimation in 
information about each arC. 

DATARD uses several switches that operate as follows. 

UPDATE - .TRUE. = write .information. 

. * FALSE. = Read information. 

APRIOR - .TRUE. =* a priori information to be 

operated on. 

.FALSE. - a priori information n ot to 
be operated on. 

BMAT - .TRUE. = normal equations to be 

operated on. 

.FALSE. = normal equations not 
to be operated on. 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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K A*E 


DATARD 


ENTHY point 

PURPOSE 


CAThOl 


INITIALIZATION 


CAT ARO 


TO STORE* UPDATE. AND RETRIEVE INDIVIDUAL 
PARAMETFR INFORMATION 

ARC 

CALLING s 

HUUENCE 

CAu.L CATPC1 (C T. B 1 AS. SUM! . INDXCS* SUM2 1 


SYMBOL 

TYPE 

description 


CD 
i l> 

I 

INPUT £ OUTPUT — ADJUSTED VALUES OF THE INDIVIDUAL 

ARC FORCE MODEL PARAMETERS 

E IAS 

< n 

I 

INPUT - A PRIORI VALU-S OF THE. INDIVIDUAL 
PARAMETE f 

ARC 

S UM l 
< I ) 

DP 

INPUT £ OUTPUT - ARC NORMAL MATRIX 


. I ND X C S 

C 1 ) 

1 *2 

INPUT - INDICES CF AD J L STE D . G EL)P 0 T£NT I A L 
COEFFICIENTS 


SUM 2 
'(11 

DP 

INPUT - RIGHT HASO SIDE OF NORMAL EQUATIONS 

Calling sequence 

CALL CATAFDIARCNCtAPRIOR.UPDATE.EMAT) 


SYMwOL 

TYPE 

DE SCR IPT ION 


ARCNO 

I 

INPUT - ARC NUMBER 



APWIOA L INPUT - • TR UC • THEN READ CR WRITE A PRIORI 

INFORM AT ION ACCORDING TO ‘UPDATE* 

•FALSE* THEN DON'T READ OR WRITE A PRIORI 
.INFCRPAT ION 

UPDATE L INPUT — •TRUE* T FEN WRITE INFORMATION 

• FALSE* THEN REAL* INFORMATION 


dMAT 


INPUT - * T R UE • THCN READ CR WRITE NORMAL MATRIX 
ACCCRCINC TO * UPC ATE* 

•FALSE* THEN DON'T READ OR WRITE NORMAL 
PAT R I X 


SUckCuTIN^S leed 

clear 

CWRI T E 

DREAD 

ERROR 

COMMON ULUC^S 

ALPMRC 
C T I m C 
PR 1 OR 1 

APAR AM 
F MODEL 
TPFuL * 

CELEM 
JNI T UK 
VRBLCK 

CONJUT 
1 NTU L < 

I N ? u T FILES 

NONE 





REPUODUCffinJi^ 

ORIGINAL PAbb ® 


CPARAM 

PRE3LK 
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OUTPUT F I Lt5 NONE 


SUBROUTINE C ATROl ( C C. R I AS .SOM l , 1NDXCS , 5UM2) 

IMPLICIT Rr*L*6 (A-M.O-Z) 

lOoICAL A FR IOF ,U^ A TF * evA T . C'-P CPR . ST ARTR I START HYPER 
INTcUL^?^ ISCXCS 

iNVc jrJK C I AS « ARCMC ♦ SCR A, S CRB , SC^C ,RLTP. CUTP . XYZTP .PLOTP, GKDTP . 

« THti CT 1 •ELsZMIN . ELc MS'T , D A YRE F .CD . SUM 1 , DAT P » START A, STAR TO , OUTS 

• SUM 2 * t £ I AS 

COU.JLE PRECISION N'OD£L 

Li MS NS ICf.CDT 1 ) , 21 AS ( 1 ) «SUMl ( 1 > * I NO XC S U > , N STDS E C 6 ) * SUM2( l ) 
CIM-NSICN Eb'lAS(l) 

CU MMUN/^LFM- C/AL RHA ( 53 ) . ELCUT . h Y»ER 
Cu>IMCN/AF/;’AP/If^AP (10) ' 

CC*.MJN/Ct:Lf\’*/£Lr MST (5? ) 

CuMYUN/CC NCUT / l G 1 ( 12). S7A RTR , S TART* . 3 T A I? T A » STARTO . I NSTP.T » OUT ST R 
CuMM JiM/CP/ mhW/MS T A , NM A ST , NSTES T« NO 1 M . M(j I AS , NGPC I . NGPC2 . NGPC JM ♦ 

'• NCSi ST ,C'-:P(;r h- ,L I » 1 . L I v2 , NC £K .fO'N ST . NT I D3 T , NT I D£ N , INNRSw , 

• NCONS T .NCCCNS 
CO-1U3N/C T 1 V L /CAVRFF ( 2? ) 

COMMON /r VLDFL/JNC: X ( A ) ♦ CS ( 2 0 , 3 2 ) . M JDEL( 6> 

Co.-.MLN/ i»< ITLK/I "oy:'C'( a 3 ) . M I SL 3 C ( 3 ) 

CJ.MMLN/' INT-LK/TI-O'JT! (52) , ND RR A T ( 7.9 ) 

CUi-lMoN/HhitlLK/tAViT AiNtPS ( 1- ) 

CUMMUN/PF ICR I /El.SM 1N( 15?) 

CU -'vi UN / TP£L ; LK/I NT? . CU T P . D A T P , X Y Z T° ( 2 ) . PLOTP , l O 133 » SC R A . S CR C . FL T 

• U«<UTP 

Ur-iVCN/VhtLCK/Al ( E 6 ) » I ELF (19 8 0 ) » A C 77 “4 ( 69 ) 

LOUl VaI;NC : < SCAR. DAP tLS ) .( NOP . 1 N PAR (.6)1, { N P A R A M * lNPAR<8 ) ) 

* ty JIV hLcNCS O.AXSAT . IG t (6 ) ) • (NEBIA5* INPAR( 9 ) ) 

XATA SC<c/1S/ 

NSTURL ( 1 > - 1 

NSr^r^u (2 »f-‘E=I ASf (N-CS£ST-NC-PC3w)-i2*MAX3AT 

NSTOf^t ( 2 ) SNFTC- ‘A ( 2 ) ♦2*NCPCC' J + \ 

KvTuUc ( )-NS TC A r ( 2 ) ♦ M IAS* 3— 1 -» ? * ( NC SSST-NOPCCM) 

USTOKc. (w>)-NSTC-R(A) +2*NG°CCM+l 

NST ( c. ) -NSTCRr ( 5 ) I AS-3^ M rt XSAT + ( NGPCl -2 ) /2 

NaSC =(NgFC1“2 )/22~+2 

NRuC 1 = NRt C4 1 

NwuftO= 2 * ( FOP C 1— i I 

kCTUAJI 

LhT R Y CAT/RCt APCN‘0. APR ICR .UPDATE . SMAT) 

KiTA*l =( AhCNU-l > *Nh iC+ i 
IF < . n~T. uFD a T£ ) GO TS cOO 
SAvl a P X 1 J A 1 APC I NFPG VAT ICN 
1F( . N„T . AHJ2F > GO TO 20C 

I NPAR , ] SOS X, CAYS TA ,XY7 T P , NORP A T , ELCU T , H YP‘£ R 
IFCMiw-IA:;L::.CI G "* TO °C 


uJ «* O Hsl . NiHAS . 3 rO 

id = *-i i..j ( 1 1 * ?**; . p.7 r ) 

i*j (i.i i I l_ { jv-AAi ( r r I A s ( I ) 

% ^ i . i) 1 0 w N - 1 . , » . 

i ii T u *\ 1 - * . b < N ) 


1=11.1 


'SS?S« 


DATA 

61 

DATA 

62 

DATA 

■ 63 

DATA 

C A 

C ATA 

<z :/ 

R. DATA 

66 

DATA 

6 7 

DATA 

6 B 

DATA 

6 C 

DATA 

' T 0 

DATA 

71 

DATA 

72 

DATA 

7 3 

! DATA 

7 A 

DATA 

i — 

CAT A 

7 6 

DATA 

7 7 

data 

7ft 

DATA 

7 r - 

data 

SO 

DATA 

M 

DATA 

•7 2 

U A 1 A 

to 

* * data 

A A 

DA T A 

o 5 

CATA 


DATA 

3? 

DATA 

R M 

data 


' DATA 

9 o 

DATA 

P 1 

data 

c 2 

CATA 

92 

data 

S'* 

OATA 

C c 

DATA 

06 

CATA 

97 

DATA 

98 

.CATA 

99 

DATA 

IOC 

DATA 

ioi 

CATA 

100 

data 

10 3 

DATA 

1 <K 

DATA 

1 0 T 

data 

10 * 

CATA 

10 7 

DATA 

\ OR 

data 

10 ^ 

* ATA 

1 1 0 

CAT A 

) 1 1 
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1 5TOP2 “N STORE (Ntl i 
, Cd 1CJ l I*ISTCRI* ISTOP2.ASO 
i.^o ( 1 i+' * 9 . ismR 2 > 
too &*IT £<SCKA) ( E I AS( I ) t I - l 1 « I 2 ) 

C SAVi INITIAL E S T I MA T ES OF ACUCSTLD ARC PARAMETERS 
IF { NGH #Lt < C ) oO TO 2C0 
NGP— 3®NUF^RC 
CO ISO l 1=1. NOP. 900 
lisWlNOI I ]H?9,NGPI 
150 Vvk! Tt ( SC r- A ; ( INC’XC s ( I ) < I = I I * I 2 ) 

200 CALL CI_C.FF< I flF , 590 ,2 J 
DO 300 1-1.53 

3 C 0 ItMJF ( 1 ) = cL£MST( I ) 

CO 310 1-1.23 

11=1+63 

310 I 3 UF ( 1 1 ) = C A YR Z * ( I 1 


CO 3 2C 1=1.46 
11 = 1+76 


320 1 J l»f ( I 1 l - 1 E f y f/o ( I ) 

- ■■ CO 3j0 1=1.19 2 

11 = 1+124 

3 30 IaJF< I 1 i =cLFM IN( I ) 

J6Ur (JIM sNPARAM 

CALL OftRUE (SCF C.NSTAR7. ICUF ) 
Cu 4 00 J l = I « N 1* O F O » A 5 0 
J2 = MIN0( J l+-'r4?»N*OKD) 

• f y-' *1- 4* 0 1 . y 

i t i 


C 


c 


SAV>. ARC PART HR NORMAL MATRIX 
35C luuF (I > — C C ( J ) 

NSTAFT = mETAi-T + 1 

ACC C AuL D * « I Vf IS CR O.NSTAPT . I £UF 1 
IF( • \UT. tN.‘,T J RETURN 
1 F ( N P A h A F ♦ L E • 0J R" T URN 
STLKL N J KM AL MATRIX IN TAPE' FOR RESTART 
L = L * NL 1 K* NP A R AM- NP A ° A V * { N PA F A M - 1 > 


5C0 


55 C 


CO 300 I 1-1. L *'50 
I2a« INOt I 1 + 9AC* L > 

ArtlTdt SCR C ) ( f»U Mill 1.1=11*121 

IF ( * NOT. S 1 ART in ) RETURN 
L=L/ 2 


1 L 


L a N'J I i«l * ( N C ! M ♦ 1 ) 

CO 5 60 IlMfL.450 


RSPRODU CffilLITY OF THE 
ORIGINAL PAGE IS POOR 


1 2= 4 INC < 1 1 ♦ 4 4 ? * L ) 

(.MT£(LoliT'D ( SUM III). 1=11.12) 


Ll=NDl m* t 

CU '->7z> 1 1 = 1 «Ll . 430 

RFAJ AIL A PRIORI INFncwATICN 
I2 = MIN0( I PiO.Ll) 

«7 3 kRI T£ C CUT iTF > ( SU«2 < I > t I * I 1 • t 2 > 

«■ A 1 T ( UL 1 ? T R ) I ‘DR X 

nltuan 

•j C C IF ( . ■'iwl . F Fr 1 'JF ) SO TO eoo 

CALL Uc F F ( v I SLUG. * l ) 

htAHJCHFl INCA-J. INOf.X *l‘A VST A < X Y Z TP » NC^ F* A T * CLCUT »HY°ER 


data ri2 

DATA 1 1 3 
DATA 11* 
DATA 115 
DATA 116 
OATA 117 
DATA 1 1 F. 
DATA IIP 
OATA 120 
CA T A 121 
OATA 122 
DATA 123 
DATA 12* 
DATA l?-5 
DATA 126 
DATA 127 
CAT A 12-7 
OATA 1.2 9 
DATA 120 
DATA 131 
DATA 132 
OATA 133 
DATA 13' 
OATA 115 
OATA 136 
DATA 137 
0A T A 1 
V> * r » 12 7 

DATA 140 
OATA 1M 
OATA i 42 
DATA 1 A 3 
DATA 1'* 
DATA l< 5 
DATA l*c 
DATA 1 A 7 
DATA l‘ftA 
DATA IA<? 
CATA 150 
DATA 151 
DATA 152 
CATA 153 
OATA IS' 
DATA 155 
OATA l c c 
DATA 157 
OATA 153 
DATA 159 
DATA 160 
DATA 161 
DATA 162 
CATA 163 
CATA ISA 
DATA 16f 
DATA 1 *- 6 
DATA \*-’ y 
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lF(NculAi»L-»C) GO TO ££0 
OU 04 0 1 1 = 1 f NEB I AG* 250 

I2 = M INC( 

5 4 C h c AO ( a ^ ) (LfclASl I )*I = I1 *12) 

6t ; C Du 7 00 r* = 1 * L • 2 

1 STO hJ -N 5 I Ok £ ( M ) 

C HEW ^(w AuJLST'O P^AveTEP VALUES 
lStUUu = JiS 1 Cf- b (L + l ) 

C tfC AD mkC PaAT c- NORMAL matrix 
UU 7 00 1 l = lSTCr. 1 , 1STCR2*4S0 
I2=M XNCC 1 1 + ii?. I5TOR2 > 

7 C 0 Ku-AL' (S-C PA) ( E I A Si I ) * I = 11 • 1. 2 J 
1FC NoPAkC .Lr_* 0 > GC TO eCO 
NtiP= 3*NGF A&C 

CO 7 tO I 1 = I «MGP» SCO * 

12-MU,C( l l+3»9« MOP) 

7S0 KcADloCPA) ( INCXCSd ). 1 = 1 1*12) 
hOo Caul ln3 ac( scfb *nstart * jfuf «02 coo ) 

C J SIC 1=1*53 
810 u L ti M o T ( 1 ):IrUF{ 1) 

CO ocl) I S U23 
11=1+05 

820 LAV Fir < 1 ) = I ?LF( I 1 > 

CU 0 50 l = 1 » A3 

11 = 1 + 7 o 

8 3 0 ljpy.u ( l ) = 1 3U F { I 1 ) 

0 O [ - J , 1 Q ? 

T V - f ♦ J 

£40 e.LL f -‘*lA{ I ) = I 5 U F ( I 1 ) 

KPAfc AM = I 00= ( 3 1 7 ) 

CO 00 J 1 = 1 < NV.V. r D * 4 so 
N iT AkT = ;-iSl APT + 1 

CALL ( scf^.nstaft . ibuf *c? COO ) 

j^smi.no c j i + > 

DQ vOO J-J1.J2 
■ I -J- J 1 4 1 
VOO Cr>( J)=IbUMI) 

lr( * JUT . iWAT ) PVTURN 

1FC MP-*k AV*L i * 0 ) UPTURN 

L=2vl*^ !..!» Nt’AR AM-NO ACA*-I * ( NFmP 4.M-1 ) 

CO l 00 0 1 1= 1 . L* ' 50 

12=M Ii40( 1 H'AC.U 
1 OC 0 kt-^C ( SCKC ) ( SLV l ( I ) • I = 1 1 • 12 ) 

KwT JAN 

20 C 0 C A i_L uAMlRt l 1 *SC3D) 

huTUKN ' 

-*'■> reproducibility of the 

ORIGINAL PAGE IS POOR 


CATA 

153 

DATA 

15 ? 

TATA 

\ -» j- 

CATA 

1' I 

DATA 

1 7 5 

CATA 

1 7 - 

DATA 

' 7 ^ 

DATA 

175 

DATA 

ft 

DATA 

* 77- 

CATA 

1 *» = 

CATA 

1"? 

DATA 

\'-z 

CATA 

1 c * 

DATA 

152 

’DATA 

1 £ 7 

CATA 

1 

CATA 

153 

DATA 

1 3 6 

DATA 

i 3? 

CATA 

t C J 
X - 

CATA 

It 0 

CATA 

ICC 

DATA 

1 4 < 

CATA 

l z 2 

DATA 

17 ? 

DATA 

1 f ^ 

DATA 

l c £ 

CATA 

1 T r 

Data 

1-7 

CATA 

1 ' c 

CATA 

1 • s 

CAT A 

2 ; 7 

DATA 

2Z l 

DATA 

252 

CATA 

2 *\ ~ 

DATA 

2v*t 

DATA 

£' z 

CATA 

*5 e 

CATA 

2;* 

CATA 

2 C 5 

CATA 

2 5 - 

CAT A 

?i : 

DATA 

211 

CATA 

212 

0 A T A 

2:7 

CATA 

21 ?■ 
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DATBSE 


DESCRIPTION , 

DATBSE is a subroutine specifically designed to read 
data from the' DODS Data Base. It also has the capability 
to read data tapes in DODS Data Tape Form-at. DATBSE does 
not interpret the data it reads. It can read only observation 
data. 


When reading data from the data base, DATBSE first 
searches the observation file directory record to ascertain 
if data is present for the satellite requested. If data 
is present DATBSE determines which portitions contain the 
desired data and then reads into core one physical record 
of data containing 3'5 observations and then returns a 
header record indicator through COMMON to the calling program. 
On all subsequent calls DATBSE returns through COMMON one 
observation per call until all of the requested data has 
been . re turned at which time it returns a sentinel record 
indicator. 

DATBSE assumes that the first call for each arc 
requests data for a different satellite and searches through 
the observation file director to ascertain if data is 
available. 

When no data is available or when read errors occur 
DATBSE prints error messages and terminates the run by calling 
ERROR. 
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Name. 

purpose 


OATDSE 

TO PE AD CC'SEPVAT 1UN DATA PP CM CUDS DATA BASE 


CALL INC SCOU ErtCE 'CALL CAT ESE ( I N • D ST AR T » D ST UP « I 3 AT 1 D « CL D A R C ) 


s y.mbol 

T rFE 

DESCRIPT ICN 

IN 

I * 

INPUT 

- 

CAT A FILE NUVMEft • 

OS TAR r 

OP 

INPUT 

- 

CATA STAPT5 IN CAYS FRCM JAN C.O OF THE 
REFERENCE YEAN 

OSTOP 

OP 

INPUT 

- 

CATA STOP TIMS J N DAYS FROM JAN 0*0 OF 
THE REFERENCE YEmF r ‘ 

I SAT I 0 

I 

INPUT 

- 

SATELLITE ID 

OLCARC 

L* 1 

Input 

0 

OUTPUT - FALSE CN ^1RST CALL FOR EACH ARC 


SU3PCUTINCS USED 
COMMON SLOCKS 

INPUT FILES 

OUTPUT FltcS 
RESTRICT IONS 

REF afiE.-iC ES 


CL,t A K 
DODDAT 


CHANGED T r j TRUE 
DJUL ERROR Y M D A y 


I N — DATA FILS NLHP.FQ 
OUT P - PRINTER 


"KPKODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


('AT A FlLc numBL« MUST US 33 FUh CODS DATA 3ASi 
OTMSPViISF DATA FILE IS ASSUMED S'QUENSIAL DOU5 
FORMAT DATA TAPE 

COOS DATA EASE OeSFPV ATI’JS' FILE DESCRIPTION 
•GSFC DOTS DOCUMENTATION' 


Subroutine da tbse ( IN , 0 st apt . ostop . i s ati o, olcarc > oatj 

REAL * a T1,V£1 , F.TNAM l*OPSl«CG(?) ,00 SCO H . D S T AR T , D S TOP . M j S TP T , M J5 TO" , MATB 
J to * D J CL » u J* ; E f , Y *-*D A Y 
DIMENSION S ( 0 ) * I TR< ??.» *WPEC(25 *35 > 

LOGICAL* 1 NOT 1ST ,0L 7A'iC 

I N T U - " IS A T l C, SATNO. RECORD ( c 6 C) .JUTP, I TAT iFFCSAT 


CATS 
0 ATD 

datd 

DAT J 

lNf> Cah * 2 L T E C « R r.Z° AR » IS . tr;i.PFITl.»s»lT?,IG2(2>rlT*TT AG,t_LREC l ( 2 ) . D A T .0 

i 1 aO-O.RECO (17‘0 ) OATtf 

CIME-xSlLh V-i CC c 2S, 33) r '* T ~ 

CJNM JN/OL- ->A T /T l '•>•£ 1 .STNAM 1 . <J;J S 1 .0 ’J'/SCON AATNO. 1 03 NO 1 « WT t » C . T C P R • ^ A T S 

1 1 oa . I 1 * I C. 1 . T T AF, , l T | , I T 2 « I G 

L 0U I V ( L- .. £ • L L ^ C 1 ( I) * A t COA'-C 1 ) i iU C £ ( 1 )) * I l R — C 1 *IC0UNT) 

luJI VALc Nv I I i ; t t ) i T 1 7:.l I 

L AT„ D J *t. t . \0 Tl SI . J . O'J TT , If 1 - '» /*'- v O -i ! • Si'O * . F &L SE • .-1 . 5 . 0 / 

]r( OC TO 20 
C rtf A„’ CATm TAT i 

C KAoliN.tV'.MC, '^*11 T I V b 1 . f^T f i , )■' r, ! , . ';.!bC :r. . S A T.N J , I 0 JMO 1 , 


O A T'T 
DAT-i 
DAT J 
CATH 
DAT.) 
DATA 
DMT;- 


2D 
f. o 
A l 
A I? 
AT 
* 

\ -* 

A 3 
AC 

5 2 
SI 

C 7 

H 3 
■>A 
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l <*Tl tG*TCCR.IG<2,IT,IGl« TTAG*PSIT1 *P3IT2*I0 

CLuA RC - • T RLE • 


f.cT U»«N 

C SET SU'lTI.'.-U RECCRC INDICATOR 
10 T IV£ J--£ *COC 
R=1UF.N 

2 0 I Ft CLOAr< C ) GC TO 100 
IF (NUT 151) GO TO 22 
NOT 1 1 rue » 

C DEFlNc. u AT A tVir. FANDOM ACCcSS FILE 

LiLFIN.il FlLC 2 C660S t 352 O.L ♦ ICOUNT I 
1 COUNT = l 

C READ wir-LCTChV RECORD 

*cAi>( IN* 1 CCiUN T « ERR" 100 C) RECDRC 
CALL CLt t. f (f.'2r^C , 25 . 35 1 
KlCPAK = Lt FT C 1 (2 ) 

2 2 CIIdA kL~*TFUE* 

C Sr. AR Cm OIkuCTCRY F OR 5 A TEL L TT c 
CU 2 5 1 = 2 »L NEC 

1 F(*<LwCi'L' (I ) iC: • 0 ) GO TC «: 5 
ISAT=- RE L CRD { I ) 

'iMiSAT.tt.ISATIOJ GO TC 20 
2= CONTINUE 
GO TU 10 1C 

2 0 Nw Jii = R£C CKC < I ■* 1 > — 1 

RLCbAT - ( NCOS - 1 )/ 35+ 1 
NUPANT * ( RECSAT-l 1/FECPAR4-1 
1 *Uk D = l + w 

C CCKVcAT $TA^1 TIME TO DODS SYSTEM 

•■057 k T - 0 J CL (DETAPT )— CJRiF — «OOOCIQO 
C COVERT STOP TI’-E TO 000 S SYSTEM 

► CP'OJLL ( OSTOP > -CJ^ SF+ *0 0 00 IDO 

N«.tjAl> , “lA'CA04-N.C c -A~T“-i 

C DSTiAMlMt FIRST L LAST PARTITIONS 10 BE 
Lti 35 Js I v» 3RD *NUOPO 
K**J»'D2~2 fc ».*“ 1 

( Ka'JFCS ) 

IF (MJiT«T *L T * ( MJO+ 1 • D C > ) GO TO 40 

3 5 CL NT INUti 

C CNLY U^5T PARTITION MIGHT HAVE DATA 

J — N'.V Or< D 

llMuUc.- = NJbS“(NC:'S-l ) /25 *25 
N£)r«£C s k£ C?.i r-PfCSAT /HE. C F A F * REC FAR 
I«cC l***EC *{K»CP02+ 1 MNCFEC-i 
c READ L^ST partition and check time 

fc-MD( IN* I COUNT, tap- 1030) v^rc 
lu->( i j - mrcC ( i . I v;;iy ) 

1Uj< 2 > -MRLCC 2 * 1 NCOS ) 

TIRE1<YMCAY(2‘ , C91 7 , C * C *0 0 ) + C » C 1 
IF ( M J fc .L 1 .3b T AP 1 ) GO TC 1C20 
c FIH5T PART I T ICN TC C Z PGAC NO a' CZT^MJj 

AC Ts/AK( j- Jr Jr-D * ! ) 

N* j. - * ( I •tuP'* I P A i? T ~ l ) 


READ 


ORIGINAL PAGE lb W 


DC 
2 J 


Ih^.C1“Nc.C*IKaC >, D2 ) 
l. L 4 K • v tN* I. F. 

L J- DC = 2 v ““ I 


OAT 3 

'56 

OATH 

57 

OATH 

55 

CATO 

50 

OATH 

60 

DATO 

61 

CATB 

62 

CATO 

63 

CATB 

6 A. 

OATU 

65 

CATS 

66 

OATU 

67 

Cat r 

Af: 

CATB 

6 5 

DATS 

t r> 

OATH 

71 

CAT13 

^2 

CATO 

72 

CATB 

74 

DA TO 

75 

DATS 

?e 

OATO 

4 • 

0 AT O 

7a 

CAT 0 

79 

CATB 

• 50 

D AT b 

71 

CATO 

3 2 

CATB 

£3 

CATB 

5' 

CATB 

3 5 

CATB 

3 6 

CATB 

t> -t 

CAT R 


CATB 

39 

CATB 

.9 0 

OATH 

9 1 

DAT3 

9 2 

OATH 

' 3 3 

CATB 

94 

DATB 

95 

CATB 

96 

0 AT B 

97 

0AT3 

?R 

CATB- 

99 

CATB 

100 

datb 

101 

OATU 

102 

DATB 

.103 

CATC 

1 9^ 

CATB 

105 

OAT 3 

106 

OATH 

10“* 

OATU 

105 

OATU 

109 

OATH 

1 ) C 

CATB 

1 1 1 
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KJD = RcCi ( L WO R C 2 ) 

IF( M J6T0P .LT * <« JD+ l C D0 ) ) GO TO 50 
A 5 CONTINUE 

C CAST PAkTITICN TO OF R 5 A C NCVi DETERMINED 

50 KPAkTs^INClNUPA^T, K-I!«ca0*l ) 

Nk£C s lf<£ C l*kc CPAS- l 

NOME C- RE C SAT-RECSAT/P£CMAR*«ECFAR 
lF(.NDncdC • EO» 0 > N2«EC = fiC'CPAi< 

IF C I PART ».dO*KPART » NREC=IRCC1+NCREC-1 

lNDOB- 2 j 

NC3=0 

NDJd=NCsS*NOd$/3j» 3 5 
IFlNtOS* dC* 0) NOJS=35 
SATNu^ISAT 

C SET Fi_AD5r< ft t CORD INDICATOR 


T1.4£l=-t «0DC 
LAdtL = 1 

C READ FirkST 3 5 3 A T A RECORDS 

hcAJ { I M I COUNT ,MRs 1030 ) MP£C 
LAo2L= 2 

IF{ I PART • N f; • K P A R T > SETCKN 


NMuC =IRdC 1+NOFcC-t 

IF { NuKEC * c.0 * 1 ) INDDBsNCDB 

KcTUK.N 


ioo iwoe=Nuti+ i 

IF(NOci «OT . IMOCK > GO TO 150 
C CFECK. ? J.-! C CF L ! C A T F Or? S E° V A T I C M S 


TFlMHcCt 1 .‘100 ) • SO* 2KF. C ( 1 . I 1 , AND. J . NO J ) 

l MK£ C( 3 .NOB > ,? O. v 2PEC ( 3.1) .AND. M ,Nl)l 

Z MHlC (Z’.NHM ) . 50- M2REC C 23. I ) ) GO TO 100 


• EO. M2R5C ( ? . I ) 
. £O.M?Rf.C(A . I ) 


• AND. 

• AND* 


l \ c UnT iNCd 

C SFL£CT J:\i- Ofc £“PV AT I •;>'•) FRCV COPE A NO LOAD IN COMMON 
EO 130 I = l . 2 i 
120 IOu< I ) =MkcC ( I iMOy) 


K £ T U 'i 

C SAVE '^uVlULi 35 OBSERVATIONS 
15CCJ 160 1=1.22 

00 160 J = 1 . 25 
160 MJk£C( ] , J ) = ,/ kLC{ I i J ) 

IF( I CJOM T .GT .NP TC ) GO TO 2C0 
C R5 AJ 3j more OBSERVATIONS 

RiiAOt IN* ICOCNT ,£RR- 103C ) VREC 


reproducibility of the 

ORIGINAL PAGE IS POOR 


NC3=0 

lr( IPAr,T *EO.<PART. AND* ICLMjNT #5 C.N-53 ) I NDJ.3=NQ03 
GO TO IOC 

20 0 IiM I MART .(5.KPANT ) CO TC 10 

C D2Tck.v,IMc rlfiiT .>£C0«0 IN Nv * PARTITION 

KJb =0 


JPAr. T- 1PAF T+ l 

K»jADd s NiiLkO :> <£. 

ICJONT s»c(t(K M<: '-D2 ) 

NHI.Z- l C-esr r.‘FCPA-- 1 

ir 1 1 m.\mT • lt * ►; r - t i go tc ioo 

N^usICJLNT ZC- 1 

l r { N Jtx £.*!«« 1 ) I L* - NCC *:• 


DATS 

112 

DATR 

l 1 3 

CATU 

11* 

CATD 

1 1 0 

DATS 

11 ft 

OATH 

11? 

datd 

i : a 

DATS 

i ir 

0 A T b 

120 

DATS 

121 

DAT?) 

122 

CATB 

1 23 

DATS 

1 ?* 

OATB 

125 

DATO 

126 

OATO 

127 

CATB 

123 

DATS 

129 

OATB 

130 

CATS 

1 3 I 

DATS 

132 

CATO 

133 

CATe 

1 3 c . 

OATB 

135 

CATB 

1 3c 

CATB 

137 

Oath 

1 3P 

D AT? 

1 •»**• 

OATB 

1 AO 

OATB 

1*1 

OATB 

1 A 2 

CATB 

1 A3 

DATS 

1** 

DATn 

1 > 5 

CATB 

H£ 

DAT S 

l‘A? 

CATS 

1 a a 

CATS 

1*9 

CATS 

150 

CATS 

151 

CATB 

1 32 

CATB 

153 

DATS 

15* 

CATH 

155 

CATB 

15 y 

CATO 

157 

DAT S 

15? 

CATO 

15 C 

OATB 

l <so 

CATO 

161 

DATS 

162 

OATB 

.1 53 

OATH 

15* 

CATB 

165 

DATS 

1 '» o 

CATS 

1 
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1010 

l 020 
1030 

1033 


I SAT ID 
I SATID 


I SAT! C, l COUNT 
TO ( lCMVCi'ISO ItLAHZL 


. GO TO IOC 

C FfilisT tkKjh MESSAGES 
ICCO 'akIIC(uUTF,200C) 

GU TO 10 i t 
f>r<i TL ( OUT F « 2 C 10 ) 

GU T O 1 0 3 £ 
v.«I Tc (OUT F « 20 2C ) 

GO TO 102E 
1E.^K- l EF F* ♦ 1 
V.kITL ( OUT Pi 2 0 20 1 
ir< I EkF. LI* 10 ) GO 
*&JT£( CU T F . 202S) 

«RITc(CJTF«?C4C) RCCC*TC*MFEC 
TAKE tk PDF. EXIT 

C Al_ _ i_FRGF(7» CST AR T ) 

JO AD Jrl IWnKT »£U«KFAi<T ) NR5C = NCREC 

RETURN * _ 

^COC f* J -U-* AT l 1 F 1 » 2 CX i 1 UN ABLE TO READ DODS OAT A JASE OATA DIRECTORY*/ 

I 21X,*£FRCR COD! I S • . I 9 /2 1 X . * NON AM- £ XE CUT I ON TERMINATED*)- 
20 l 0 FukMAI ( 1 h 1 . 20X , 'NT DATA AVAILABLE - U*- J SATELLITE fie 0 US ST E D • /2 1 X * 
1 * SA TELL l Te ID I S M 5/2 IX , * NCNAVrl £X'CCUTI)N TERMINATED*) 

2020 F.UriMAT ( l h I * 20X, ■ NO DATA AVAILABLE "OR THE TIME PERIOD REQUESTED 
l «FGR*/il*» •SATELLITE* . 17/21 X, ‘nTNAMc EXECUTION TERMINATED* ) 
2Q30 PJkv.^T ( I r Ci PCX, * DUDS DATA SAGE READ ERROR OCCURED FOR*/21X, 

1 ‘SATELLITE *«I7/21X» 'DATA RECORD NUMFSR IS 1 i 15/) 

20-5 FtJn<M AT.( l h C* 20 X * * N'JNAME tXCCUT I CM TERMINATED DUE TO*/21X* 

1 « ~ \ c z. 3 5 I V E Z V D S DATA ? * S 2 R * A D ERRORS*) 

2 C * 0 f J A T I i ^ i / t 1 CX . 2? » 1X.23.2X.2E . 1 X . 2 d . * X . 2 '3 
CfO 


* V . ▼ D 


f V t 70 l \ 


CATC 

163 

DAT *3 

1 ft? 

CAT* 

1"*C 

CAT3 

171 

CATC 

172 

DAT4 

173 

CATC 

174- 

CAT3 

1-5 

CATO 

i-e 

DATE 

17- 

CATO 

t 7i 

cat a 

177 

CATS 

ISO 

DAT 3 

1 * 1 

DATS 

i e? 

EAT* 

163 

CATC 

1 °A 

0 % T 3 

1*5 

DAT* 

1 5* 

CATS 

l 

DAT* 

1 fP 

, D AT 3 

t ; r. 

DA TO 

1 r, £ 

0 \ T 3 

i~i 

DA TO 

102 

DA rj 

17? 

OAT” 

1 R* 

r> a y .* 

i.if 

CAT 3 

1 76 


REPRODUCIBILITY of the 
ORIGINAL page IS POOR/ 
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SET SENTlMEL 
RECORD 
jNCnCATOR 


^returm ) 
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£o - t'K 
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V V 


iAYE 

P£eviou5 35 
OBSERVATIONS 


' o 
Partition 


REAP 
35 MORE 

OBSERVATIONS 


REAP 

ERROR. 


r > 

100 

v y 


Ses i zoo 


VG * J 103>0 



8 0-146 































DATES 

Page 1 of 1 
October; 1972 


/ 

name 


DATES 

- 

purpose 

- 

TU CONVERT DAYS. ELAP5ED PRC'-’ JAN O.C 
REFERENCE YEAR INTO A 3 WORD DATE OF 

yymmdd hhmm SEC 

c c THE ARC 
THE FORM J 

CALLING SEQUENCE 

CALL DATES ( CAYNR *1 YMD * I HM, SEC > 

• 

SVMflOL 

TYPE 

DESCRIPTION 


DAYNR 

up 

• INPUT - DAYS ELAPSED FPCM JAN 0#0 OF 

Year 

THE REFERENCE 

I YMO 

l 

OUTPUT - YEAR. MCNTH, CAY IN THE FOR 

M QF YYMMDO 

IH* 

l 

OUTPUT - FOUR# MINUTE IN THE FORM OF 

HHN'M 

SEC 

R 

OUTPUT - SECONDS 

. 

SUBftOUT 1 Nc.* 

. USED 

ACDYVD TDIF 


CCMvON bLOC< S 

CTIME 


JNPuT files 

NOME 

- 

..OUTPUT- FILlS 

NONE 



c 


c 

c 


SUBROUTINE DATES (DAY MR * I Y f -'O « I H M * SEC ) 

DOU8LE PRECISION D A r m 3 . S . 0 A Y * S t C 
co^MCN/ci rie/cAYfic- ( 22 j . i y 
CONVERT TO uic Tlf". SYSTEM 

• ChY = LAY.nR ♦( CELL ( TDIF{ 3 ,A . CAYNP ) ) + 1 #00-3 )/a»6 4C>4 


IOAY=UAY - 1*00 

IV MO = I r* iccco-u 0 1 

CALCULATE V c. A NTh/DAY of interest 

CALL ACl/YFD ( I YM-. IC AY ) 

CALCULATE NU>’tS- Cr SECONDS REMAINING 
• E*fC*+* (i) AY-HFLU AT ( I C A Y ■*■ 1 > ) 

I ljuC = ^ 

C C NV ti K T TU HCLR/ m INUTE FC^VAT 
= I 5IC/ jCOO) + IS Z C/6 0 

itONsj ^ ^ C C N 0 3 

SiLsS-CFLl.4TU.0M tSEC/CC) I-1.0C-6 


sssssv^ 


a - T J f*N 
END 


CATE 

3 1 

CAT- 

32 

CATE 

3 3 

CATE 

3 4 

DATE 

i c 

CATE 

3* 

CATE 

37 

CATE 

# & 

DATE 

3<r 

DATE 

AC 

DATE 

A l 

CATE 

42 

CATE 

4 3 

CATE 

\ A 

CATE 

A 5 

DATE 


DATE 

4** 

cate 

A A 
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NAME PA YEAR 

PURPOSE / TO COMPUTE A C ATE * CAT* N'JMBCR. OF YEARS* AW D T TME 

CF CAY I N SECONDS FROM A GIVEN TIME IN DAYS FCO^ 
JAN 0*C OF REFERENCE YEAR 

CALLING SEQUENCE CALL C A YlT AR( DAY , I Y MD ♦ I O AY , IS EC ) 


SYMBOL 

•TYPE 

DESCRIPTION 

PAY 

DP 

INPUT - 

DAYS F LAP SCC r^CM JAN C *0 OF TFE FT FuRf.MCt 
YE AP 

I Yf-lO 

l 

I NFUT - 

YEAR* MONTH,. t;A_Y _IN- T Hi 0- YYWMDC 

IDA Y 

I 

CUTFUT 

- r DAY NUMFLF OF YEAR 

I SEC 

r 

OUTPUT 

- F FACT I ON CF l AY CCNV."RT-T- TO INTLGPAL 
SECONDS . 

SLSROUTI N(T 

3 USED 

DATES 

DIFF 

CCMf-ON BLOCKS 

ACME 


INPUT FILE 


nont 


OOTPUT F Ic£ i 

nO^E 

’ ’ 


su&routin£ da yEari day . i ymd * i day « isEO 

REAL 1 * ft. CA Y * SEC 

CALI. DA TE S( DA Y* I YVO *IHM ,SfcC) 

ja. no - 1 v nd /\ c - •: c * i ( : cc +■ \ c n 

l n t < si c + v. * s do > 

CkLL )I FF ( J.iNO f C * I Y NO *1 Hf‘S iID/.Y « 1ST C) 

Fi. 1UTU>1 

EMC 


«® 1U WW™* 


SSE5*-: 


DAY7 ?? 
DAYS 

Cay" ?a 
DAY?* ' 2 5 
CAYr. ?(' 
CAVr 
CAYr 
0 A Yr ? * 
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DELTAZ 

TO COMPUTE THE Z CCCRDINATE OF A PO INI- OF G W F N 
LATITUDE On the ellipsoid 

X=DELTAZ( SUBLAT) 

DESCRIPTION 

INPUT - LATITUDE CF POl HT ON THE ELLIPSOID 
SU3H0UTI NES USED NCNE 


COMMON 

3L0C KS 

C ONSTS 

I ntblk 

INP UT 

FILES 

NCNE 

- 

OUTPUT 

F I l£ S 

NCNE 



NAME 

PURPOSE 

CALLING SEQUENCE 
SYMBOL TYPE 
SU&LAT CP 


DO UiJLE PRECISION FUNCT1CN DE LT A 2 (SU EL AT ) 

DfLT 

23 

IMPLICIT REAL { A-H ,C-Z> 

0£L T 

? A 

LOGICAL NOT! ST 

PEL T 

2 S 

CO MMPN/c O N S T S /D-P I • »E“T *OP l . EC 0-2 *f- « P s 5 h C 

n T 


O.o M-JION/ r.MTM K'/TMOGTSf"*) .GH.AE.AE59 tFLAT tFSQ3ZL59) 

r> rr^ t 

*> ~f 

DATA NO Tl ST /, = / LS£. / 

DFLT 

2 P 

if (nuti st) cn TC 1C 

oelt 

29 

NDTI 5T- .TRUE . 

D EL T 


c 1 = 1 . yj c- r L A T 

dflt 

31 

F 1 SQ-- l *F 1 ' 

r.ELT 

?.? 

F ;,F-r LA 1 * ( Z • CO C“F LA T ) 

DEL ^ 

33 

5P S I *> SI N( 5U' LA T <L *~G2 RD ) 

DF.LT 

14 

£P S I ST- SP SI * *2 

f)FLT. 

1 c 

fcAK TH=A ?: *r 1 /O SORT (FI S Of F 2 F *5 PS I S C ) 

OPLT 

?C 

0LLTAZ=SPS1 Th 

CELT 

37 

FT TUP N 

CELT 

1 f. 

END • 

DEL T 

39 
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DENSTY 

DESCRIPTION 

DENSTY is a real valued function whose value is the 
atmospheric density at a given time for a given satellite 
position. Additionally, DENSTY computes the partial deriva- 
tive. of the atmospheric density with respect to the 
spheroid height. 

The density model used is the Jacchia 1971 Static 
Density Model. A thorough mathematical description and 
a list of references are provided in the GEODYN Systems 
Description, Volume I. 
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KAMp 

/ 


DENSTY 

•• 

»U p pus? 



THc . rjN'CT I'SN OEMRTY C r, - ,n jrc S AM ATMOSPHERIC 

OEMS t TY 



WHICH IS OF PE NOE NT UPON m-IC.HI* T" m.i * \> A T UR F . 
SEASONAL LATITUDINAL VARIATIONS. T"'P^ r IATU r l 

DEPtvro rcre.Y Tw* JACC^tA 1 77 1 ^"':L amp IS 

AND 

17 IS 

• 0 



DEPENDENT UPON THE FOLLOW I Nf.: 




- 

1. SOLAR ACTIVITY 

2* C.FQMAC.N7TIC ACTIVITY- AMD 

3 « OIUPNAL CULC.F 



SE-MI AMNUU V AH I A T I QNF DENSITY ARC 7XRR-.SSFD A G 

A PRODUCT PUMCH -'! r 'f z Htlf.MT AMP T ! v = . T^ERC ACF 
SEASONAL LAT I TUP I M A L VAR l A TI OMR fJ~ T i~. LDV/FP 
THERMOS FMEPF A NO H P L I U M 


CALLIN'". SFGJCNCE XsCENS I TV (R ASAT) 

GVMHOL rY D E DFiSC R I n T ! ON 

PASAT r*"> IN°UT — n IC»HT ASCENSION O r SATELLITE 

x ~t OUTPUT - ATMOS PHFrf? IC DENSITY - < I L 0 R 3 A V S/ MCT = » S * * 3 

SUBROUTINES J 3 CO CP M EM. YMDAY 

p‘LXAL< XY r CTJMF 


CT-’/ON PL OCXS 

INPUT ■ F ILES 
CUT PUT FIL P ~ 

prf.T 51 0 T I ON" 
PZ^ERrnces 


CF.PHF'l CONST R 

i" r- GO L S IMT 'i. K 

NONE 

NO NE 

NONE 


•GEO OY N SYSTEM? ^rcfpiuTPN' 
VOLUME 1 - GE O OY M DCCH ,<,C N T AT l ON 
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FUNCTION OFNST Y ( OAS AT ) 
c U°TAT e D AS O- 4PPJL 1972 

IMTLlCir REALMS (A-H.n-Zl 
DCUOLC ’PF.CISICN <P.KP'LLM1C 
! N'T FOE- •”» ROES. S T AR T 
LOGICAL NOT 1ST 

CO MV *CN/ {A ) « U V" • IN ( A > » G A ( A * •" > 

COMMON/'' INST S/ P I « T *nP I , R AO, rv cf r 

Cf» , ’i r !M/ “L < n LX/ A 7F _ X ( G 7'* 1 , O r l x( A”n| 

CCVI 'JN/ < Y ^/X 1 V , 7 .OUT S ( > ) . P , r SO . I R A T « | F'^P C r ( ~ ) 
Cn"Mos/rr i mf/oat .v-p, prtac rp i.f'/.Yi, [‘'Ay'ivj » 

common/ ug*T'l' , '/ht < sps f s A ♦ c i i «=»po ( c ) . n r 'R a g 

Cn.* von/ ? IITY/ I S ; ( a<" ) ,';ni 1ST .1 R ~ ( * ) 

r>i v '*H f . I .t ;'M u,cccu.Trn),ix-^o('),.v(i i ' ) . '*( ••h> 

EOUIVAl:n:.E (A A( J > , A( f* ) ) . < nn< 1 ) ,o( AO) 1 


A A ( 


1 .RRI?-- > 


OF NS 
OF NR 
OCHS 

pF NS 
OEMS 
OE NS 
OF NS 
O r N G 
OF NS 
OF NR 
OF NR 
OF NS 
0» NS 
OF NR 
OF NS 


41 

4?> 
4 0 
4 A 
4 S 

L f, 
A 7 
A P 
4 O 
SC 

A t 
r 
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rt 
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EOU TV AL^NOF < p CP HO 0 * C ( ! ) ) 

DATA BETA , GAMA *Px. RV - C .64577 10232377D0. 0 *759<4P* 57S3574D9 * 

• C. 3P>. ‘j • : 047 1 A7 5‘ 1 10600/ 

DATA EP3 T L . F r AVC! C,f C . 4 0 '* 1 C 51 6. 667pC . ? . 6.6>* 5 909^ 630- 2 3/ 

DAT A PI * . 3 IN.Vt . 73 53 9 £1 6 3 39 745P9 » J.3R35S319C5S 32 70 0/ 
data CJ 11.59/24 33 23 l. EC)/ 

DATA ANV_ AT/C . 261799 3 6779800/ 

DAT A N2 / 1 / 

C TF.VOHPATUPF C 1 = F p I C IFMTS FOP OFNSITV AT ni* r =-PFVT HEIGHT 9 4NGE S 
DATA A/ 

C SO<MT<?:C 5 C'O <T C 1 90 2 

.C* 422 C°> >65 0+0 1 * 0 . 7 A 3'92P3 AAP-c 3 , - . 6. 9S?i 2773-25.0. 1 4712375*0-' 

>oO+C0.-«2 34il Qt '. 4 4 0— C 3 » 7*1573 6 71120 - 0 6*-* H£743?74n- 

• 0.7 3591 >1 5 CD-C3 ,C. I596<.133on-OB«-.1 ! 060 A t 590-0 6* 0* 2 S 9 > 6 fi n 3 ? O - 

• ^•1 23b7*7m?D-C 5.-«3AJ 5' 9°920-0 H t C.?24R79P330-l 1 * - . ^ 1 05914! 1 O- 

C 2 3 C < HT <r 5C 0 5 0 3 < T< BCO -~ 

• S 26?° * 53 30 02 * ■'. * 49 7 o? 96 2C 0-9 2 * 0 .97? 740 6 r 1 3 - C 5 , - . I 0 64? 5 1 « 60- 

• C* * 226 2 -700-0 1.-. "M 2 IOC 2 9 20-0 , *~.2Or4.?2:4H70-C6.-.'5i93327FO- 

. f 5 l 4 50-C 3, 3. £4 4C > R2 1 7D-C 5. - • 2TC 5M 4 1 79-C £• C. >9 O '’ 1 3 * ^70- 

. 3. 1 l-?6c " 2 2 90-0 5 , - . w 1 «. C7 1 7330-0 C>. 0 .50 51 71 21 20-1 1 « - . 20 * 337 31 4 0- 

C 20 0 <HT < 5* 0 3 00CT<1°00 • 

, — *f'4595 - 322T+J i « - * J5C C ' 4 / 6C O — C 1 3 * — .626A-2 l 94 PD-C6,C«?46ll 6->ccn- 
. 2 H? 94 ' 1 1 n-C 1 . 0. I 7 7 <M A ? 70-0 5, 7 . 6! 397? 1 309 -C *> , - .2 ? 541 29- 

. 0. f-r?97 5? 3C.D-05. _ . "*7 4 61 323:0-3 7. - . E'-^OEC 44 CO-1 C , C . 1 4C2; 503 ?D- 

• 0* 1 ^4 34 ! 3 4 00 -0 R . - . 76 4 2 ; i 2 1 5QO-1 «0 * O * 5 p 3.32 5 00-1 3, -.145951 7 7 30- 

C 5CC<HT< 1C 30 C < T< rO 0 

j-.-m ._4 77« jB 7.* 3-2 0 + 0 ? * C-* T:v? ? T 1 1 9 RP-O- f * - *5 A 5 7.3 1,6? 63- C 4 , - . 5.0.4? 3 9 94CC- 

.0. ?‘'6 3^ ) O 30OC-. - . 9*9 ?m?99CO-C ? .7A 931 = 71 .53 1 7»2 7? 4P- 

• -.2693-. 3 55 7O-0 J. C . ‘ 2 9 7 It I 9 70 -0 5 . - . 1 C 7 7 54 66 C 0 - C B . 0 . 4 1 9 0 9 3 0 70 - 

• 0. 159 A2 3 “9AD-3 5 ;• 4345210-0°. 0.4/ 70659710-1 2. -.7183646650- 

CATA aa/ 

C 5CC <HT < 10 o: 8Co<T<19C0 

• 151 •• 70 50 0 2* - . I 26C : 23610 +0 0. " .n? po^7 2940-0 A. - * 1 P ?762 4 5 90- 

;^^7i-'2!0O4 0C f 0.M705745 5p-0?,-.4»46?4 9.6 70-C6«0*9i095929Pri- 

• 0. 4 ! 76f 53600 -0 3. - . 6H 7 42 c 1 630-0 6. 0 . / 1 C 39 746 60 - C 9, - , 1 3 53 39-9? 60- 

7 _• 1 ao-06. C. J93. 56 29 150-0^. -.27639? <9 20-1 2*0. 5 2 549! 4390- 

c loro on <2~z sco<t<3co 

« 0 • 2 6? 32 ' 3 6 30*0 ? * I < 1 6* 325CD*C''»n.41 c 6"39<40-03»-.0166121110- 
.-•4r35£i: , o 0-0 1*9. 2660’. 4-- 1 43-& 3 » - . 4 - 21 3 d 65 ^1-C 6, C . ?70'-J5?5t 2 0* 

• 9.1114 7 *5 120-34,-. 774 5*77 5CO-07, 0.1f»C4??C770-C5,-.°9C549357D- 
. -.2 595£ 5 OO 5 0-1 0 *C . 44 7 2*766 60-1 l , -. 14C 8530270-1 3, C . 1 044 234^ 20- 

c iocc<ht<?s:: oco<t<iooo 

• C.r 24 lv. : 20 90+0 2. - . 22 6 5?A6R<O+0 0* 9.21 64 15 61 70-C3. - .90 622 87<1 0 - 
. .0. ! 395- 1 3 .? 30-1 C . 

I 4 . 35455 P 7 0 *e :, C. 4 31 13 34590-0 -3. - .46136S24P0-C6.C. 2.0176 5671 c- 
.-.39 r »09:'563D-l 3. 

• C . F 7-92 ■>< *• SD-0 4 , £ 7 1 =66 6 9C 0-0 6 • 0 . 2*9 7 4 5C 6 C 30 -C 9 * — . 1 9 4 ? 40 6 350- 

• 3.21 5t,>-.3 4 20 — 16* 

1071 C >.3 4{)-c 7. c. 49 6 35 66 F 30-1 -.^5 °974C 7 PO- 1 3.0.2 5,4 31 32960- 

.-.^1 10 1 ' 3 74 0-2-' / 

c ypnocpi TijCf COEFFICIENTS FOP jy.« NU’-’O^P DENSITIES 

CAT A n ✓ 

c o'/-ht<i-.:„ 5 2:< T <- r :c m = l 1U’.< 

• ?. 93-1 7 : <6 40 + C 1 . 52 6 23a 337P-: ?D-C <*-.?94 7-AA5?0 

.-. I 31 4 0 75 : 50- : 1 . J. 31 2 1-036 -*o-c 4 .-. i:'-o-»r. 040 -; 7.0. 1257251? :o 

' , c. 9 6 >7 > ■• w IO-C'5. 76 7 J-: C4 '>*’0-; 3. 0 . 5 -» : 5 7< 6? 30-1 1 , - . ■* 0 66 9 1 93 7 o 



DFNS 

56 


DFNS 

57 


DFNR 

5P 


DFNS 

69 


PENS 

60 


DFNS 

6 1 


DFNS 

62 


DENS 

6 3 

OtNSnF NR 

<4 


PONS 

6 5 


DFNS 

66 

03 . 

DFNS 

6 7 

7. 9 ♦ 

pens 

6 6 

1 2 * 

DFNS 

69 

15. 

D- NR 

TO 


PENS 

7 1 

C7 , 

or NR 

7? 

\ 9* 

D C NS 

7? 

1 2 * 

OR NS 

■71. 

1 ^ . 

P C NR 

75 


PFNF 

76 

cq , 

0-7 NR 

77 

1 1 . 

OR NR 

7? 

’ ■* ♦ 

n 1 - \’R 

7«> 

1 6, 

OR NS 

PC 


HE NR 

6 1 

<* 7 , 

fICKjC 

F ? 

1 •: . 

OF NR 

P 3 

1 ? . 

Of- NR 

Pii 

1 6 / 

DC NR 

PF 


PENS 

°6 


DFNS 

67 

fW , 

n«"NS 

p « 

■t ' . 

D r NR 

AC 

-12* 

P£ NS 

°9 

■14, 

PENS 

9 ! 


DFNS 

0 ? 

■F < , 

DFNS 

9 3 

-0 ° . 

• DFNS 

04 

-13. 

OF NS 

95 

-16, 

OF NS 

°5 


DFNS 

07 

-r 7 , 

OFNS 

Op 


DENS 

00 

-co . 

DFNS 

4 c ^ 


PR NS 

! C 1 

- 12 , 

PENS 

0 

10 


D c N S 

.’0 3 

-16. 

PR NR 

* CA 


nr.NS 

* 0 5 


PFNS 

4 06 


pR NR 

, — . 7 


PRNR 

, a e 

-05 , 

P=NR 

• CO 

-1 0 . 

PE NR 

’ 19 

-14. 

O c NR 

’ 1 1 
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c 
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c 


c 


/ 

•-.5 215622020-0 9. £• 190 5532270-1 1 ,-.265792 
S30<HT<1033 30 C< T < 1 9 C 0 HFLI'JM 

• 3. >: 3 -> l** T f.4 10+0 1 « 1 6 4 5 ~ 5° 61 0-0 2 . 0 • 31 3 ^7'»> C 


,9. 12534S645D-J 7 * 
,1ft 3?27i?PO-CO, 


1 ~-»- 

.0. :?sio ift 7-»o-c5, -♦ ir6fi 7 P7cr»n-c t 5 -, c 

• -•12222: 7^40-0^. C . 1 V 7 45 26 620-1 2 « - 

1 0 0 v <H T <?b/‘ 3CC <T<3c: HCLIUM 

• O.fl >4 r > ■>! 260+C 1 434.9 = 57 1 ’C-: 2. «' 

«•:' + 63o-c i.2« 275 «: so 9 * 0 -: 4 . , - 
.5* 15992; -s 7H -0-0 5, 7 6 6 6 2* 5 1 40-0 9 , f 
1 102 3:'»1v5D-or', 26 1 2760 C3D-1 2 

data nn/ • . 


,£<.‘■7-’: -? a *o- " C • 9562 T l t-i7p-» 2 * 
. 7 J 1.1 '1-61 13-1 2,-.iftl7ift?l‘<P“?. t: * 
. =76 575 3 = 69- I 6 . 0 . “ i 45.9 3 1 5 CO-1 9 , 

. A 9 2 9 9. : 4-3 CO - ^ 6 , - • ! 4 5? t 54? <69 - C 6 , 

• 2 76 7 ! J 99-C ■*» 0 • 4 *“ 7 7 0 9 66 4 n~ 1 •_ ♦ 

.36 4761 ,?749 — l ’ ’ 294531 = 10-14 « 

.25126= 7 6iO- I 3, 2. 4^71 2 olO 90-1 o/ 


3 0 30 <H T < 2 5 0 * 8CC<r<19C 3 HF. IU« 

• 0*6 61 2 32 ?C40*0 1 25? 633 24 1O-0 2, C .l'’ =79 S21 43-: 5,- . 7369 61 51 93-09 . 


•C. 1 1 337 17650-1 2. 

• -* 5* 5 47 * 5* 20-0 ?. C. 14 0 9 3669 ?r\-C 4 , - . 1 1 385741 63-0 % 0 . 14 37054680-1 1 « 

• -.£'5064 = 37 72-1 6 . 

• 0 • 1 1 54 3 : 7 5 1 0-0 5 , I 9 8 0 5 09 6? D-C h. 3 . 1 6* 3*4 ’6 1 3 -1.1 « - . 67 6? 7 7 76 =0- 1 5 , 
.0.1-3796:4500-18, 

.-. ^45 2 3 1 ?C 1 C-l ,C» 0. 17 38700 190-1 2, -.15767=3 773-! 4,0.6549159039-! 9, 
. 10763 4 ?3 10-22/ 

I N 1 T I M_ I ZS OINSITY OP3ECT IONS 

iuo-: . : 9o 

P=N5=0. *03 

00 5^ 0 J= 1 . 4 
SCO C( J)tC. 03 

iFCNOTiftr) cn to i 

- DAV59=YMOAY( 500 ICO , 3 . C.Cr'C ) 

FOOPI =4 . : O0*PI 
LN1 t =OL 35 ( l 0 .0 DO ) 

1 N3 .3- — 1 

i x : =-1 
IX 1 =-1 
1 X 2 = - 1 

NOT 1ST=. TRUE. 

I HT 2 =HT i I . DO-3 
HT = NT ?1 . 0— 5 

IF< WT .I.r . 25.30C 1 GO to 10 

r>r >i>T y - : . doo 

• S£TU9N 
10 I 0 = C AT A“ 3 

day 5=oay; - 10 
I X-— DAYS ♦ 1 . 50C 


1F< IX .LT . 1 > IX 

= 1 



IF ( IX . GT .67 3 ) 

IX 

-6 7 3 


1 = 1 X 




ir{ IX .F9. I XI ) 

60 

TO 

20 

K=1 




ir( IX.F'i, l X2 > 

GO 

TO 

1 2 

( u . = 0 . r xo ) 

GO 

TO 

1 4 


J =1 
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tx-ix*i . 

*>=2 ‘ 
GO TO 1'. 

I A RA < 2 ) =R A { i ) 

HC( 2> = PC< I I 
TCI Z) sTC( 1 ) 

J=1 

1* IKC=I-I 
IXJsI 
!X£st+l 
IE CONTINUE 

C COMMUTE GLO^L MIGHTTIVT MINIMUM re mpfd atu?£ AT 1 c ^OU^S GMT 
C DAILY SCLAP -LUX VALUE J S FT IS FTP ONF DAY S A F- L I - 3 

TCI J) = ->79 . JOC* 3 . EAOC * AVFL X( IX+1 J + 1 « 3^0 *{ ^r L x ( j X ) — AVF L X ( fXMlJ 
C COMPUTE AS CF NS IT N ANT OFCL IV A T TON O" SUV AT \Z HOURS S VT 

FOAY- m*- 1 X - 1 " ' " " — ‘ 

CALL ePU-M ( FCAY * .F AL S E . ) 

DC( J) =FA35 IN (UVGlJV I 3 M 

RA( J)=TAT AN~ (IJVSUN ( Z > ,UVSUm< | > ) 

C C0MP(JT]= VAilAPLFS F03 !NT c POf)LATlNG VALUES. • - 
IF(K.EO.i) GO TO 19 
■ 1 X “ I X ♦ I 
J=2 
K = ! 

GO TO I > 

1<3 RA ( .!> = RM 2)-FA ( l ) 

0C( 3> =f>C ( «? ) -re III 
TC ( *,) =TC( £ I-TC ( 1 ) 

2 Z FOAY-OAYi - OFLO AT ( I H4- 1—1 ) 

pecs=oc (i > +nc( ?,> ?fda v 

f?AS = JA( ; ) ♦- PA ( 3 J * ro AY 
T?=TC(: I *T C ( 3) YFHA Y 

c CO'-* °UT *“ A, 7 H OU P. LA G IN GFpV A GN CT I C E^F-CTS WRT G e QM AGVF T I C I NOE X 
C GEOMAGNETIC INTFX IS 3 lFFP"KC (: 3 TO \7 HOURS GwT 
OAYLAG=TA Y S-: . 27 A 1 6 o 6 LAf £ 60 C 
10AY1 = P A Yl. AG *1 .on: 

^OAYI =OAYL AG-OFL nAT{ I CAY:- I ) 

SsTDAYl tnr-LOAT C.N3) 

1NT 1 =S 

INCI=IDAY1 *N3+ INTI +1 

IF( INDO.CO. IND1 ) GO TO 6C 

IF < IN 03 . _T . 0 ) FXP<o(2)sC:XO(<5 (INCS)I 


C 

C 


CXPX n ( l I = E XPKP ( 2 1 

EXD<T( ?_ J sDLXnl KP ( I NO I +1 I 1 

I Nr ? = I- NO! 

COMPUTE G=OMAG EFFECTS. IF ALT I TJPE IS LOX^O THAN ?CC XW use HYHPTO 
rnwYUtAS. G~*OMAG = T fvio. crpF ECT ION* *»OE NMAGsLOG OEVSITY CORPtCTIon 
fiC S -J» — O r LO A T (INTI) 

KP> sK n t ! NO i ) *S* ( KP ( I NCI ♦ t )- K n( I N^ ! I ) 

CXPK^ .tr l xr><r> ( 1 ) + S* { E X «'V P ( ? J — -X o * r» { II J 

I F ( NT .L T « 2 . 0 CO > CO TO JC 

GF E M A G- ' ^ • J O^ *■ K c* 7 4 - 7 « r. 30 f. * E X ° 3 
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i f,i 

PEns 

lo? 

pfns 

♦ C T 

PENS 

’ 04 

PENS 

IOC 

DENS 

: op 

PFN? 

: 07 

PFNS 

♦ op 

PENS 

« c, o 

PFNS 

r r p 

pc NS 

of i 

PF NS 

?r 2 

PENS 

P c 

PFNS 

^C4 

PFNS 

?C S 

PENS 

re a 

PENS 

re 7 

DFN? 

re s 

PF NS 

re 9 

PENS 

? 1C 

DENS 

r 1 1 

PFN C 

' i ?. 

Pf NS 

* l 3 

OF NS 

- 1 A 

PFNS 

2 1 5 

PENS 

* IF 

PENS 

r 1 7 

PFNS 

2 1 R 

P r NS 

-to 

PFMC 

r *^ i* 

PFNS 


PFNS 

~ 2? 

PFNS 

r ?? 




fi 
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3? CONTINUE 

C COMPUTE DIJVNAL VARIATION OT TEMPERATURE 
HRANGsPAS AT-OAS 

I P ( HR ANG.L T , 0 .DO JHRAN G=HR ANG +T WOP I 

phi=z/p 

PHI =DAPS I N ( OHI > 

THFTA=OA <OHI +OECS) * 0. 50C 
CT.A=0ARr. ( ph I -DECS ) * 0 . EDC 
T AH =WR A MG + BET A +P*0 S t N (up 4Nf,t GA » A ) 

CE=DCOS (£T A >**2.200 
ST=OSIN( THETA) «*2.20C 
STT=l .COC*RX*-ST 
T AU sDMO - ' ( T AU + T WDf'I »Tw 0° I ) 

1FCTAU. ST . P I) T AU= TAU-TW0P 1 

ct^ocos ( r auyc.eoo) 

C T - C T * 7 

C C^RFf TIUN’ -OR A GIVEN- HOUR AND GEPGC-APHIC LOCATION 
TL- <T 7* >T T ) * < l . C 03 + R X * ( C^-ST )/ FT T *0T ) 

TEF^TL+GEC^AG 
T E*>’A =T F vct4 

c MODt^iro J. ILIAN DAT C OF 2F* 2 C A IS JAN. 1, 1 S 5S 

T=D AY 1 -DAY 50 +0 JUL5 C - 2 AC CC 0 C • EDO 
PHASF-'sJ r — 3 6 2 C A *00) / 3 6 5. 2 A 2 2 ^ 0 

C CORRECTION TO LCG OF DENSITY DUE TO SO v l ANNUAL. VARIATIONS 
F 7 A = -2 • ‘T* 3 [)-j*hT 2 
JFIF7A.LT • — 2C.CPC1G0 TP 33 
E X P f~ 7. A- 0 2 X P ( P Z A ) 

Hj „* .J l =H ^T^lO-'llW 

F 7.= .<5.F 7 b 0-7 *< NT 2* Hi 321 ) +0 .2 £3 230C ) *»-* 7 A 

DF7DZ=-2. S6SC-3* F Z +5 *F.7f 0-7*2. I 3 ‘ m 331 »E X 3 - 7 A 

ovi-t'wOP? »^HA^t6.C ’’FDC 
OH= DMOD( PH .TV.0P I ) 

•sp= cc .f^o ♦ e. soc *ds in c pm) )** i : .soc 

T AU T — PH A > F +C *0 ° 0 a A DO * S° 

TT? =T wn ‘•I <f T AUT +4 . I 37 D 0 
TT2=DMOT( T T7.T WC1PI ) 

TTa'^^OP^I * T AUT + A .2 59 DO 
TU=DM'n( tja *T WO^I ) 

GT = C. 02 *3500 +0 . 381 70C *C 1 .DT + C. A A7 JO : «DSI NC TT2 > ) +DSI N t TT* ) 
•c SEMIANNUAL EFFECTS ON LOG DENSITY 
PPOC2 )=GT* OF ZDZ 
0ENS = DENS 4-FZ‘GT 

c SEASONAL LATITUDINAL VARIATIONS OF thF LOWER TH r 7 MO S °H E PE 
13 ipiht.at,! ,i|,ro) ro ro it 
HT<r C -HT !-dc, CDC 
HT9CS0=HTPC * *2 

exss-c.; ? i .me amt so so 

ire exs.lt . -? c . oc ) go to ao 

ss-c.c; - o:*dcxpcfxs) 

PH=Tk )PI *PHASc ♦ 1 .7200 
PH= OMOO ( PH , Tv.0° I ) 

PP=m> INC P*-» ) 

ph i a p s = o s I gn (l.o r>o (in (I 

D C M.AT- >S* PM S Pm l 

Df>n(n = >'.NLAT* u .3 no - o . c c 2 c o '* nr -m so > 

reproducibility .of the 
ORIGINAL PAGE IS POOR 

io- |5V 


OF NS 2 2A 


OENS 

725 

DFNS 

*» 2 A 

DFNS 

??7 

OEMS 

*> 2 P 

PENS 

*> J> Q 

DENS 

? 30 

OF NS 

? 3 1 

DENS 

? 3 2 

DENS 

0 2 3 

DENS 

??A 

DENS 

2 3F 

DENS 

S 3 S 

DENS 

737 

DENS 

-3* 

DENS 

??Q 

DENS 

O AO 

DENS 

DM 

TENS 

’A 2 

DENS 

2 A 3 

DENS 

r> a 4 

PENS 

''AS 

DENS 

''AS 

DENS 

*» A 7 

DF NS 

7 A « 

DFNS 

r> a n 

DENS 

7 so 

DENS 

27 1 

OF NS 

7^2 

OEN? 

7 S3 

DENS 

O iRA 

DENS 

7?S 

DENS 

•> ?6 

DENS 

*t7 

DENS 


PENS 

■>S3 

DENS 

Eft?’ 

OF NS 

1 

. OENS 

7 6? 

DENS 

7 f>3 

DFNS 

’6 A 

DFNS 

76S 

DFNS 

■»f .6 

TENS 

?F7 

DENS 

pfs 

OENS 

3(4 0 

DFNS 

-s 7 -j 

’ OENS 

p*M 

DFNS 

*'75 

orNS 

*>71 

orNS 

7 7 A 

OF. NS 

57S 

orNS 

**• 7S 

or ns 

^ 7 7 

DFNS 

77^ 

PENS 

*>7 0 
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OtNLAT-'>“ML AT*HT TJ) 

’ * 

PFNS 

5pn 


OFnS-PL MS +OEM. AT 


DFNS 

<5R 1 

42 

COKT ! NLJ- 

' 

DFNR 

5P J 

StASPNA L L \ T 1 T 1 i £ [ UAL VARIATION*^ OF MILIUM 


PFNS 

t ft ■* 


COLLECTIONS TQ LOG MFLIUM VHjMnpu fir ; -is [TY 

pens 

ft ft * 

• 

I F < NT « L. F * 5 * 0 CC ) GO TO GC 


OF NS 

~£ ft 


IF { HT ,0^ .c DO *ANO *NT .LT . R . C nc • AND. r--A35( nn I )* 1 _ T. ANGL AT > GO TO 50 

OCN5 

“ 8 6 


APGrPIi - 1 > h l * 0 . GDC* 05 1 CN( 1 . COC, OFCS) 


PF NS 

ft « -T 


SN=PSI n( ;3C, ) 


PENS 

ft P ft 


SN7 =S n* ^ 7 


PFNS 



DC C L° = r - C 5 / " n S IL 


OF NS 

ft c c 


HFLOG-C .55 O'O £ O A D S ( DE CL 13 )* ( SfP-S I N.1) 


PFNS 

ft o * 

CALC OL A T I HM i !<=■ LOG OF H C L l'JM NO^-OEP DENSITY 


PFNS 

'■•9 7 


STADT=C 

. 

PF NS 

*C j 


ORDCP=4 


PFNR 

?Oi 


IF(TFM.“,T.3.C02J GO TC 42 


DtNR 

ft qc 


I F ( HT . L z • 10 « 0 D C ) GO TO 4 5 

. ■ 

DF NS 

S cf 


ST APT =3 ? 


PF NS 

“3 9 T 


c.n to o \ 


PF NS 

r>c a 

4 2 

5T A ^T* 1 5 

• 

PFNS 

ft n q 


IF f HT *L5. 1 0 . CDC ) GO TO 45 


OFN c 

ft c ' 


ST ART =4 G 


DFNS 

■*0 1 


ODp r d = s 


PF NR 

■ari 

45 

K-f TAPT -on QEP 


PFNR 

■»C 7 


do r»r. j = i « 4 


DF. N c 



ksk * nnc r p 


PF NS 

5 

55 

C( J ) =P( <♦ 1 ) ♦TF V* ( t H<4-2)+Te i .'*(R(<+3)*T^.»»qrK + i) )) 

PFNS 

•5 ft A 


1 Ff 0JOF7.LT _,.5) GD T D .59 


’PFN5 

C- 7 


K= ST ART 

• 

PF MS 

■» P s 


<r 

tl 

-> 

u*. 

C 

Q 


PF NR 

■- c ^ 


<ak+oonr~ 

• 

n r N c 

? 1 *'• 


C< J>'=C( /> +TF«4*0(< ) 


PENS 

? 1 1 

5 9 

HFFNCT=C( 1 ) + NT 2 * ( C (2 ) ♦HT 2* ( C(^ ) -i) 

> ) 

PFNS 

*» 12 


PPO ( 5 ) = * ( j)*(2.CO0*C( 2 > ♦ 3 . C o > C ( i ) * H t 2 ) . 

NT? , 

PFNS 

1 1 T 


HFL OG=M 7 LOG< *-£ F*I CT 


PENS 

** 1 4 


He l ION- ( i : .c Li * V (HELP 0 ) - l C . ' DC < * < ml - *IC T 1 

) * * if Avrr, 

PFNS 

T t C 

50 

cni tinjc 

• 

PFNS 

“ « ft 

use 

N-W Fn^YNCMJAL C IT to JACCHIA‘5 DFNSITT 

TaFLFS 19^1 

PFNS 

^ 1 7 


RTAPT=C 


PF N S 

*» i a 


OPD C P = A 


PE NR 

^ 1 3 


IF (HT ,l I. Z .0 CO ) GD TO A5 


PF NS 

■*? ‘ 

■ 

I F ( TTV..T • 5 • C D 2 ) GO TO 6 2 


PrNS 

■* 2 l 


ST A 9T = 1 S 


DFNS 

■* 2 7 


IFprr .L =■ .5 .CCO > GO TO 65 


DENS 

^2 ? 


ST ART -i. ■* 


OF NS 

'’Ji. 


IF (HT ,t 7. 1 ,001 > GD TO 65 


PF NR 

■» ? 5 


ST A DT - 3 ; 


PFNS 

■»?s 


GO TO f , 


OF NS 

D ? 7 

62 

ST A PT=?7 


rrns 

■* 2 c 


IF ( mt .L _ . *=• .c DO ) GO TO c S 

• 

TFNS 

“2 3 


START - f . 


DFNS 



IF (HT .L". ! .on 1 GD To iA 


rrNs 

n ■* 1 


R7 A ">T EC ft 


pc 

■*” ? 


no!' c Wr c , 


PFNS 

ft 7 T 

Gf 

ksStmh -oonen 


TFNR 

■» 2 A 


oo ?: j = i . 4 


TFNS 

ft Tl = 


REPRODUCIBILITY OF THE 
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KnK+OPP- » 

JF (ORDER. LT.E) GO TD 8 ; - 

K=STAOT 

on 75 j= i . 4 

KsK+CROTP 

▼ 5 C(J)=C('l)»TEW4*A(0 

f*C rxr> f=C ( I UHTXC(2) + HH*(C( ‘')M<T?»r.(i) ) ) 

PP0(1 ) = Zl i ) + ( ? • c HD * C ( 2)+?..‘n:*C(4)«:HT?)*HT? 

C CO’-'^’JT-' DENSITY IN G '•*/ C v * * 7 LK^S DTRCC* HEL I U’* C T 1 ' *? F f T I ON 

£X r .!jyP=I : . cb:* v ( FYOT 4-C-IK5 ) 

C ADD HELIIJW n-JPFCT 1 ON AND CCNVFPT TO KG/M**? 

OEVST Y= I • ; n.3* ( r* SJ V j f h ;; L I U M ) 

C CCMPUTL r>Avr I AL OF DENSITY wPT FOHf"r>nin KTIGMT I'l Kr,/Mi *4 

POPIFLY; ' * ( = XSUMP4- { np 0( I > +i»PO( * ) +PPO ( 3) )+HF»IUV*30T( 5) ) 
C NORMAL I 7 c P - * MS I T Y PARTIAL °Y DIVIO IMG ?Y DENSITY 
PDImOO=t )PH/PEK*G 7 Y 
RETURN 
CYO 


DENS 
DENS 
DENS 
PFNS 
DFNS 
DENS 
PFNS 
OEMS 
DENS 
OF NR 
DENS 
DENS 
0FNS 
DF NR 
DENS 
DENS 
DENS 
PENS 
DENS 


REPRODUCIBILITY OF THF 
ORIGINAL PAGE IS POOR 


% 


33G 
h ?7 
*’3 3 
7 3° 
■* AO 
•» A 1 
14? 
“> A T 
HA A 
*> AS 
■> A A 
** 4 7 
TAR 
1 A Q 

■*S3 

’•St 

?s ? 

hs T 

■JK4 


o n t r « 



(j5yv7>c r ") 



CtfCrt /S 



REPRODUCIBILITY OF THE 
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SenSO,<JPb 
/? TZTUDXAJriC 

I/Zz/ITZGAJS or 

//or £.3 0/?^ 

\£sG6< ?‘2tWS to 

>0; /TcGTO/A. 

v/ncc/G DC^SlTf 


SlPc ChLGuL- 
TJCAJ or G 0 <] 

r M££toa\ 
/vu/>i.e<?/z 
YDesJSn Y 



use ajczoo 


v yaic/^z/u. r-zf 

'j T/i CCHJ/i f Z 

esjszry 
7 -/t/jo<zs 
/??/ 


vnrvre ozvStty 

aj $/n /cV/x aZJ? 

rss zz/cecr 

//ZG7 0/?G 
U'ZsZtrcTJ osJ 


7D(> /re^Zco\ 
? c/yz-c~mozJ 
<?/V7> oo/o i/avc T 
yo A" £ /m JrZ 3 




Co/KpoTc fwrripL 

or- DckSxty U’tf 

SP/icrorO 

tfczcjrtT t of 


— ■■■ 1 — 

A/oPoi'ierz c= 

D easier p/izriM 

/3 Y J>Zi/XdZAJt? 

#y brottXTY 
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NAME ' 

r 

DIFF 


' 

PURPOSE 

> 

TO CALCULATE T HE 0 I FP " R F NC F nrrv/FEN ANY TWO TI MF 
POINTS IN THE 20TH CENTURY 

CALL ! NO SEO JENCE 

CAL- DIFF< lY^Dl* IHMSi • 

! YMOE , IH‘*S 2, 1 DAY , [ SEC) 

SYMfvX 

TYPE 

DESCRIPTION 

- 

! YMD1 

l 

• INPUT - 

CATE IN FOPM YYMMOD 

I HMS 1 

I 

INPJT - 

T 1 V E ON lYMOi 

IN = 0°M HHMvtSS 

|YMr>2 

I 

input - 

SECOND D A T F IN 

FORM YYM^OO 

I HMS .2 

r 

I N PJ T - 

TJMf^CN IYVO? 

IN - OR M MHMMSS 

lOAYD 

T 

OUTPUT 

- ft APSFO r ULL OAY DIF—^ENC' 7 

10 AY IS NEGATIVE I c IYYOO.hms? I S THE 
EARLIER TI-af 




I SEC HAS The 

SAVE SIGN CONVENTION AS IDAY 

SUOPOJT I \|<~C 

isrc 

JSED 

I 

NONE 
OU TOUT 

- REMAINDER OF 

0 I"F EDTSi" - IN SECONDS 

COMMON OLOC^S 

mijnT 

• 



JN^UT r-ILF.S NONE 

CUT PUT FILES Un*S 


C 


c 


c 


suf- rou t in-: d irr ( iy>o i id a y , i sec ) 

CO*-* VCN/ -lONTHS/MONTHl 1 7, ? ) 

I r.i i nc i y ) = m i nl ( mhuC i y t * ) » i ) 4 - i 
CHECK FOR A OJ c FCRFNCE D F LESS THAN ONE OAY 
ISFC-0 


IF C IYMf>: . IYMO£> GOTO 4CSE 

separate iY 'n; and iymd? i jto thphe word each 


t y i -i yno: / 1 :: o c 
to: =[ymti - iv i* iccoc 
t m i = i o i / : : t 
10 ; = icn -imi * ior 
IY.- =1 / x c cc p 

tr»' = i ym"* j -iyc*icc3C 
I m«“ -in^/ ; ' o 
lo:- = io: - i M?*ic r 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


C.OM^OTf T H c AOf.cp oay S INC" JAN 
1.1 = IStl *f ! V l ) 

t Vf- AT t s <• * ( I Yl-1 ) / rC*M n N T H{ t 1 ,1 I ) ♦ J nj 


o: - i^i < i y n 


i y 1 a-"' > , - ;->s* t i v j- n / i :c ^ < i ^ ? »i .z > m o : 


DIFF 

3* 

niF c 

07 

D f F F 

? A 

DtFF 

.To 

DIFF 

AC 

DIFF 

A! 

OTFF 

A? 

niFF 

at 

DIFF 

A A 

DIFF 

A S 

. DTFF 

A A 

DIFF 

47 

DIFF 

ftP 

DI = F 

6 Q 

DIFF 

F T 

DTFF 

M 

D I F - 

F ? 

D 1 F F 

C 1 

DIFF 

S4 

DIFF 

C. k; 


* 


- \<rl 



DIFF 

Page 2 of 2 
October 1972 


C CONVERT ELAPSED CAYS I N'T 0 ELAP r 'FO SECONDS 
J$E c=< IT' AR2-I YE AR I J * ?64CC 
C CALCULATE CLARSEC SECONDS INTO F. AC H DAY 
4 CSC I C* =■! HMS 1-40 * ( lH;r, 1 / :c } 1- ? O •'* < CO CD I 

1ST I»‘ V S E-4C * < IHMS 2/'. C D ) -2 AC C * < 1 mm S 2 /\ C C T 0 ) 
C SUBTRACT TH“ TWO FLAPS CD SECONDS VALUES 
ISFC= !S V C* ISF.C2-ISFCI 
C COMPlJTr IDAV 

XDAY=IS"C/S64CC 
C COMPUTE ISFC 

ISA C-tSCC“ ICAYWC6AO0 

RETURN - 

FND * - • * 


niFF 56 

dtff 57 

DIFT S3 
DTFF 5R 
OTFF 6? 
DI rp 61 
OIF F 6?- 
OIFF FT 
DIFF 64 

DIFF 65 

DI^F 66 
DIFF 67 
DIFF 68 


$ .0 - 1 (pO-- 
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AAME 

Dl NR AD 



PURPOSE 

TO CONVERT ANGLES EXPRESSED IN fio c 
TIMS MEASURF M C NT S TO R AO I A N c 

M- A SURE m c NT S 

CAUL I NT, SEQUENCE 

CAL- D 1 NPAO(P AD. IH, IM« 5. K ) 


-SYVpQL Tynfr 

DESCR I PT ION 


RAO DP 

OUTPUT 

- CONVERTED ANGLES IN RADIANS 

I H I 

INPJT - 

signed degrees or hours 


1M I 

INPUT - 

UNSIGNED MINUSES OF ARC OR 

TI ME 

S 7P 

I N PJ T - 

UNSIGNED SECONDS OF ARC OR 

TI ME 

K I 

INPUT - 

SWITCH FOP TYP- 0= INPUT 

<C = 1 INPJT IS IN ARC MEASUREMENT 

K=2 INPUT. IS IN TIME ME A SURE M; NT 

SUBROUTINES USED 

NONE 



common Punc<s 

NONE 


* 

input piles - 

NONE 

. 


CUTPUT- FILES 

NONE 




SUE ROUT I M“. OINPACt RAD . t H, TM. 5, K ) 

DOUBLE RPECISION RAO*S 

RAO=IDF_0AT ( |H*3*5C * I ) +S 1* .4PCS1 56*1 1CP53FOO-5 

IF(K,F.0.?|SA0=5A0*15.C< 

RE T URN 
END 


O.IN» 31 

0 I NR 34 
D I NP 35 

0 1 NR 36 
DINP 37 

♦OTNR 3 a 


original p age ^ 


£;0 ~ (u3 
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y 

'■ ' DNVERT 

DESCRIPTION 

DNVERT is a subroutine to perform the double precision 
inversion of a given input matrix using the Gauss-Jordan 
Method of Condensation with partial pivoting. The input 
matrix is destroyed. 

It should be noted that this routine was written 
specifically for GEODYN. Because of the type of matrices 
it is required to process, pivotal element testing is not 
incorporated. 
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KA«E. 


DNVE R T 


PURPOSE 


TO INVERT A *'AT5 IX tj^IMG GAUS^-J^R^AN “"THO 1 ) 
CONDENSATION WITH PARTIAL (COLUMN) PIVOTING 


CALLING SCO Ir.NCP 


C ALL QNVCPTIN, AXMX.NT.HR) 


PYVPOL Ty o E 


DESCR I PT ION 


N I INPUT - NU’^nct OF OR COLUMNS OP T *-»" MATRIX 

AXMX WHICH ARE ACTUAL.Y UTILIZED IN THf 
CALLING oo OCR A v 


AXMX 
( NT « NT ) 

DP 

INPUT - 
OUTPUT 

MATO IX T 
- INVERSE 

NT 

l 

INPUT - 

r> Im e'NS ID 

t he cal_ 

NR 

CN> 

I 

INPUT - 

TFMPCr* A'S 
THE If.* 01 
THE D l Mr 

PROGRAM 

EQUAL TD 

SUPROUT INFS 

US FD 

NONE 



M RF INVERTED 
O 13 THE ' IN°llT MATP1 X “A XMX 

N OF THE MATRIX AXMX AS DEFINED BY 

IN*' - , PROGRAM 

Y STORAGE USED PY PROGRAM TT STORF. 
rrs O- THE PIVpTAL columns 
NS ION CF THE ARRAY IN THE CALLING 
EQUIVALENT TO \R MUST «E AT LEAST 
N 


COMMON BLOCKS 

NONE 

INPUT F ILES 

NONE 

OUTPUT FILES 

NONE 


SUOPO'JT IMF ONVFPT( N. AXMX . N T . NR I DNVE 

DOUBLE “‘DECISION axvx <NT,MT I ,C *P ONVF 

0 1 MENS I ON NR (N ) DNVF 

C SEARCH THF LTH ROW STA°T I NO WITH THE DIAGONAL ELEMENT AND WORKING ONVF 

r WIGHT SAVE r M e INDEX NU«BEP C F THE JTH COLUMN CONTAINING LARGEST ONV c 

C MIMOF.R in A ISOLUTE MAGNITUDE DNV^ 

00 255 L= 1 « N ONVF 

P=C.COC ' ONVF 

00 272 J~L.N ‘ DNVE 

IF( .NOT. P.LT .0 A«S( AXM XtL . J) > > C.O TO 272 ONVF 

P=r A»S( U'< X(L# J 1 ) ONVF 

NR ( L J = J ONVF 

27? COr.TlNU • ONVF 

C INTCPCHANGF _TH AND JTH COLUMNS TD PLACE PIVOTAL ELEMENT ON MAIN ONVF 

C DIAGONAL ONVF 

JsNJ(Ll OMVr 

DO ri <-i.n r nvf 

C = AXVX{K,J) . OfJVF 

AX MX ( K, j | - AX Vx ( K ) ONV^' 


^ 1 
?R 
7 Q 
A 0 
A \ 
A? 
A 7 
4 A 
4 f. 
4f, 
4 ■> 
4 Q 

4 n 

e. f. 

5 » 
c ■> 
4 1 

54 


s.o-ies 
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Z?-K AX^X(K,L)-C 

C SAVE 1NV£C OF p |VCTAL ELTMENT 1 . / AXf-’X ( L « L ) 

C=1 .C OC / AX W X (L »L ) 

C SET DIAC,W. “L5 W CNT AXMX(L*L) “ l« 

A X M X ( L . L 1 = 1 • C 00 

C v ULTI p LY L T r< Vurf 3Y INVERSE OF PIVOTAL rL£Mr_M T 
DO ?3 ? J = 1 • N 

2P2 AX*'X(L« M =C*AXMX (L, J ) 

C MULTIPLY K T H HY VALUE IN DIAGONAL POSITION 

C SUBTRACT l N*G CONSECUTIVE R CW VALUES 

on 5^*> <s 1 • N 

IF CL.EO.K) GC TO 2 35 ' 

C-A XMK( < * L I 
AX v x < K 1 1. > = C. CDO 
on jm.n 

2 fl 4 A X X ( K t M = AXVX (K ,J )-C*AXMX(L»J l 
C INVERSE CAN NOW “C FOJND BY ADJUSTING FOR PREVIOUS 
;>£? COf.TINU^ 

Dn im«N 

L ~t!+l -I 
K-NR(L) 

DO £39 J = 1 . N 
C = AXMX(L . .1 ) 

A<A*X(L* I ) = AXPX (K.J 1 
?S<? Ax vx < K » .1 ) - C 
RETURN 
C».;p 


COLUMN 0 0 F 3 AT T PNS 


PNVF 

*^6 

DMVF 

f 7 

nsvc 

F ^ 

PNVF 

5 O 

DMV- 
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DODELM 


DESCRIPTION 

DODELM is a subroutine specifically designed to 
read orbital element data from the DODS Data Base. 

DODELM can read both Cartesian elements and Kepler 
elements . . * 

DODELM may be requested to read an element set 
number from observation data near the epoch time. When 
such data is used, it must be read from the DODS Data 
Base by subroutine DATBSE. 

• If the element set number 'of the desired elements 
is known, this number may be input to DODELM. 

DODELM may determine elements either by element 
set number or by time. If no element set is found 
using .the former procedure, DODELM will switch to the 
latter procedure attempting to find an element set at, 
or before the input epoch time if possible, and later 
than the epoch time only when all else fails. 

If no element set can be found, or if errors in 
the data are encountered, DODELM will print an error 
message and terminate the GEODYN run by calling ERROR. 
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DODELM 


. 

PURPOSE 

TO READ 

DROITAL ClFMCNTS FROM OOPS DATA 3 A S r 

CALLING SEQUENCE 

call DOCCLMUFLM, 

, ISATIO.DA YFPC) 

SYMOOL type 

OESCP I p TtCN 


I ELM I 

INPJT t 

OUTPUT - 

ELE MK NT S^T- NUMBER 

I SAT ID l 

INPUT - 

S AT ELL IT F ID 

DAYF °C T° 

INPUT F» 

OUT OUT - 

E ra OCH timf. in days rp ni JAN C 
r)C THE REFERENCE. YEAR 

SUBROUTINES .IS ED 

clear 

YMDAY 

DAT BSE 
TO I c 

OATFS PJUL ERROR 

CO WON ^LOC<S 

CT IMF 

c f.lem 

OONSTS DODDAT InTTSK 

INPUT f ILES 

DO.DI S< 

- DODS DATA BASE ELEMENT FILE NOMP c R 

OUTPUT FILES 

CUTP - 

PR 1NTFP 


RFFEPET CE S 

DOCS DATA BASE r 
•GSFC ODDS nnctjY 

L F M E N T FILE P^ SCR1 RTION 

fntat ion* 


• GFDDYN 
VOLUME 

SYSTEMS OE SC.p 1 PT I ON* - SECTION 2.11*1 
I - GCOCYN DOCUMENTATION 


c 


SUBROUTINE DCDELMC 1FU.M* TS AT I o* DAYEOC 1 

DAYC n C.DJU_»PUT,rRF c . M J FPFM* Y*-«OAY , P >- AP . VJO * n, J p - p * 
1 ” FLf-wsr « nR?5L A ,0U- I HATA« , XMU . rC .r°S“C . 


LOGICAL*! NOT 1ST .0 :OEL’< ^ 

INTfcfiF.r IS AT ID. SAT NO, p*T CORD ( ^D) , ODD | S< , mi T = . 5 C C SAT . FLR ; C ( UJ 

1 MPEC. JEO{ 21 

| NT rr.EF * ? LRfcC»RCC?( 1 7 e ; 0 1 * Ap • IG2 

C QV MON/ C T I ME/OAT A- ® ♦ D AYPEF( 21) 

COvMnN/'-.rTLEM/ELEvST { 1 2) .TP'^tM 1 ? ) » XNlJ » ” 0 ♦ R v S 


C0- v vr-N/C ONST S/ ru V2 (a ) ,pP AD. D»JM 3 ( 2 1 


cni-‘ mon/ o inr at/ ou >-*4 (21 1 * I G2( n i 
Ot *'ENS I 7N mqc C { 1 72 . s 1 


Cnf'VOS/ I 'I l T DK/ I E°T MO . IE 
COUI V AL- 'ICE (El. RFC! 11 *3 
. (irpc. RECC.ROt 1 >. 

data cj^-" p .dll. hut / 2 a 2 > 

DATA NOT 1 S T / .F AL ?£ • / 

OA1 A CUT 0 OC I SK ♦ J /o . A, 
IF ( H L*-. „T . „ ) CO TC *♦ •: - 
r > I F f '■('? T 1 S T > r .O TC 1 C ; 

NOT 1 ST - . T p UC . 

UAH'-nM ACCESS F ILF 


OHM , £ '"'S EC » DUM l { S3) 

PDF 1 . A ( 1 ) ) . ( J’^I 11 .O) » ('(PAPT .NP® T) 1 

PEC ?C 1 1 » 

c 0 R . s DO « 1 . CD . 3 *•» -+D 2 / 


- I / 
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DEFINE r l L F - (4*2* 352:»L. ICNT V 
,1 CNT = 1 

C READ OI^ECTDC'Y RFCUPC 

RE A!)< op i J 3K * I C N T » E f' 7 = 1CCC ) D CCO D (? 

RFC D AR= 7~ C 2 ( 2 ) 

c SEARCH p^R satellite 
i:-: oo 17 i=?,lrfc 

I r ( R=" CO L 'D (f).GE*C) GO T 0 1? 
tSAT=-P?r 1PO( I ) 
ir< IS AT .EO . I SAT l 0) GO T C 15 
1C CONTI nij- 

00 to r?:o - 

15 NOP5-RFC'lRD< M- i ) -i 

| F ( NO 9 C • L F * 0 ) GO TO 101C 
REC5AT= ( K imS-l ) / 5+ 1 

Norn=NmG -no as /p *5 
lNrOH =5 

NOP AF T= f or- C S AT -1 )/RPCP\F + t 

1 W CPO = I *■ * 

C CCNV = P T EPOCH T n D.JDS SV'STM 
M jr pc H=E J i IL ( HAY F PC ) - D JPf F 
Ntf CPD = I v 17 0 fNO P APT - 1 

NOP*7.C = P-C 5 AT-WPCSAT/P ECPAQvOECPAP 
IF ( NrPF.C - c o. C ) NrRFC=RP CPAP 
IF ( I CL M • GT ♦ 0 ) GO TO 2 C C 
C STARCH F.)P -> A P T 1 T I ON CONTAINING F°OCH T I^E 
15 DO ?0 J - I WORD* NWDP D 
JtfORD2= ? v J-l 
VJC =OEC 3 ( J WQPD2) 

IF C ^JFO: h. LT • ( OJ O 1 • DO > GO - TO 2 S 
2C CCNTINJT 
GO TO 2 ; 3 

C EPOCH T f me PARTITION 0 FT C R M INFO 
2G piPT = wAK " ( J-I »;OKD *1 ) 

JWORP2 = 3 * ( IWCRP+IPART-1 ) 

28 NO n =0 

ICCUNT = -i= C ?( JW 0RC2 1 
NR r C— 1 C R J NT + KF. CP AR - 1 


C 


c 


LAf<FL = l 

1 F ( IP AC T • NE * NP ART ) GO TO 3C 
NPFC= ICOJNT+NDPFC- l 

if ( ndrf r»ro» u i noo3 = nhor 
READ PHYSICAL CQRO 
3C ICNT-IC Vi NT 

PE AD ( nO T l S < * ICNT .ERR = 1 ? 2~ ) HRr C 

4 0 Kor*=NCB*-i 


ir < nc-r.gt . iNConi go to 50 
JED ( 1 I =■*"■' C C< 2. NOP) 
je r> < ? > = 'P c ci o«No n > 

MJP=MJC« l .CD-2 

CH c CK f CR ELEMENT set at ftoch 

1 *“< vjr.R'' CO .Mjn ) GO T*» GO 
ir( »j7 r r <. ot .MJP) G:> T^ 4 2 
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5C ICr<JNT= !CPUNT+ 1 

*ir ( icnuMr . r,r .nrtc) go to SZ3 

LAPEL=P 

ICfT-lC'J JNT 

C READ N r W PHYSICAL FOCORD 

nCAO(OC;T I SK' ICNT ,EPR= 1*T2C ) vr? RC 
NOP «C 

ir < I n A a T • *ZQ • NP A D T« AND • 1 COUNT *- O* NRp C ) t N DO H;N3 03 
W TH , * 

C ELEMENTS Hiv: FOJND 

6C 00 61 I "I . 1 2 

61 cLPEC ( T 1 r MRECC I +4, N3P ) .- 

!ELM=MO“C { 1 * NO -3 ) 

JE O ( 1 1=M«F.C( 2t NCP) 

JECC 2)- * to 5 C( 7« NR p> - 

jr^Mjr * ’ .co-2 

1 T Y P£ - ? -£ C (4 ) 

GO n (v-. 7 5), 1TY3F 
GO TO 1C3C 

C CARTESIAN F.-MVNTS LOADED INTO COMMON 
65 DO 7 '- 1=1*3 

RLE W ST < t ) =OPP£t.A( I ) * PUL 
?C ELC V ?T< IO)-n^E c L^< I + 3) * PUL 'DJ T 
GO TO PS 

C KRPLRP1 AN E.CM^NTS L OA OF O INTO COMMON 
7 5 ELF’M«! T ( : >«OA*»SLA (1 > *OUL 
^EfE’MST'F KORPEL A (2 ) 

on p c i - ‘ « 6 

SC fcLF‘-*5T( I) =OCPRLA (I )/DPAO 
. CALL CL ; AP (MCECf 1 1 ) 

ir < wjpp:h . r c .M JO 1 PPTU.TN 
C RESET r ROCH 

C AY RPC = MJD ♦ Y M D4Y (57C 9 1?*C < C. OS ) 

OAYPPCs* A Y P«C*TO IF ( A * 3. DAYCPC) /P .£ a E4 
DAI AEPsOAYE n C 

CALL OAT^s tc AYS“C. IEPYWD, IHM ,SEC I 

1FPHV=I <M 

EP5.CC=5*C 
RETURN 

9C I C r UNT.= I C OUNT- 1 

Nor- = i 

I PART = I -‘APT-1 
|F< I PACT ,LT. 1) GO TO 6C 
C PA C * UR ONF n ARTJTlOM 

J , XfRD2 = ' > * ( IWCRD+ IR ART ) 

I COUNT -1-C2 ( J* OR 02 ) +RECPAR - \ 

GO TO 2 ■ 5 

C SEARCH n Y F_t'-«ENT SET NJMGrP 
20 C DO 2 5 C J - I w O - 0 . N 'O P 0 

jwr»o? = ? * j 

ICfUNT = ; - C J-»nR02 ) - 1 
NPi c= tr •". J N’T * r - CO at 

ir ( J.Er . *! O'D) N EC = I CHJNT4-NAT-C 
PIT IC^'jrfTr I C^u iU l 

jpt icrtHi ,r.T ,n"fo go ro 2 s? 

LAS.t L=~ 
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ICNT-tdUNT 

c PC AP NC W PHYSICAL F'PC3RD 

pr tO(OH>I “<* ICflT »E>^ = 1 3 ?.0 ) *-lD?C 

inf itcu '4 r « ro.NPEC* amo.j.co.n wn D o i i no on- n. . 

OO 24 0 . 1 NOPB 

[F( WFC.l 1 .NO 0 ! *CO. !-UM) C, 0 TO 60 
240 CONTI NU~ 

2SC CON T I NJ S 

C NO E LC >^r NT S 4 V I AL A 9L E *ITh THIS NJMOTR 
WRI Tr (PJ rn *2250 ) l EL M 


C 


1FLM=C 
GO TO 1 3 

3CC JWTPD2= > «N’VOPO 

ICGUNT= P“C ?A J.vnsr? > 4-N C2FC- l 
TAKE LATCST CLC^rNT SET 
LA^-L='- 
Knr=NOOT 
GO TO ? I 0 
?CO NO* -5 
31 C JOTsICT.nT 
PFAD LAST PHYSICAL WFCPRD 
FINO CLEMEN 1 ' SET NU Mf !F? FP0 W DATA 

PC AO COT ■)! SK« ICNT «£CR- l - c 0 > M*?EC 


4Cr 


GO t O t '> 

MJF. °CH="iAY £PC 4- 1 * *D 2 

"OCT EL M- . F ALS E s 

r * i i~ ” n a r r> e c t tu . n C ; '* J p D r U ? t S A T 1 n n '** ^ ~ * 4 

CALL DAT OSC ( IN t C AT F 3 C *MJFPCH • I SA T 10* 0 30- L ^ 


) 


1FI.V=1G :( 1 > 


DPDF ? 
DCOF 'C 1 ’ 
DOnf 3 7C 
POO? 4 7 l 
DOPE ! 7? 
OOOF " 7 3 
POOF 4 7A 

proe 4 7 f 

OOP” 4 7 6 
OOP? 1 77 

dpof 4 7 a 

DOPE 4 . 70 
POOE 3 FO 
OPOE 1 ?1 

poor if 2 

POOF 4 S? 

OPPF 1 °A 

pn^F i o 5 
pcor 4 a f 
poop 1 F 7 
PPOE 4 F P 

poor 4 f ? 
pro- 'so 
pnpe-* 4 Q 1 
OOP? * 92 
or-or 4 9 ? 
OP.de 4 oa 
nnr>?. 4 °p 
ppop 4 9 F 
pnpp 4 Q 7 
nror 4 9 « 


GO TOO 

50 C JwP.9n2= J >t Q902 + 2 

I F ( JPA*'" . r 0 . NP AR T) GO TO 1C10 
C T c Y MFKT PA'Jf I T ICN 
loi.r^rsi^A^T+i 


Pf)f\p • G o 

pnp c ' c* 
nmr -ri 
poop 5 r? 
poof ' c n 


1 CIO 

1 02 C 

l C3' 
l j 3“ 


t SAT lO 

I SAT IP. 1 COUNT 

1 SAT IP. [COUNT 
RECORD. **R r -C 


GP TO 2 ' 

p ppJNT fPPPO MESSAGFS 
t5C? WRITS (P U 3 * ?C0C ) 

GO TO 1 ' 3 5 
WRI TF.(n ITR.2CIC > 

GO TO 1*35 
*91 TCCO It o, acpc ) 

GO TO \ "• to 
W R t TF CO 1 T O , 2 ~ 3C ) 
tfOITECO irr»,2C4C > 

TAKE FA ROC "KIT 

CAt L E4 4 TP (7 , O AYpP Cl 
ST 09 

7CCC FHrMAT { \ HI « ?CXi ' UMA3LP TO PC AO 
• ? ! X« ' CODE I S ‘ » IF/ 1 1 X* 

^ 1 ~ * P OL *4 AT (V-II*3CX« , '*0 SLCMfNT S r T 
j •‘•.A^’^LIT 4-1 'N-''l c 

ro.. , nri'M < ,?;x,*ni'' cat a 
- * c ll “ 

z ’ 21 X. 4 NON A vc r,f QIT I IN 

^.‘"ro^UC . h: ,2*: < , • f'M'S rLf^NT U’ 


.JSSW-W 


L AHFL 


, I TYP-.LA 1 EL 


r,nns T4 3A C - f'L' y ”NT PIR'CTTRY ’/ 

tMPtjAV.- :x:CIITrM TCVM I-vlAT ‘‘O • I 

j r 'n r S OAT A n A r - : * rO r5 */2iKt 

c X ” CUT ! 0“ I T * - V I A 1 E c « > 

C r \ i j, iy 1 2 . j . f s :Y I \i -" ” M - N' T •» 

jc/'i (,• HT A r>- r '*>0 NllM'ico Ic*,[A/ 
ri A Tr c * /? : * ♦ *'L L -',!?) 

- c rwf «• c * 'J •-'!•* ^ t i ' • T = R Z o 'T-T • 1 » 


POOF 7 2 a 

opor '0? 

POOF ' OF 
prpr r C7 
PP^E ?CF 
ppr-F ^C Q 
DOPE tic 
onnF r i i 
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nror ciF. 
PPOE 

PPOF T 1 7 

poor 

p nn r * i c 
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2 

2 2FC 


•SAT ^LL ITF» . X , • FLFM^wr T YPF TNCOP^FCTlY SPFCTPIFD IN *, 

• pp<" TPf}** I9/21X.* TY°F r I^P I S • * I 9 / > I X , • NON A v E F X FCUT I DN • * 

• TFPVI NATEP* /2 1 X « ♦LARfTL * I 7 ) 

P QG MAT ( ; H 1 / ( 1 C x , 75.1 X , 7 p t 2 X . « l X , z ? . 4 X » 7 X , 7r» , 2 X . 7.°. . I X , 7 S ) 1 

FOFVATI i-O.ZCX ,*USA?LF TD FIN5 ELH-TMT «3F t • , I • /21 X. • IN ^ 05 S DATA* 
l • CLfMF.NT r I L £ » / 2 1 X * • P :* O Cp a M SF.APCMINC r 0« C Lr. v F NT SfT * ♦ 

z *C np<2 SPONDI NG TO POCH'//) 


END 


OOTF 

DODF 

nnoe; 

popf 

.DOOF 

moF 

onnr 

dopf 


REPROOF! CIBIL1T Y OF THE 
SlU PAGE IS POOR 


R . n - 1 7 s 


•5 2 A 

r-?s 
? ? 6 
5 27 
" 2 p 
o 2 fi 

? j (\ 
?.? 1 


DODELM 
Page 7 of 14 
October 1972 


ENTRY 




Yes 


DEFINE 
fcANt>C>M 
Access pile 


READ 

element file 
directory 
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r, > 

GO 

V J 


8 fU 1 78 
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RtKV U/SVT 

fWSiCAL fttCofcS) 1 

! 

IM IT 10 t4 
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• PRINT 
REAP ERROR 
MESSAGE 


USE ELEMENT 
Set dumber 

OU PATA 



LOCATE 

NEXT 

PARTITION 



PRINT 

NO ELEMENTS 
MESSAGE 




go -1 % 0 


i n 
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name 

purpose ..... 

CALLING StOULNC: 
SWECu IYPL 
NSTAkU I 


CODSRD 

TO READ O-J SEW VAT JON DATA IN OODS FORMAT AND 
I- APT I ALLY PRSPRUCESS THE OilSl'kVAT l ONS 

CALL COOSR D(NSTAfiD) 

DESCRIPTION 

INPUT - NUMBER OP STATIONS THAT Wi«£ READ FROM 
CARDS 


subroutines used 

AND 2 

CLEAR 

CARCTN 

C AT13SE 

equatr 


TDIF 

YMDAY 

f^UMEiKH 

RANDWR 

BIAS 


NUM9R2 





CCMMCK .ELuCKS 

;param 

CG ECS 

CONST 5 

CPA RAM 

CT IMS 


CODDAT 

C EPF EM 

1NT tiLK 

PREOLK 

S 1 GrfL K 


ETANLM 

TPEBLK 




INPUT FILES 

1NTP - 

INPUT CARDS 




OUTPUT FJLciS 

hcWTAP 

- OUTPUT CATA 

TAPE NUMbER 



PRINTER 






SUERUUTINE cucsrc ( nst ARD > • 

IMPLICIT KlAL*£ (A-H.O-2) 

LOGICAL* 1 PPL F FO • VhFCHNf NEW TP • LST AN F , □ L * NO T 1 ST .ONEUB.QKSAT , NAMEZ7 

LOGICAL NJhATE 

COUbL t PRLCISiCN NAME.JNAKE 

REAL kf- I NDX * S1GCHG. SIGSTD, S2R »TCOR »S!G1 > S I G? , OOP EC ♦ TO IF .SORT 
JNTc.CLH*.<2 M T Y t- fc , N'-IE AS . PR CTYP. CHANEL , INC JMr . 1 PRIPR . I MT YP£ , I SIND, 

• CMNMSK .OJl T S.Io.lT.TTAG«PFITl.P'm2iI T Yf'L • 0? IT *IGi i 102. 

• .T^EUoK ,CCLL . IB l T , l ST ARO , EST AND. I ST ANU .STANDS. I SAT 

Integer anl2.am3Ig.sa tno ♦ ezcno . l fle ts 

D I Mfc N S I <-1 N T IME (H ) iSTNAH( I 4 ) * G t : S t 1 '* I . O l> ■? :i C t 2 5 I . X ( 3 > t 0 9 I T S t^I A J . 

« IT YPL< 1 o ) . F EHDt-K ( A > ,C ELC: TF < 7 ) ,LS T AN-’-M 1 > . CNEOt) < 7 ) . U I T ( I & ) 

CO P* MO N/AP ARAM/ INPAW , I NP AR I , NE I AS * NS 1ST A ( 7 ) 

CCMMUN/CGL Ji/ ISAT I D * ISAT 2t I FktPk ( 4 , 50 I . kF I NOX ( 2 . *5 0 ) . I NC P RE ( 2 . 5 0 ) . 

• NPk£, NS I G. NCULL .5 1GCHG( SC) . I M T Y P £ ( SO) . I 3TN0( SO ) »CULL( 2,1001 
COMWCN/CONS TS/ CP I . C T *. 0° I .DRAC.S2R* I £ 2 R 
CCKXOK/CFAKAM/F5T A ♦NMAST { 1 G ) 

COMMuN/CT l.M£/C ATAKP.OAYHEF* OETART,DAYSTP . INTOAYC 1 5) 

CUMMUN/OUuOAT / T I M£ 1 . STNA M 1 , CC*D 1 . DG t ?> , OUSCOR . SAT NO f IQFiNQi , 

• I«T(o) t TCOR , IG2 I 2 > . I T , IG 1 .TTAG.PfrIT 1 ,i*QIT2.!G 
CCPMUN/CLPridM/ JNAMEI 331 1 . I STAFCl 3S l ) .ESTANOC 3fi 1 ) , ISTANOF 3BC ) 
CCMFGN/1 NtbLN / INTfG I ( 53 ) , NO PAT f . I NT EG? ( "’•J ) 

COMKUN/PAEoLK/CAY ♦ liUSl . OHS? * 5 I G( 2 ) « £ROO.< . 1 S T A , M T YPC . Nf£ A S * 

• 1 S AT ,PW£TYF ♦CHAf.EL . VHFCHN , PPCPRO .RSCNJ 
CCPFuK/^I G:i L A / ' 1C STL ( 60 > . 1 N . I 0 1 A P E ( 2 > 

CCPMuN/ST ANCM/NAmL <?f»0 )♦ STAKES ( 2F.0 ) .N057UR 
C C V MO S/ r P CJ IK / 1 N r P ( 7 ) , I ND , 1 SC F! A ( A » 
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UOU l v ALcNCc ( S 101 « Slot 1 1 ) ♦ C S1G2, SIC. (2 ) ) . (FEtCDllM 1 ) .U5(? ) » . 

• (L5TANM 1 > ,STNAK1 ) * (Citizen ) . T IMS l ) 

DAT* CHNV.SK/Z7/. I0IT/Z1 , Z2 , 2' • 23* 21 0 . 220 * 240 « Z30 . / 1 00 , 22 00.2*00. 

• • Z^OUf l l 0 0 0 ♦ 220 0 C . 740 00. ZCCO 0/ *OUl/l • 00 4 7/ .DUT / 3# ?/ • 

« KTPL3T/&/ , i 1NLST/CH /, CAYLS T/0#000/. IK/I) / *N- . v/TAP/:4/ . 

• IT YP"/ 2. 5. 1 2* v , 14 , i. *? *0. 3t7 V0.6 . 13/.OL/1 M /.0:€lM/.l * 

« 3* .TfJUu. ♦ 3 4 .FALSE./. VLIGFT/2.S47925D3/ 

NUMcL R = 0 

NOT ALSc* 

ISAT^l 
C INITIALIZE 

NCWATt=*TWJc* 

IFCISr.Lc.O)' IN =2 I 
CALL CLLAKt iIcCETE • 7 . 1 1 
C READ DELETE CARD 

I P ( MOC( I NO. 2 ) » eO. 1 > READ < 5 ♦ 2 C 0 0 > DELETE 
NcW T^ - If7i>.cu*2*OR*lNO.c.Q*3 

INC=0 ' - -*r ~ ~ 

CKSAT s«f-ALi>t* 

CO 6 1=1*14 
T | K c t I J=G.GC0 
^ 5TNA'1{ I )=0o UC’O 

rlEH 1 l YMDA y ( E?0 91 b* 0 . 0* 000 > 

CJEASE-VMOAYtsCOtOC.O.O.ODO) 

C READ OFJs-iRVAT lo.N 

IQ CALt_ U AT U c>c l IN .DAT AC^.DAYSTF. I SATID .N0T1ST} 

■JF(TIK£1.GT * 0 • CDO ) GO TO 10 
IFC TI *21 .LT 1 *500 ) GO TO 2 C C 
IF ( LK:SA7 > GO TC 200 

C CHECK -SATclLiTc II * • 

OK S^f— D*cC*S^Ir N JU*ijK* i S.A T i 0* E 0# C 
IFCOKSAT) 1 SAT 10-SATN'O 

VhFCHK= i SAT I~, CO. e 75 1 l.OR. I EAT ID. CO .67501 01 
IF<KE*TP- AMJ.CKSAT I WHI TG(NE*TAFM 0ER£C 
CC TC 10 

15 IP(.NGT.UKSAT) GO TO 10 
MT Y PE = I T Y Pc (IT ) 

IF ( .vr YPE • EU * O J GC TO 10 
I F ( \c r. TP 1 wh 1 1 t ( NFv.TAPl C9REC 
c STORE OCStkVATIUN UNTIL PAIRS ARE PATCHED 
T I VE 1 =T l ME 1 + TCC9 
03C J=CdDl 4 JlISCCR 
TIKfc< KTYP£ ) =T I *51 
STN/X (XTYPL ) = STNAP 1 
OCS <:4TYPL ) 1 

C CFECK- P^EPROCESS I KC INCICATCRS 

AM'31G-C h L 2 L 0* (s ) — ( FEE DO K (4 1 / 2 5 C )*25£)/16 
CHANEL=AN02 (CHNM5K .FCECnKt * ) ) 

I^PcI Tl 
J=Pt L T2 

C G I 1 u ( M T Y PL ) = L C R ( 1 »J) 

V 1 Yf-c-NTY Pt -«TYPs/t^7 
I F ( CUlGU (MI YI'c ) I GC TO 2 0 


DUDS 

inns 

DUOS 

dods 

000 5 

000 5 

PODS 

DODS 

0005 

DOD 5 

OOPS 

DODS 

OODS 

DODS 

OODS 

DUDS 

OODS 

OODS 

ODDS 

DODS 

COOS 

DODS 

DODS 

DODS 

OODS 

DODS 

OODS 

DODS 

DODS 

CODS 

UUP s 

OODS 

COOS 

OODS 

DODS 

DODS 

DODS 

t)ODS 

DODS 

DODS 

DO-DS 

DODS 

ODDS 

OODS 

DODS 

OODS 

OODS 

OODS 

DODS 

DODS 

DODS 

OOP 5 

DODS 


I F ( V l M I Y I'-i J *NE* T 1 «’.E( M TYPE* 7 } *09* ETNA M { MTYf»L ) • Mu. STM/ M ( M TYPE. 4 7 ) 1 DODS 


. GO TO 1 U 

20 CAY-T D’u( WTYi'L ) / 1 •0D + 2+ REFT 1 M 


DOCS 

DODS 


56 

5 7 
5ii 
6 ? 

6 0 
o 1 
o 2 
S 3 
<><* 
OS 
6 t 


6 S 

69 

70 

71 

72 

73 

7 4 

75 

76 

77 
7& 
79 
SO 
31 
■3 2 
33 
36 
55 

IK 
07 
siV 
39 
90 
9 1 

92 

93 
9 /: 
95 
9C 
97 
93 
99 

100 
JO 1 
102 
103 
106 
1 oc 
106 
107 

I OP 
109 
1 1 0 

II 1 
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C CCNVGHV TU A. 1 Tlf-'E DUOS 

• IF < 1 TAO/26t *Nu *2 > DAY=OAY + T DI r (4 . 3 ♦ CAY 1 / JG4C0* ODDS 

IF (CAY. Ll .DAT ALP > CO TO 10 - DUOS 

I F ( i.' A Y * <>T ivAYiTP ) CO TO 200 DUOS 

MT-l'TYPL DUOS 

C CHOCK FCW HAT C WCASU9 LrCNTS PFcGSGNT DUOS 

IF (NOHOW- IMT .CfcLGT £ . 7 I • CT« 0 ) GO TO 10 DUDS 

INAA=0 OODS 

LS TANM( t.- ) =oL ODDS 

5?0 DU oUU 1=1«NST/RD ODDS 

I F ( £ T N A 1 • ti C « J N a M (£ ( I ) ) GO TO 630 • DOOS 

■600 CONTINUE ' DODS 

DO CIO 1 = 1 i KuS 1 OR DUDS 

l F ( ST KA.’i l icO «N Af- L ( 1 ) ) GO TO c2 0 ODDS 

CIO CONTI NUc. DODS 

INAf's 1NAM + l DODS 

LSTANHt 7 ) -uL • . DCDS 

' IF ( IN AM* c"0. 1 ) CvJ T C 590 DODS 

PRINT 10G0.STNAM1 - DCDS 

GC TO 10 DODS 

620 l SN = sTANDS{ I ) ' DODS 

GC TO t-,0 OODS 

630 ISN=ISTA.ii)( 1) DCDS 

640 I S Tm = NU^-jR2 ( 1 5N * I S TANO ♦ N STA I DCDS 

IFtI3U.CT.0J CG TO 650 * DODS 

.1 S T A = NST A + 1 DODS 

NST/ = I STA : DODS 

I STAiMC-t isSTA > = 1SN • * DODS 

650 IF ( NS IC.Lt. G J CC 7C 24 - DUOS 

i F ( i'T YPc. nl *i ) CG TO DODS 

M\ 1 -J _ UUUS 

DC 2 3 1 = 1 » NS I C- DODS 

IF ( ISN.NS • 1 STNLt I 1 . and, ISTNC< I 1 -N£. O GJ TO 23 DODS 

IF ( J* tU. i NT YP&( I ) , OR * 1MTYPE t 1 1 • EQ , 0 1 NNl = I ' DODS 

23 CONTINUE DODS 

IF (NN1 ,GT .0 . ANt.Sl CCHG( NM ) ,N£ ,0, ) NOR A Ti = . F AL SE . DCDS 

QO 1 J DODS 

24 NO»AT c=.F ALSE . DCDS 

25 CONTINUE OODS 

OBI T=LtfIT5( V TYPE) . OODS 

OOSl=Co^( MTYPc ) OODS 

C 0 $ £ = CHS ( HT YPc. 47 I DODS 

C CEl-ETE hcCUNOANT C fc SEW VAT ION S DCDS 

IF ( WT YPd* E G*M Tf-LST .AND* STNA.V1 , EO. STNLST * AND, OAY, EQ, DAYLST > DODS 

* . CO TU 10 * DODS 

«TFt^T = .v.T YP.C OODS 

STNLST = STNAM ‘ * * DODS 

C A YLS T =UA Y DODS 

KVEAS=2 DODS 

I P Rc= 0 OODS 

PKE I Y P=0 CCDS 

IF ( NHHut 1,0 # 0 ) CO TC 90 DODS 

I N D =0 DODS 

C CCT E K V J nE. P..LPWGC 6 SS 1 NO TO OE DCNE DODS 

DO 70 1 = 1, NJr-’Wfc DODS 

7 0 I F ( u NO. Ml: (1.1 J.iU.O, OR • I N0P6E (1,1) .GO. 1 SN ) * AND. DGU S 


beproducibility of the 
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.151 

152 

153 
1 54 
155 
1 5 1 
157 

15 3 
15? 
160 

16 1 
162 
1N3 
166 
its 
166 
167 



DODSKD 

Page 4 of 11 
October 1972 


• { iMuPrtt ( 2 *i> 0 r.o, 6 . or, i nop ret ? t i ) i c o « ft t yps ) ) i no = i 

■ IF { IiNl.. L(J • 0 > C-C TO SO 
SRF/wX-XF l OCX ( I , INC > 

I Ft h'Ku'rt ( J . I M ) • GToO ) DAY=CAY4PFINCX( 2. IND) /U64O0. 

|l>Rts Jl’Kil'K { 1 . IOO > 

IF ( IPR^.L J* 1 . /*MJ. 4ND2(OD IT, IK1 T{ 1 ) 2 .50. 1 J IPRF. = 0 
PH= I YF=lPRi_PP (2,1 Nf ) 

C PROCESS ,M c: A 5 J R L F c. N 7 3 ACCORDING TC TYPE 
90 GO To ( I lO* 1<?C .1 30.1 JO. 1S»0. 2C0.32 0) .MTYP5 
C * * • C P I C AL. 

110 C05L: = DCuS(ULib 2 ) 

31 Gc = iiluST£.‘( o } *'i?H 

GXGl = SluSr^( I ) 4S2R/C0 5D 

I F ( 1NC.L0.0 ) GC TO 400 

JF( i InCI ,'.'C,0J GO TC 1 1 - 

IFOPkcF «(<.•! M)«EO#l*ANC. A KD2tO>*tTtIBlT(5))*NE«0) GO TO 115 
I PR 1 ' ' - :r ~ - * “ ■ 

X< l >-LC^6 (ObS 1 l^CCSD 
X{ 2 >-031 .‘'J ( Uub 1 >*CCSD 
X( :* )=LSIN(Uc5* ) 

CALL EUUATK(X , L J H A SC * • F A LS 2 • . X , D A Y * .TRUE. ) 

OUS 1 sCAk:TK (X ( 2 ) . X ( 1 J ) 

C‘JS2 = tARS IN (X < 2 ) ) 

115 IF ( iPRt-PR ( 1 , 1 ML ) • £ C* 0 > INO-C 
CO It 400 
C « * « R A NC i KATt 
120 COS 1 = L6S1 /LLT 

.SIG 1 = 0.0 1 4-b IGSTlH 2 ) 

C**.RAr>JGc:t.»A*NG(:f<^ i Tn 
120 uii 5 i — L 06 l ■»-i> Li_ 

IF (FT YPd. tU.3 ) GO TO 400 
SI G 1=S1GSTL ( 2 I 
I F { INC.EQ.O ) CL TC 40 0 

IF( IPRd.cO . 1 »pVo« A NO 2 ( 00 I T % l!]IT(6)l «NE.O) IPRE = ( AMb I G+ 2 ) /3 
JF< IPkE.NE. 0) CAY = CAY-OHSl/( VL IGHT*E« 5*0 A) 

GO TO ‘*00 
C ***F IM TRACK 
150 S I G 1=G0S1 

IFtSlGl.LT.l.J SIG }=30PT { 1*-S1 G1 ) 

SI G J-S1GSTL (5 ) *1 . t-3/SIG 1 
S I G 2= CdS 2 * * 2 

IF(SIG2.LT.1.) SIG 2 = SORT ( t . -S I G2 ) 

SIC-2=SIoSTO< 12 )v| .E-3/SIG2 ‘ ■ 

GO TO 400 

C RETURN STATION! ZEHL 
200 1STA=0 
MT YFL =0 
1F = C 

I F ( »\C v»TP ) END FILE NEWT AP 

PEC NO -RLC NU *■ 1 

PRIM 3000 * NUFEER , IN 

CALL P AND WH 

CAYiT F = D A Y 

RETURN 

300 SI 0 l = SlOSTD ( <> > *S2R 

it GPP.ODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 
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OODS 

20 6 
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c *®»x-y angles 

S I C 2= £ I GS TO( 1 j ) * 5 2 R 
GO TU vwO 

320 SIC 1=SIG3TD(7 > *52R 
C ♦««AZI w GTl- U cLfcVATION 
S l G = 3 I GS TO ( 1C )«S2R 
4 00 J F< NS lC»r.G* 0> GC TO 4 10 
C MANE SIGMA CH AN Gc. 5 


NN 1 ~'0 


AOS 


410 

CULL 


NN2 = 0 

DO *iO£ i = l , NS I C . . . „ 

IFdbN.Nt. 1STNCC I J.AND, 1STNCU >.Nr.C) GO ™ -Oo 

lF«.m« C ..tu.lMYPEU J.OK.IMTYPH 1 UTO.O) NNl=I 
XF(KTYPr*7. C U , 1MTYPM I ) . OR . T M T YP5 ( I > • £ Qo 0 ) NN2-1 

^iuox.oi sio«n.s.oet.c«KNii*si«i/*«6sii>|HTVPai 
IFtNNii.GT.OJ SIG(2 )*SlGCHGtNN2 J+SIG£/SIGoTD(MTY^^ 

I F l NC UlL • t£ O « 0 ) GO TCI 420 
M £ AS Uk u M E.NT j 


OC 4 13 1=1* NC ULL 
DO 415 J=1 , NKt AS 

I F ( 1M *■ J“C ULL tlilM *15*413* 4 11 
All IF ( IM + J. GT. CULLt 2 . I M GO TO 4)5 
4)3 S I C ( J 1 = 0.000 
415 CUNTlNUu 
420 lyslmhMcAS 

pnFFf4G‘ = N p Rc..'jl « 0 * A NO • JND.GT .0 
C SET PRiFfvL.tS6 1.NC S /. ITCH 
. pktTrp- r* t< d T V r * l 0 * I *' F' £ 

CNCi-^c.C NU t i 

IF t NEIAS. GT .0 I CALL 131AS 
NUMfct R = NUMdlT< 4NMEAS 


CALL' FAN 3WK 


1000 

2000 

3000 


SIC (2 1 = 0.000 
T I Me ( MT YP 5 ) ~0 , COO 
Tltfct MTYFiE*7) = C.OCO 


GO TO 10 ^ . . 

POP^mT {• STATION ‘.Ad** NOT FOUND ) 

rO^KT(bX,712 ) 

r JRNAT ( IH0//3 1 >* I 6 . * OBSERVATIONS S F.L 
•LATA TAPc NUMSCR**I3) 


ECTCD FROM MASTER DOOS 


• END 
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DPFCT 

DESCRIPTION 

DPFCT is a multi-purpose multiple entry point 
function. There exist 8 different points of entry: 

DARCTN - is a double argument Arctangent Function 
providing function values between 0 and 
2n raid i an s 

DENORM - computes the denormalization factor for 
geopotential coefficients 

DJUL - computes Julian .dates when given dates 
as computed by subroutine YMDAY 

DOTPRD - computes dot products 

XEFIX - X ECI* C0S 0 G + Y ECI* S * n 

YEFIX - Y CPT *cos 0 r - Y c ~ T *sin 0 r 

ECI G ECI G 

XINERT - X ecF* C0S 0q - Y ECF* S * n 8^ 

YINERT - Y ECF *cos 0 g + X ECF *sin S G 


f.O - I*? 2" 
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NAME 


OP PC T 


purp use 
ENTRY POINT 
darctn 

DENQRM 

DJUL 


COTPRD 
XEF IX 
X1NERT 
YEF I X 
TINIRT 

CALLING SEQUENCE 
SYM 2 LL TY PE 
Y OP 

X . DP 

CARCTN DP 


^ULT I-PURPCSE MULTIPLE ENTRY PCI NT FUNCTION 
PURPOSE 

1 C COMPUTE THE ARCTANGENT U-TwSCN 0 C TWO pi 

TO COMPUTE THE D t NORM AL I Z AT I ON FACTOR FOR 
CcOPOTENTIAL COEFFICIENTS 

TO COMPUTE JULIAN DATE FC 1 R AN INPUT TIME IN DAYS 
FRUM JAN 0.0 CF THE REFERENCE YEAR FOP The ARC 

7 G COMPUTE THE DCT PRODUCT OF 2 THREE DIMENSIONAL 
VECTORS _ 

CIVEN INERTIAL X AND Y 
return earth fixed X 

GIVEN EA-TH FIXED X AND Y 
RETURN INERTIAL X 

CIVL'N INERTIAL X AND V 
RETURN EARTH FIXED Y 

CIVEN EARTH FIXED X AND 
"FE'TURN INERT I'AL y 


CAPCTNC Y» x) 

CESCRIPTION 

INPUT - K*SIN<AI 

INPUT - R * COS ( A I 

OUTPUT - ARCTANGENT OF ANGLE A IN RADIANS BETWEEN 
0 AND + 2 PI RADIANS 



CALLING SEQUENCE CEnCRM(N.M) 


symbol 

TYPE 

CESCRI PTIDN 

N 

l 

INPUT - OCGREE OF LEGENDRE POLYNOMIALS 

M 

I 

INPUT - ORDER CF LEG ENDRF. PCLYNCMI ALS 

denofm 

DP 

CUTPLT — DENORVALI ZAT ICN F ACTUR 

CALLING 

sequence 

C JUL <x) 


% 


of 5 
1972 


ft. 0-1 9*5 



DPFCT 

Page 3 of 5 
October 1972 


SYMHCL 

TYP«; 

DESCRIPTION 


X 

OP 

INPUT - T I MS IN DAYS 

FROM JAN 0.0 OF THE REFERENCE 



YEAR 

'■ • 

U J U L 

DP 

OUTPUT - JULIAN DATE 

. 

CALL J N U S 

uOUiNCt 

CCTPRD< A ♦ 13 ) 


S YMcCL 

typl 

DESCRIPTION 


A 

DP 

INPUT - COMPONENTS OF 

VECTOR A 

ii ) 




e 

OP 

INPUT - COMPONENTS OF 

VECTOR B 

(3> 


- 


DOTPRJ 

DP 

OUTPUT - DOT PRODUCT 

CF VECTORS A C 0 

CALL I NG SLOU ENCL 

XEF I X(X t Y) 


S YMfcJCL 

TYPE 

DESCRIPTION 


X 

DP 

INPUT - INERTIAL X 


Y 

DP 

INPUT - INERTIAL Y. 


XcP I X 

DP 

OUTPUT - EARTH F'lXED 

X POSITION 

CALL INC. : 

EcUDt.NCL 

X l N E R T (X*Y j 


S YMfiLL 

T Y Pd 

DESCRIPTION 


X 

DP 

INPUT - EARTH FIXED X 




REPRODUCIBILITY OF THE 

Y 

DP 

1 ,NPUT " “ R ™ FI * EC v ORIGINAL PAGE IS POOR 

XINeuT 

DP 

OUTPUT - INERTIAL X 


CALL INC 

SEQUENCE 

\EF JX( X, Y ) 


SYMCCL 

TYPL 

DESCRIPTION 


X 

DP 

INPUT - INERTIAL X 

- 

Y 

DP 

INPUT - INERTIAL Y 

• 

Y£F I X 

DP 

CUT PUT - EARTH FIXED 

V POSITION 

CALL ING 

SLUUcNCL 

; YINERT(X,Y) 



8.0-194 



DPFCT 

Page 4 of 5 
October 1972 


SYMilCL * 

TYPu 

r CESCB'l PTION 


X 

up 

input - 

EARTH 

F I XEP X 

Y . 

DP 

input - 

F.APTH 

F I XEC Y 

Y INERT 

p-> 

CUTPLT 

- INERTIAL Y 

SU:1K JUT |.MtS USbC 

YMO A Y 



CCMMOS cLCCKo 

C3THET 

CONST S 

INPUT FILES ‘ * 

NONE 



OUTPUT FILES 

NONE 




iNlTtJK 


DOUcut PR EC IS I CN function pafctniy.xj 

IMPLICIT Kl ALfC (A-H.Q-Z) - 

CCM VJN/C S TM E T /CTFE. TC , STHtTG 

CCM MON/CO NS T S/P I |T AOP I * ORA D . CR SEC 

CC I N I TBK/lGl(fl**>»NOJlST.lG?(7) 

LOGICAL NiJJiST 

C AR t T N-UA TAN2(Y.X ) 

|F ICARCTN.LT .0.000 ) DAPCTN.T*0FI4DAFCTN 

return 

ENTRY ULNuNM ( N > 

IF ( #** fcU. 0 J GC 1C UO 
XNs*i« 000 * OF LU /* T ( N > ♦£» ODO 


NMV 1 = N-M«- 1 
fcp|.sN + M 
FACT- 1.00 
DO 110 1 -N.MN 1 ♦ hPM 
110 F AC T = F ACT *■ CrLU A T < I 1 
XN - XN/F ACT 


REPRODUCIBILITY OF TilE 

ORIGINAL PAGE IS POOR 


GO TO 130 

120 XN-i* CDO^OKLCJ A 1 ( N ) ♦ 1 * 000 
130 DcNCrIM=OSUK T ( AN ) r 

RETURN 

ENTkY djul( x J 
I F < NO Jl ST ) GU TO 10 
NO JIST=.TRUC. 

DJ = c<4 3323 l • SCC-YMCAYC 5001 00«C. C.ODO ) 
10 DJUL=OJ+X 


RETURN 

ENTRY OUT PRC(A.E) 

DOUBLE PficLlSICN A(3)«S(3) 

DOTP«C=A( n*c(l)*Al?)*B(2KA<3)*3(2) 


Nc 1 URN 

ENTRY XcF I X ( X t Y ) 
X2FJx-X*CTHt:TC*Y*STHETG 

RETURN 

EN T m Y XINEAT (X,Y> 
XIKCmT-a.CI FcTC-Y-STMETG 


DPFC 

1 31 

DPFC 

I 32 

OPFC 

1 3? 

DPFC 

13*'. 

DP^C 

135 

DPFC 

1 35 

DPFC 

1 37 

DPFC 

l 35 

DPFC 

139 

DPFC 

t AO 

DPFC 

1 A i 

UP*^ L 

l r * <r' 

OPFC 

153 

DPFC 

1 

DPFC 

195 

0»FC 

\i t 

DPFC 

1 A 7 

DPFC 

K-g 

DP C C 

\ AC 

OPrC 

ISC 

DPFC 

151 

DPFC 

15? 

DPFC 

15 3 

DPFC 

155 

D n F C 

1 c 5 

DP 67 C 

156 

DPFC 

15“ 

DPFC 

1 5r 

OP p C 

1 55 

DPFC 

If 0 

DPFC 

1 £ 1 

DPFC 

162 

DPFC 

15? 

DPFC 

ISA 

DP^C 

165 

DPFC 

1 6 1 

DPFC 

167 
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^t£T L,r*N 

cNThV YLF 1 A ( X « V > 

YE** I A =Y*CTHsTC-X*5T>ETG 

r>E tl«n 

;I»ThY YISJLnT < X ,Y) 
VI\th1-Y*Clhcl CtXYSTMETG 
Rt'l ut' N 
£ M> 


DPFC 

DP C C 

DPFC 

DPFC 

DPrC 

DPFC 

OPFC 

DPFC 
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172 
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NAME . 

ENTRY POINT 
DRAG! 

DRAG 

.CALLING SEQUENCE 
SYMBOL TYPE 

GRP AR DP 

(I) 

CALLING SEQUENCE 


DRAG 

PURPOSE 

INITIALIZATION 

TC COMPUTE ACCELERATION IN RECTANGULAR COORDINATES 
DUE TO AERO-DYNAMIC DRAG FORCES 

CALL DRAG 1 (GRFAR) 

DESCRIPTION 

OUTPUT - PARTI ALS CF FORCE MODEL PARAMETERS 
DRAG! RA SAT, DX .DT) 


SYMBOL 

TYPE 

RASAT 

DP 

DX 

DP 

DT 

DP 


DE SCR I PT I CN 

INPUT - RIGHT ASCENSION OF SATELLITE 

INPUT C OUTPUT - SATELLITE ACCELERATION VECTOR 

INPUT - TIME In days from epoch 


citnoni ttuce tier re* c,w 


COMMON BLOCKS 
INPUT FILES 


DRGBLK XYZ 2 NT BLK 

NONE 


OUTPUT FILE S NONE 


REFERENCE S 


• GEODYN SYSTEMS DESCRIPTION • 
VOLUME 1 «* GEODYN DOCUMENTATION 


-mu irAUr# 




* 


SUBROUTINE DR AG 1 (GRPAR) DRAG 

IMPLICIT REAL*3 (A-H.C-Z) 1 DRAG 

. DOU3LE PRECISION OX(3),X»Y.Z#XDCT,VD DT » ZDOT *R » FS Q » T HDT 2S» AEiRASAT DRAG 
INTEGER ACDRtADDRD DRAG 

DIMENSION GPPAfiU J DRAG 

COMMON/DPG3 LK T , SPS1 50 .C < 4 ) ,C3 , Cl , VF.L, XDCT R. YOOT P . RHO DRAG 

COMMON / * XL/ X. Y . Z ♦ XD CT .YDOT . ZDOT »R, RSO. IS AT . IFORCC < Z > DRAG 

COMMON/IN T3LK/TH0 0T1 (25 . T HD T 2 S , GM « Af . AESO, FLAT « FS 0 3 2, FFSQ 32 ♦ DRAG 

• GM3( 6) ,S <2 ) .GD0T(2 ) .00 (2 > . A F G M ( 3 B > • ADDS ( 2 3 ♦ AC DR 0 < 2 ) . SR AD ( 5 > DRAG 

RETURN DRAG 

ENTRY 0 PAG< RA SA T iDX .CT) DRAG 

SPSI SQ=Z**2 /aSG DRAG 

HT^R-AE-< FSU3 2 * SPSI SQ**2-FFS C32 *SP5 IS C) DRAG 

C OBTAIN ATMOSPHERIC DENSITY DRAG 

ft MO -DEN ST Y< rlA SAT) D PA G 


41 

42 

43 

44 

45 

46 
4 7 
4 3 
4<; 

50 

51 


54 


55 
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*DOTR=XD0T4- THOT2S*y 
YDOTR = YOOT- THOT2 S *X 
VE L- XD O T R ♦ * 2 ^ OT P * *2 4- z DOT 4 *2 
... VEL-D £QR T ( VEU ) 

C3 = VSL>RHO 

C 1 ‘tC 3 *( O ( I SAT J + BD OT< I SAT) *DT ) 
C SUM IN ACCELERATION 0 UE TO DRAG 
OX( 1 ) =0 *( 1) -CI *XOOTR 
PX(2) =C M 2)-Cl *YOOTR 

0 X C 3 ) X { 3 ) —C 1 * ZD CT 
IN0= I F 0 RCC( ISAT) *3 

IF (ADDR ( ISA 7) *EC*0) GO TQ 100 
C COMPUTE PAR HALS FOR DRAG 

1 NO- 1 NO +3 

■ C2=-C3*0C( I SA T) 

GRPARCl )=C2*XDOTR 
GRPAR ( 2 )=C2 *YDCTR 
GRPAR ( 3 ) J=C2 OZDOT 
100 IF( AD0RD{ l SAT) ,EQ. C ) RETURN 
C COMPUTE PARTIaLS FCR DRAG RATE 
C2=-C3*BQ< I SAT) tDT 
GRPAR { I SO *1 ) -C2 *XDOT R 
GRPAP ( I NO +2 J =C2 *YOOTR 
GRPAR ( I ND t3 ) = C2 *ZDOT 
RETURN 
END 


DRAG St 
DRAG S T 
DRAG EE 
DRAG SS 
DRAG e: 
DRAG 61 
DRAG 62 
DRAG 62 
DRAG t i 
DRAG ■ 6S 
DRAG cA 
DRAG £7 
DRAG 6r. 
DRAG e; 
DRAG 70 
DRAG ?i 
DRAG 7 
DRAG 7 
DRAG 7 
DRAG 7 
DRAG 
DRAG 77 
DRAG 7S 
DRAG 7 <5 
DRAG 60 
DRAG £1 
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EGRAV 


DESCRIPTION 

EGRAV is the GEODYN System subroutine for deter- 
mining the acceleration on the satellite due to the 
Earth's gravitation. Certain intermediate data are saved 
for use in subroutines VEVAL > RESPAR, AVGPOT and GEOIDH. 


The intermediate data mentioned above are com- 
puted, following the determination of the Earth-fixed- 
spherical coordinates of the satellite. They are: 

GM a n 

r r - 

.P” (sin <(,) 


• sin m X 


cos m X REPRODUCIBILITY OP THE 

ORIGINAL PAGE IS POOR 

- m tan 4> 

for each m and/or n. Multiple angle formulae are used 
for the sine and cosines and the usual recursive relation- 
ships are used for the Legendre functions P™ (sin $) . 


The accelerations are computed in Earth-fixed 
spherical coordinates and then converted to inertial 
Cartesian coordinates. 
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NAMC 


EGRAV 


- 

PURPOSE 


TO CnMPUTF ACCF_FRATIOM DUE TO S 

FAVITY 

CALLING SEOJINCE 

CALL F 

CRAVI THITG .PASAT.DXl 


SYMPCL 

TYPE 

DESCRIPTION 


TH£T G 

0 = 

I Nf\IT 

- APPARENT RIGHT ASCFNSIDN 

OF GREENWICH 

RASAT 

03 

INPUT 

S OUTPUT P I G M T ASCENSION 

OF SATELLITE 

OX 

OP 

OUTPUT 

- ACCELERATION VECTOR in 

ME TE R S /Sr. C UNO S**? 

SUFROUT INF 

USED 

CL FA R 

- - •- — 

■ ' 

COFVCN FlOC 

<S 

CSLIM 

VRELO< 

FMOOEL 1NIHK 

INTPLX XYZ 

tNPUT FUFS 


NONE 



CUT PUT FILF 

s 

NONE 




KEFFRE NCFS 


‘GFODYN SYSTEMS DESCRIPTION* 
VOLUME l - GFOCYN POCU'-’ENT AT I On 


M*i NOT ATICN"**** 


PSt-LATlTjnF (GEOCENTRIC! 

L AM F C A- L ? Vi IT LO Z\ ( +• I A S T w A Q o ) 

P-GfnCCN T = IC PA 01 US TO SATELLITE tK EARTH R AO I I 
^y-OPAV l r AT IGSAL CONSTANT Tl*' c S MASS OF CA=TH 
d(v,V’)-C ")£FF I C I r N TS 0^ L^GFNDRE r*n L y M HMIAL 
C<N« MJ-COTPF ici f-NTS OF COSINE -UNCTION 
S< N. M> -C'lFF l C IF NT S OF SINE FUNCTION 
JNDf- XI -DEGREE OF SUMMATION PLUS 1 


SUt>FnuT i sic fcravithctc .^ asatox ) 
ImoljcIT P E AL* S ( a-h, o -z ) 

LOGICAL NOT 1ST 
1NTFGFW 'JL Tm IT 


P.RPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


DOUOLF JPFCISIOn uf.OFC ,L AM^ha 
DI VFNS I ON C ( JO . 3 7) , S ( , ? 3) . OX ( 3 ) 

cnv « on/ csl i m/ll i ,! i r ( 1 1 ) *’jl i m it ( t ; > 

CO ••'MSN/ - MOO CL/ INFIX l T I NOT y -> % IN SIX?. I NO I X A » C S { "C 1 * 33 ) *MT)=L( S) 
COMMON/ l N I T»K/ l CM SC > .NOT 1ST ,NSN i ( * ) 

COMMON/ T NT PL*/ IT HITS ( f>> , r.M* A - « ! 0 '»v( \ 2 2 . 1 

OP*' <°t', / / / < t y » r.rit.vnu, / n t , u ,mgo . i ~ a t , i mpr F < ”• 1 

Cnv * ,f lN/ 'l PHLrif / x Y SD . C 0 fl am f I ) , S INt \ K * < s \ ) ,Pf.‘ » ^ t , r>L A a , 

»»{ 3 7 . T - ) , ADPN ( 3 ? > » Tp? I M < ** ;i 

FOUI VA_ • MCF ITOXl'im.T AN" 5 1) ♦ ( C ( 1 . U . s ( 1 . 1 > . C M 1 , l 1) . < o( ; , I ) , 


EGRA 

42 

FGR A 

A 3 

FOR A 

A A 

FOP A 

4 S 

EGPA 

AS 

r gp a 

4 7 

FTP A 

AS 

FGPA 

4 O 

FG» A 

SC* 

EGOA 

S 1 

F GO A 

s ? 

F G n A 

s 1 

F GO A 

54 

FT. ^ & 



% 


8 . 0-200 



EGRAV 

Page 3 of 5 
October 1972 


c 


c 


c 


c 

c 


c 


• STNPS 1) • (P( <• 1 >« COS*» c ,I J « C TPSIMC l ) ,ZF*a» . 

INITIAL T 7F =» IMWATION INDICES 
if (not: or ) r,r to ico 
CALL CL c AN ( 3 »6C , 33 > 

C»LL a ) 

CALL CL C A^ (LLI T. 31 . 1) 

CALL CL ~ A9IUL1 M I T, 31 . 1) 

2drO=O.DD 

do rr n:-2*ikdex2 

NS=31 -N-? ‘ . . - 

N1 =MI Nr ( NC 4-1 * I NDEX 31 

* on 25 MC=2.N1 . ' 

MS = 34 -M2 

If (C< NC , MC > .EO .0 .DC . AND.S <NS,« S ) .FO . C .DC >GO TO 25 
I F ( LL I I T ( NC ) • 5 Q « 3 ) LLIM{T(NC)=MC 
ULl MIT ( NC) =MC 
25 CONTI NJ- 
50 Cn*TINt>2 

NOT ISTs, r 9UF . 

PUT SM 1T LLI r = in EARTH CENTERED - EARTH FI X= D p E T.T ANG UL A P 
JCC r&c AT- n in? ( y ,X ) 

XV50=X* « 2 «-Y * *2 
PTX YSO= ■'^ORT (XYSm 
LA*.'PDA= MA s AT-ThETG 
Sir-;LAM( " ) = OS IN (L AM A > 

COFLAVC “ ) - nccs <L AM HD A } 

R 50 sxvr.O i 

5-T. ! p i w ) 


EGPA 
FORA 
FG0A 
FGP A 
FGPA 
FOR A 
FC.p A 
FGPA 
EGPA 
FGPA 
EGPA 
FCRA 
F.G°A 
FGPA 
EGPA 
FGPA 
FGRA 
FGPA 
FGP A 

C.nOPOl NATES FGPA 
FGPA 
FGPA 
FGPA 
FGPA 
FOR a 
FGPA 
FGPA 
f~ r.p a 


SINC« COSIN-.. AND TANGENT OF L AT IT 1JH F 
S 1*95 1=7/ « 
chsrs i = x vsc/f? 

TANP5I= 5 t NPSI/CC3PS l 
CONVERT R T 1 PAFTH. RADII 
R1NV=AF/P 

CALCULATE P 1L YNC-'I AL TERMS • • .NOT F , • * ° TAXES -OPM P(M*N> 
CP5 -3 • O* v COSES T 
P( l t? ) = i • r . D0*S IMPS ! * * ?- « 50D 
P( t .?.) = •'■»? *S IN PS I 
P(2 .2 )*"*» 3 * C CS PS I 
TPS IM (3 I = 2 .OC* TANP5I 

CALCULATE A -JD SAVE SINES AND COS INFS OF LONGITUDE 
CLi “2 .C " * C OS I.Av ( 2 ) 

S| NLA** { 3 I s CL 2* S 1NL A" ( 2 > 

COSLAM(/l = CL2* CCJSL AM < 2)-l .DC 
GMF=GM/ ? 

AH " N ( 2 } - 7 l NV*« 2 * GM P 
DO 120 N=3 . INDEX 2 

ADC N( N) =A0SN(N-I ) * R l N V 
FI sN 

F2=ri -i .do 
F 3=?.or * - l - 1 .oc 

P4=FX«nS r »SI 
Nl = N-l 


WOUGIBILITY OF THE 

■V^TVAL page is poor 


FGPA 

FGPA 

fcGPA 

EGPA 

FGPA 

FGRA 

FG»A 

r GP A 

FGPA 

FGPA 

FGPA 

FGPA 

FGPA 

FGPA 

FGPA 

EGPA 

FGPA 

FGPA 

FGPA 

FGPA 

FGPA 

FGPA 

rr,c a 
fgoa 

FGPA 


N?“ N- 2 

C ?CNAL »» A "5 vo* i ICS (m~C l 

n< : *n ) - ( "Tvs in'^s i* p( i ,s i )-»■ r ( i . v 2 n /*■ i 


CGPA 
FGP A 


REPRODUCIBILITY OF THeT'” 4 
ORIGINAL PAGE IS POOR 


* 


F6 

K 7 

5 a 
so 

60 

6 * 

F 2 

6 3 
1 1 
6- 
6A 
A -> 

65 

60 

7 A 
7 1 
7? 

7 7 
7 A 
75 
75 
7 T 
7 a 
70 
F ? 

P 1 
«? 

#» t. 

PA 

PS 

PS 

e 7 

p « 
*9 
c/ > 
o 1 

92 
c 3 
o a 
9S 
9 s» 
97 
Op 
oo 

* C 0 
*C1 

* r p 

* CD 
•* C A 
’ C R 

* c *■ 
. <* *» 

* r u 

* Co 

* ! C 
’ 1 1 
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LESS THAN N) 




IF ( I NCF <3 • t_T .2 >GD TO l?c 
■NX- Ml NC ( N » INHEX 3 *2 1 

on nc m=?*mx 

C TF.SSEPA1. H i.' ‘-'ONI C S (M NUN-TTOO. 
lie P ( W , M ) = -» ( A , N2 ) +P 4* o ( V - \ , N I ) 

IF( NX .L T . N I' - .'" TO 120 
NN1 =N * 1 

e SFCTQPAL HA*. *PMCS ( M ■= N « NlQN— 7 F! PO ) 

P(NN1 Ji)qF4v'C(N,Nl ) 

Tf>? I V(fjNl ) “TPS IM (N! ) «-T IPS 1 
S I NLA'-M TJi > = CL 2* C I N_ AM( N ) -S I N_ AM ( N1 ) 

CO? L A V < N N 1 > = CL 2* CG f L A M < N ) - C.O SL A " C N l ) 

120 CONT I K.J-: 

C IM T I AL I 7 AT [ in FCR S UM MAT 1 P N FOR PARTIAL? 

14 0 PPrtO.D C 

r>LAMOA=:*00 _ ... 

DDsr=c.‘)o 

F N l = 2 . F. 

C SUMMATION M7 PARTJAl.S 

OH 2EG NC = 2 « 1ND3X2 ■ * 

NS=3l-NC 

C ^1 =Kn: 4- . DC 

CL a MO AO. 00 

C 1 =C( NC. \ ) *CCSL AM( 1 > 

Dp=f: *d( ; , nc ) 

I -FI ‘-( p < 2 .NC) -TPS I w ( 1 ) * n ( U NC) ) 

" *>Nl_L I -1 1 T ( NC i ' t 

!•* i nll « *.• i.O I <oU iJ <^25 
N1 "UL I *'■ I r { NC ) 
fm = nll-‘. 

oo z:j *c = m_l.ni 

ms =3A -M" 

D1=D(VC,NC) 

c PARTIAL -OT LAMRCA ( SJMM attcn > 

OLA Mf) A= *)L AMO 4ri/*3 1 * ( St NS . )* COSL AM ( VC ) -C I VZ . ) *SI NL AM ( MC M 

F 1 = c ( NC . M C ) -* COS L AM ( M C ) * S ( NS . v ? ) * S I ML A M ( M C ) 

ifc n .co. ) .oc j go tc ?c; 

C PART [ Al WRT -> (SUMMATION) 

op=or *f ; >3i 

c PARTIAL WPT n SI (SUMMATION) 

OPS I=CP-; l + p l *(p ( vc + 1 . NO-TPS IM (MC)* ra 1 ) 

20 C FV:PV^1 

PL A MO As^LAMCA^OL am HA* AORNlNC ) 

22 3 PR=PP*DP*r“M * AQPNl NC > 

?S? prss J = PPS I + OPS I *:« ATP N ( N C > . _ 

C COMPLvTF OA-rtAL W n T R 

P<3 = -Jf,V.^fO^)/fi 

c CrNV^K 7 ACC "_*j PAT I ON IN If.AL COHC r, I MATT S TO A C C E l. - R A T t n N IN 

c P«=CT AN r *l.lL A ? rOOPHINATFS {w'lT fPt.V **• Y VATf'K 0= ^5^141 S 0= SOH^PI 

C with prspp.cr rc hect angjl a» ) 

POP =Dp/ 2 

PI X Y = Ol \M O A/XY SO 
npt y=Jj. ? / ( P T < Y SO <> P S 0 ) 

r>X ( \ ) S< u>JTO-DtXY* Y 
OX( AJ = Y-" , PTP*PLXY* if 

:.• « 7 4 i- U S I »PT <Y ST/"SO 

t'; ’• * j 

r.Np 


E p BODUCIBILITY OF THE 
::'SIGINAL PAGE IS POOR 


FC.RA 

! 1 2 

FC»A 

• 1 7 

FHPA 

i 14 

F C-P A 

• is 

FRP A 

1 1A 

TCP A 

’ 1 f 

cr.oA 

\ 1 « 

FCiWA 

' 1 c 

er,PA 

1 ?C 

f.r,P 4 

* 2 ! 

pr.PA 

< ?? 

F f»P A 

' 2 ? 

EGPA 

\ ?fi 

FCiPA 

- ? S 

FC.PA 

* ?A 

FC.PA 

’ 2 7 

FC.°A 

1 ?P 

FGP A 

« pn 

rco a 


EGPA 

’ 31 

FG^a 

* 3 ^ 

FAR a 

f 33 

EGR A 

’ ?A 

FGP A 

■» 

FPP A 

1 3 fi 

F CM A 

i 77 

r * 

or 

* 3 ? 

r»v> « 

* ' * 

FGP A 

\ 6-C 

FGP A 

' A J 

FGP A 

* A? 

FOR A 

* 4 3 

FGPA 

* 4 4 

tgpa 

* AS 

FGP A 

* AS 

EGP A 

’ 4 7 

CGPA 

♦ 4 r 

FG 9 A 

< 4 0 

F G P A 

* F G 

EGO A 

’ FI 

EGO A 

* S2 

EGPA 

* S3 

FGP A 

« *;4 

FGP A 

! Ss 

EGO A 

1 S6 

C GO A 

’ S 7 

FGP A 

1 K P 

FGP A 

* So 

kL FGP A 

’ tr 

EGPA 

1 e 1 

FGP A 

• 

r GP A 

* t 1 

FGP A 

' i 4 

FGP A 

' s ~ 

FGP A 

1 A G 

1- GO % 

* r t 

r r. r> A 

• r. 

EGPA 

’ AO 


8 . 0-202 




aoDUCIBILITY OF THE. 
ORIGINAL PAGE IS POOR 


CALCULATE AK5 
SAvje $LM£S 

ftMI> COSX^S 
OF LOtf&XTOPF 


2:OM«L 

HPt^moMxc 

Terns 


TesS-CFtRAL 

HrvRrKowxc 

Tc?£~ms 


Harmo/oxc 

TGRvns 


So (VO 
PfVR.TXAUS 


Convert 

ACceLGRATXoO 

PRortv SPHFRXCAl 

Tc> ^ecT^Mc-\OLAR 
C05RDX^AT^rs 


g£T'JR& 
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ELEM 


DESCRIPTION ' 

ELEM -converts the inertial rectangular components 
of the position and velocity vectors of a satellite to 
the corresponding osculating Kepler elements. 

Subroutine ERROR is invoked if the square of the 
eccentricity is not less than one. 



■i-rui; 


% 
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NAME 


clem 


PURPOSE 


10 CONVERT INERTIAL POSITION AND VELOCITY Vr.CTOR 
10 OSCULATING ORL'.ITAL ELEMENTS 


calling SEQUENCE 


S YMECL 

TYPE 

XYZ 

(O 

Of 

AC 1 
( 6 ) 

OP 

I DR AO 

I 

FRST ME 

L 

AC I XYZ 

D 3 


( 5 . 2 . 2 ) 


CALL CLEM( XYZ ,AE I • I DR AD.FRSTME * Ml XYZ> 

CESCRIPTION 

INPUT - CARTESIAN ELEMENTS 
OUTPUT - KcPLER ELHmEMTS 

INPUT - =3 - OUTPUT IS IN RAMANS AND PARTIAL 
MATRIX IS REQUESTED 
=2 - CLTPUT IS IN RADIANS 
=1 - OUTPUT IS IN DEGREES 

INPUT - FIRST TIME S* ITCH 

OUTPUT - PART I A L S CF KEPLER ELEMENTS WITH RESPECT 
TO Ki Y • Z 


SU3RCUT1NLS USLC ERROR 

•CGM MON -tiL- L O K. S -ALPMUi^ ...CcLCM ...COnSTS 


I NTuLK 


INPUT files 
CUTPUT FILES 
FEFURENCcS 


NONE 

NONE 

«GEODYN 

VOLUME 


■ ' ■ ***£8&z£ 

origin^ 

SYSTEMS DESCRIPTION* 

- GECCYN DOCUMENTATION 


SUEfcuLTUs tLcKXYZ.ZGI . ICRAC.FKSTME,AEIXYZ) 

IMPLICIT PtlAL»c CA-HtO-Z) 

LOGICAL F«5 T M L (HYFSR • HY P 5W 
REAL RV5TUT 

OOUoLt PKfC 15 ICN I NCL iH E AN, NODE 

0! Mc-NSIUN Ah I < 6 ) , XYZ ( s> . AE I NPM ( 6 ) , X >Z XYZ ( 6 > t AE I XY Z ( 6 * 3 . 2 I » PH I P ( 3 ) 
COMMON/ AL P«4 »<C/^LPHA( 5 A ) » HYP . . 

CCN MON/C EL i- N/lL"t 2 4 } , XNU « E C « R M ST SJT 
CD K MU N/ C U f T S / F I • T '* CP I,RAD«RSCC 

COM M J N/ C'I'IdlK/ 1HCOTO( ^ » GM* Ad ( C? ) 

COU I V AlLN CE ( A • A E I Nf 1 M ( 1 ) ) , I l»ALINRM( 2) )*( I NC L * AS I Nr j ? , ( 3 ) ) » 

. (NODl.. Ac. 1 NPM{ A ) > , (P* AF . 1NFM ( C» > ) . < M” AN, AS I NPM <6 ) > . 

. ( A i XYZ XY Z ( I J)*(ViXYZXYZ( 2 ) I ,(?,XYZXY/. (3)), 

. (XUJT. XYZXYZI A) ) , ( YDOT,XYZXY/(S> >,(ZOJT ,XYZXY2(6> > 

CO 10 I -1 . O 
10 XYZXYZI i J=XYZ l l) 


CLEM 
EL CM 

ELEM 
ELCM 
CL C M 
ELEM 
ELCM 
CL CM 
ELCM 
ELCM 
ELCM 
ELEM 
ELCM 
ELCM 
ELCM 
ELCM 


AO 
A 1 
A2 
A3 
A<- 
\ 5 

AC 
A? 
At. 
A5 
SO 
S I 
5? 

53 

54 

55 


* 
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R=D6 Cj*kT { X « * 2* Y «*••;»« 7**2 J 
V S C = A uL 1 ^^♦YCLT ** £4 ZOO T **2 
C 1 = Y% ZOJT -i * Y C CT 
C 2 = Z * XUOT-X* Z C CT 
C 3 = Xv YDOT-Y *XCLT 

Ir = C 5 G R T ( F* SO ) 


CCSi=C3/H 

S IN J = C3ukT < 1 • C C 0 - C CS I * * 2 ) 

C COMPUTE 1 NCLlNAl UN 

INCI--CATAN2 ( S 1M . COS I > 

|F' ( I NCL .IT * O. COO ) INCLs INCL4TV.0PI . 
AIN V= i ♦ W'O/ft- V SG/GM 


C COMPUTE MA JuR AXIS 

A= 1 .0 00/ A l .NV 
C COMPUTE CCCLNTRICIIY 

ESG=1 .ODC-MLO* AINV/GM * 

E=C50RT( lSu ) 

HYP ck = ^50 ♦ 0 1 ; * l«000 

IFthYPcK, AN C • F RSTPF. . AND • • NO T « H YPS V.' > CALL ERROR { l • E$Q) 
IT ( t Yf'V.n • ANC • • NTT « ( HYP S t: • OR *F M STMF ) ) CALL E RRCR ( 2 ■ =. 5 O ) 
P= Ay ( l • u DO- ESC ) 

P= A4 { l.GDU-ESC ) 

RRDLT = X*Xl)01 + Y vYDOU Z*ZDOT 
HS1-H41.INI 
S I NF= C 1 /HSI 
CCSN--C2/HS1 

C COMPUTE LONGITUDE CF ASCENOING NCDE . 

NQC t-OAT AN2 (SIAN ,CCSN ) 

* " ' I F ( NOTE* L T'i 0 * C C' 0") NXUL- NO DE -*- T lvO P I 

PER=P/(c*A) 

SNU^KROwT »PdK/h 

CNO=PER-l .OCO/E 

XNL=G3AT An2( SNL iCNUJ 

IF ( XNU.LT *0.000 X N U — X NU ♦ Tv.'OP I 


c 


c 


C£C = < C.NU+ c J/( l-.ODO 4t:*CNU ) 

. SEC=l LSuR T< DAU<1* OOO-ESQ )I*SNU)/U •ODO*E*CNU> 
IF CHYPER) CU TO IE 
EC = CATAN2( 2c C .CEC > 

IF(CC»LT.O«OCC )EC = EC 4 TWOPI 
COMPUTE Ml AN ANOMALY 
ME A A = i-C - £ * SEC 
. GO TO lo 
15 EC =Lt_CG( CfcX + 5£C ) 


MEAN-c*5lC— EC 
16 CU=( X»COSN+ Y » £ I NN >/R 

SU= (( Y fCOSN— A >»£INN)«COSI*Z*SINI)/R 
U = T hi AN2< SU . CL ) 

IF ( U* LT • 0 « 0 DO )C=L+TWOPI 
COMPUTE ARGUMENT CF PERIGEE 
P = L- X NU 

IF ( P* LT. O *0C0 )F = P4 TWOPI 


JSSSSSV.^ 


5C A Lc. “ I • 0 UO 

IF( JuRAU.LG.l l SC ALE- t * 000/RAD 


DO 20 I=l.o- 
AE l it > = AE I NPM ( 1 > 


ELEM 

5c 

EL EM 

57 

ELEM 

56 

ELEM 

O; 

ELEM 

60 

ELEM 

6 1 

EL EM 

62 

CLEM 

63 

ELEM 

64 

CLEM 

5 5 

ELEM 

'66 

ELEM 

67 

ELEM 

63 

ELEM 

69 

ELEM 

70 

ELEM 

71 

ELEM 

72 

ELEM 

73 

ELEM 

7 A 

ELEM 

75 

ELEM 

76 

ELEM 

77 

ELEM 

?e 

ELEM 

79 

ELEM 

50 

ELEM 

5 I 

ELEM 

32 

ELEM 

33 

ELEM 

3 A 

ti t M 

S: 

CL CM 

36 

ELEM 

&7 

ELEM 

96 

ELEM 

59 

ELE^ 

'90 

ELEM 

71 

ELEM 

92 

ELEM 

93 

ELEM 

9A 

ELF M 

9 * 

ELEM 

9 1 

ELEM 

97 

ELEM 

9b 

ELEM 

99 

ELEM 

100 

ELEM 

10 1 

ELEM 

102 

ELEM 

103 

ELEM 

106 

ELEM 

105 

ELEM 

106 

ELEM 

107 

ELEM 

ioe 

ELEM 

109 

ELEM 

11 0 

ELEM 

1 i 1 
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c 


IF C 1 .LE* 2) Cu TO 20 

- Al'.I ( i )-AL IKFMI 1 )*SCALE 
20 CCNTlKUc 

IF { I LK AO *L T * i J RETURN 

COMPUTE PAkTIAlS C f KEPLER ELEMENTS W/O CARTESIAN ELEMENTS 
DO 40 ls|»J 
P.Xs(4-M/3 
PY = I , d ) 

I l =WuC( 1.3)44 
l 2 —MOL ( 11,3)41 

AE I XYZ ( 1 * I » l ) ~Z • OC C* A** 2/P* *2* XYZ XY.2 ( 1 1 
AE l XY 2 ( 1. 1 , 2) = c *0D0*A**2*XYZXY2< H3 )/G« 

,00 40 J-1 ,2 
DO 30 K. = 1 ,3 
PHIPt K 1-0.0 CO 
IF ( I K ) OC TO 30 

L = (4“J>*3-I“N ‘ _ _ _ 

PHJF(K)=XYZXY2(L) 

IF (L.Nci* I 1 . ANC*L# NE. 12) PJ3 IPC K)*-PHP(K| 

30 CONTINUE 

PHP = ( C.1 *PHI f { 1 )+C2*PH IP (£) + C2* PHIRC 2 )> /H 

PR = 2—3 
PX=Fm4PX 
PY = I-K^PY 

Fr< = P«<*XYZXYZl 1 )/R 

AEIXY Z<2, i,J)=<F*AINV/2. ODO+AE IXYZ{ 1, 1 , J ) -PHP 1 *H* Al NV/ ( C *GM > 

At I XYZ< 3. I * J ) = (CCS I“P H°“ PHI P{ 3 ) l/HS I 

At I XYZ (4 . I , J ) = (S INNv (C3* AC I XYZ ( 3, t . J) + SI N I *PHP ) -oil I P ( 1))/C2 

- ' PUP-t CX^SINN-- Y>COSN > * AC I“X Y Z (4. I , J)- COSN P X“S I NN * P Y 4 C U )/{R“SU) 
t PNUF~ 1c *■ l 1 • OO U-cjU )r.iAvpK-K*fc 1 A Y / { 1,1, J) i - % H *■ t R— A 4 ( * • 000 * L SO 1 / ) 


rX-EM 1 1 2 
Cl. CM 113 
ELEM 11* 
ZLEM Ilf. 
ELEM Ilf 
El_CM 11 V 
ELEM 1 1 S 
LLCtM 11? 

, ELEM 120 
ELcM 121 
ELEM 122 
EL 2 M 123 
ELEM 1 2 A 
ELEM 125 
ELEM 12b 
ELEM 127 
ELEM 12? 
CLE M 12 0 
ELEM 130 
fcLEM 131 
ELEM 132 
ELEM 133 
ELEM 13/ 
ELEM 135 
CLEM 1 3b 
ELEM 137 
ZLE M 13S 
ELEV 13? 
ELEM 1‘. 0 

v 'lem ia: 


• AEUYZ12. I.J) )/U SO*q4*24SNU) 

AEI >Y2( 5. 1 , J ) =fUP-PNUP 

PlIC F — tAlNWlPA— iNVtAE I XYZ ( 1 * I , J 1 1 4 C £C * A£ 1 XY Z ( 2 » I ■ U I )/(E*S£C) 
AE I XYZ(6, I . J ) = R*A 1NV*PECP-SEC* AE 1XY Z< 2 , 1 . J ) 

40 CONTINUE 
RETURN 
cNC 


- r» i -* 
ELEM 143 
ELEM 14' 
ELEM IAS 
ELEM 1 4b 
ELEM 147 
EL £ V 14 5 


• S3PR0DUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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EPHEM 

DESCRIPTION 

EPHEM is a subroutine specifically designed to read 
an ephemeris tape prepare, d from a JPL planetary ephemeris 
tape but containing only those ephemerides used by GEODYN. 

The ephemerides read by EPHEM are those of the Sun, 
the Moon, Venus, Mars, Jupiter, Saturn, and nutation in 
right ascension. Lunar and nutation data are provided 
on the tape at half day intervals. All other data are 
provided at 4 day intervals. Double buffers used by EPHEM 
provide GEODYN with 16 days of resident ephemeris data. 

EPHEM interpolates the data to any desired time 
within the data span present on the data tape using a fifth 
order Everett scheme. 

The data read and output by EPHEM is in true 
coordinates of date. 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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NAME 

EPHE M 

PURPOSE 

I ) READ LUNAP 


NUTATION IN 


£) INTERPOLATE 


SCHEME 

CALLING ‘SC OUE MCE 

CALL EPHEM (DAY 


tOLAR t PLANETARY C PHxTMUK I Oc 3 AND 
RIGHT ASCENSION 

the: data using fifth order cvekett 
ONLY? Q ) 


S y Mb Cl type 
DAY OP 

ONLYEQ l 
SUBROUT IfxES USED 
COMMON BLOCK.S 

Input files 
output files 
REFERENCES 


DESCRIPTION 





INPUT - 

T I ME AT 
JAN 0 » 0 

V.HI-CH DATA 
Cf THE Rfc~E 

l S DCS I RED 
pence YEAR 

IN DAYS 
FOR THE 

FROM 

ARC 

INPUT - 

TRUE REQUESTS ONLY 

nutation b 

E CCMPUT 

ED 

ERROR 

TDI F 

YMCAY 



• 

CEP HEM 

INI 1 E) K. 

INTRLK 




0 AT P - 

EPHE ME R IS 

DATA FILE 




PRINTER 







•GECDYN OPERATIONS DESCRIPTION* - APPENDIX C 
VOLUME 3 “ CECCYN LO C UMEN T A T I CN 

•GECCYN SUPPORT PROGRAMS* - EPHEMEWIS TAPE GENERATOR 
VOLUME A - GECCYN DOC LMEN T AT I ON 


SUBROUTINE EPHcM ( D AY * ONL YEQ ) 

IMPLICIT wcAl 4c (A-h.O-Z) 

LOGICAL NOT 1 ST ♦GNLYEO 
INTEGER LaTP 

REAL *NUT .yLF Ih. EUF2N .SEC 

t>I MEN S ION o OF 1 N 1 ( 5 1 >i fiUF 1 M2 ( 5 1 ) * 0 OF IM3 ( 5 1 ) * HUF 2M I { 5 1 I • 
tUF2M2( 5 1 ) *EUF2M3(51 ) .OOF 1 S ( 27 ) , tUF2S< 2?) .OUFI VM(54 ) . 
EUF2VM(SA ) i EUr I JS15A ) ,QUF2JS(5*> «DUF 1 N ( 5 I ) * 3UF2N( 5 l > . I YMD < 2 > » 
IHM12) . SEC < c ) 

CCMMUN/C EPHEM/ AO ( 2 5 > , P.MGONC 3C6 ) . SUN (27 0) » A NU T ( 102) « DUMMY (16) 
COMMON/ IN 1 T bK / I G 1 ( 5 1 I .NOT 1ST. 1021-5) 

COMMON/ INTO L*. /I HDO Tl(2).THQTrS.lG3< 1 25 ) . KdOD Y 
EQUIVAlENCl < ELF 1 M 1 < 1 ) . PMOOM 1 ) ) . ( B LF 1M2 ( l ) . PMOUN ( 52 ) ) . 

(dUFlM3( 1 ) .FMOONI 103) ) . ( ELF2V1 ( 1 ) .PMOON( I 5A ) ) , 

<UUF2M2( 1 ) .PMOUM 20?) ) . I DUF2M3 ( 1 ) ,Pf- O JN( 2 56 ) ) • 

tour I S < 1 ) . 5 L N ( 1 ) ) , <<OUF l W( 1 ) , SUN <2E ) ) . 

<UUF) J 'j< 1 > i £’JN< i?) ) « ( HU 17 2S ( 1 ) . SUM 136)1. 

<tJUF2VM( J ) , SON ( 16 J ) ) . ( 0UF2 J S( 1 ) . SUN ( 2 1 7 ) ) . 

(riuFl N C 1 ) . A NUT ( 1 ) ) » t 3UF2NI 1 ) * AMU T( 52) ) « 

15.FS0) 

CATA CAT P/ ) / 

CATA CAYR/^ ,000/ 


REPROBUCIBILITY of thr 
original page is poS 


EPHE 3A 
EPhE 35 
EPHE 35 
EPHE 37 
EPHE 3f 
EPHE 3? 
EPHE ao 
EPHE A l 
EPHF A2 
EPHE A3 
CPHE AA 
EPHE A 5 
EPHE At 
EPHE M 
EPHE A 8 
EPHE A? 
EPHE 50 
EPHE 51 
EPHE 52 
EPHE 53 
EPHE 5A 
EPHE 55 
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“2 < a) SJS| S* »2- I. 0001/6. ODO 
. FA { £ • I 'jJ I * ( 'ivb-A « ODD ) *0 • £0-0 l 

IFtNDUST ) CO 70 4 
C INITIAL 12 ir. 

NCT IST=, TNUL. 

NtJOOT =Kc 5UJY“ l 

I UOOY = K_»OU Y *4 

FAC T Lm= 1 • OD 0/G £ • 3 0 200 

IF< GA V^.oT * ;v9£ *D0 ) GO TO 5 

SEC 1 = SiC ( 1 > 

C IF NOT FIRST tN TRY THEN R ECO ^PU TF. TIMES 
DAYF1 -YMLAY ( I YMD( I J , JHM< I ) , SLC 1 ) 

SEC 1 = Si_C { 2 } 

0AY«2=YM0mY ( 1 YMD ( 2 » . I HM{ 2) * SEC 1 ) 

IF (N.OUo i ) CC TO 2 
CAY C= LA Y -it 1 
CAYF = CAY,<2 
GO TO 3 
Z CAY0=CAYA2 
L‘AYn = lAV.O 

4 IF (CA YPAV.cG. C AY ) RETURN • 

, 5 IF ( CAY-JAYR ) 1C, CO. 50 

C IF DATA IN C0«E LATER THAN REQUESTED TIME THEN REWIND TAPE AND RE AO 
C AGAIN 

10 KChlNG JATP 

fic Aj( OATP »t. NO-200) I YMO ( 1 }, IHM<1 ) . S EC( 1) .0UFIN.3UF1S 
REACILATP .END =200 ) &UF1M1 
RE AC ( CATH .ENJ=£00 ) BUF1M2 

RE AL < LA T-h- » tNj i-d GO) LsUFl M3 

HEA£.(LAlP»LNU=£UOJ OUHVM 
Rl2AO{ CATP ,cNJ = 200 ) LUF1JS • 

I F Cl Y b'O <1 I tcO.Cl GC TO 200 
SECi-SCCI 1 i 

CAYH1=YM0AYC I YMD ( 1 ). I HM (l)fScCl) 

R£ AD< OA TP .END =£00 ) I Y<MO( 2 } . I HM ( 2 > , S EC ( 2 ) . B UF2N . 3UF2S 
REAL! CATP *LNL>=£00) HUF2VJ 
RE AC< CATP ,Zn0=£00 i BUF2M2 
RE AC t C ATP » E NO = £00 ) BUF2M3 
REAL ( DATP ,cNJ: £ 00 ) BUF2VM 
RE AC < CmTP .LNP= £ 00 ) HUF2JS 
' IF ( I YKj{ 2 ) « cJ .C ) GO TO 200 
• SEC I — SEC { 2 ) 

C A Y R 2 — Y MO A Y ( i Y MO < 2 ) . I HM ( 2 ) , SE C l ) 

CAYK=LAYR1 
0 A Y C - C A Y 2 


N = 1 


20 IF(tAY-OAYR) ECO, £0.50 
READ NEa RtCOPD 
30 REAOt CATP . £ NO =£0 0 ) IYMD(1) 
PE A0( CATP «c.ND = £00 ) HUFJM| 
REACt LATP .END=£00 ) BUF1M2 
RCA0< OATP «END=£00 > 0UFJM3 
R£ AD( DATP 200 ) UUF1VM 


IHM { l ) , SEC< 1 ) . BUF1N.3UF1 S 


RE AC( CATP ,t:ND = £00 > OUFUS 
I F ( I Y Mu (1 ) » c 0 • C ) GC TO 200 
N = 2 


s EPRODU CI3ILITY OF THE 
OMGINAL PAGE IS POOR 


t'FH£ 

SO 

EPHE 

57 

EPHE 

56 

Er>HE 

59 

EPHE 

60 

cPHE 

61 

EPHE 

62 

EPHE 

63 

EPHc 

64 

EPHE 

65 

EPHE 

6 1 

EPHE 

67 

EPHE 

60 

EPHE 

69 

EPHE 

70 

EPHE 

71 

EPHE 

72 

EPHE 

73 

EPHE 

74 

EPHE 

76 

EPHE 

76 

EPHE 

77 

EPHE 

7! 

EPHE 

79 

EPHE 

5 0 

EPHE 

61 

EPHE 

62 

EPHE 

33 

EPHE 

34 

EPHE 

65 

EHrifc. 

6 1 

EPHE 

87 

EPHE 

.0 3 

EPHE 

89 

EPHE 

30 

£PHE 

9 l 

EPHE 

92 

EPHE 

' 93 

EPHE 


EPHE 

35 

EPHE 

96 

EPHE 

97 

EPHE 

99 

EPHE 

99 

EPHE 

100 

EPHE 

101 

EPHE 

1 02 

EPHE 

103 

EPHE 

104 

EPHE 

105 

EPHE 

106 

EPMF. 

107 

EPHE 

IOC 

EPHE 

109 

EPHE 

1 1 0 

EPHE 

1 1 1 


8 . 0-211 



EPHEM 

Page 4 of 9 
October 1972 


. ;*F.ci = stc< l ) 

SAVkIsYMDAYI i YHD( 1 ) • 1H*( 1 > • SEC 1 ) 

CAYH=DAYO 
CAY 0=CAYR 1 
GO TU 50 

C PEAC NE* Rr-COtO 

40 Rc A^( DATP ,cuj=aoo ) I YMJ ( 2> ♦ IHM ( 21 ,SEC( 21 *BuF2N.3UF2S 
K£ AU ( LA TP *t_MJ = e0O I 6UF2M1 
REACICaTP iuNJ : i0O 1 B U F 2 f* 2 
Nt: AL't DATP « tNJ-200 I EjUF?« 3 
HEAD ( CAT P » d Ny- 2 0 0) OUF2VM 
Rc AUt CATP ,cND = 200 ) BUF2JS 
N=I 

seci=sec( 2 i 

C A YR2=YM0 AY ( 1 Yr<D ( 2 ) • I HM( 21 • SEC 1 ) 

C AYris=CAYO 
C A Y 0= CAY R 2 

50 I F ( DA Y • G F »l/AYC OCO I GO TO <30.A0),N 
C DATA BOUND AT CORRECT T IME - 4 NTEf* FOLA T E 
60 C A Y I = CA Y 0 

K = FlQ (N, 2 ) 4 1 

! F { DA Y • GE * O A Y 0 1 GO TO TO 
CAYi-DAYR 
K = N 

70 iNCcX=iDl.NT{ (CAY-OAYl }ft2 o 0O0} 

CAY J=CAY I +0 . jCC*DFLCAT( I NPEX) 

S—(UAY— OAY1 )*2«0D0 
FOSM .ODO-S 
" FS2 = F'2<S1 
F 2 S=F 2 l F 0 5 ) 

FAS— FA4F0S* F 2 £ ) 

F S A =& 4 ( S » F 5 2 1 
INDfcXO= I N'OEX* 2 ♦ ( K— 1 1 *51 
C ••♦NUTATION 

AO ( 2- )=ANUT ( I NCEX 0 4-3 1 *F A S 4 A NUT ( 1 N C EX 0 4 6 ) *F S4 4- 

1 ANUT ( I NUE XO 42 > *F 2 S + A N U T ( I N CEX 0 4- 5 ) *F S 2 4 

2 ANUT ( IKCEXO ♦ 1 > *FOS 4- A N UT { I N C EX 0+ A 1 +F S 0 
A0<2;> > = AO t 26 1 + TC IF 0,4,0 AY ) A7HCT2S 

C AY FrlV-l • 00450 

C IF CNLY NLTATIJN REQUESTED, RETURN 
. IF ( CNLYEQ 1 RETURN" 

I NOcX 5= ( K - 1 1=4 1S34 INCEX*9 
INOcXc= I.NDcXb 4 <5 
C •••LUNAR EPHtiMdfUS 
DO vO 1=1*3 
13 = 14*3-3 

I NOL X 1 = I N DE X 5 4 13 ' * 

IN0cX2= l.NDEXo 4 I 3 

90 A0( IJ=PROUN( INCFX1 43)*F4S 4 FMCUN ( 1 A CEX24 3 > *FS4 4- 

| PMOONC l NUEX 1 +2 1 *F2 S 4- PM CON ( 1 NOE X 2 4 2 1 *F S2 ♦ ' 

2 FMOCJN( I NLEX1 41) *FOS 4 PM COH l l N CIX 2 4 1 ) * F 5 0 

1NCEA=IDI NT ( { C/> Y-OAY I 1*0 « 25C0) 

CAYl-CAYl 44.0UC<;0FL04T< I NDC X > 

S=( LmY-DaYI 'J *C .2300 
F 0 S= 1 ,000-S 
FS2=F2(S) 


EPHE 

112 

EPHE 

1 13 

EPHE 

1 i * 

EPHE 

1 IE 

EPHE 

116 

E PH £ 

11- 

EPHE 

l !H 

EPHE 

1 19 

cPHE 

.120 

EPH" 

12 l 

EPHE 

122 

EPHE 

123 

F.PHE 

124 

EPHE 

125 

EPHE 

12c 

EPHE 

127 

£PH C . 

12? 

EPHE 

1 25 

EPHE 

130 

EP H E 

131 

EPHE 

132 

EPHE 

133 

EPHE 

] 3* 

EPHE 

123 

EPHE 

1 36 

EPHE 

13^ 

EPHE 

133 

EPrtE 

1 3? 

EPHE 

140 

EPHE 

1-M 

EPHE 

l-*-2 

EPHE 

l* 1 - 3 

EPHE 

l'*.A 

EPHE 

I 4E 

EPHE 

i a 

EPHE 

lf-7 

EPHE 

14? 

EPH£ 

lf-9 

EPHE 

150 

EPHE 

151 

EPHE 

152 

EPHE 

153 

EPHE 

154 

EPHE 

.155 

EPHE 

15c 

EPHE 

15’ 

EPHE 

155 

EPHE 

15c- 

EPHE 

160 

EPHE 

! 3 1 

EPHE 

162 

EPHE 

1 = 3 

EPHE 

16' 

EPHE 

ICE 

EPHE 

16E 

EPHE 

16 7 
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F2S=F2U-0S> 

. FAS=r4(FOS*F2bl 
FS4-p4(bi H i <i J 
lNDcX j=( K.- 1 ) * 1 254 I NDEX*9 
IK'DcXo-INDHXj^ 

C « * * SUN t PLAN c T S { VENUS. MARS «JUP I TER t SATURNl 
DO loO J= 1 ♦ NJUY 
1ND;:AU = L*J 
J27=J*27-27 
I N’DiiX3= l NDL A j 4 J27 
IKDtX^=lNUtXy4j27 
DO 100 I r 1 r 3 

13 * 1 * 3-3 

XNDtiX 1= INDEX J* 13 
IN0tX2= I.NlDc X4 4 13 

100 A0( iNCdXO *1 )=£LN{ I N(>EX1 + 3)*F^ S +. SUM I NO EX 2 4 3) *F S4 + 

• SUN( iNtcXl «£)*F2S 4- SUN< INPE X2 4 2 )*F S2 4- 

• SO N( IN JcXH 1J4F0S 4 ' SUN! INDEX2+ 1 >*FS0 
C CONVERT Sun TO G-l CENT R 1 C 

>0 ( 5) -A0( ii) +F ACTOR *A0< 1 ) 

AO ( c J = AO! L ) IF ACTC1F*-A0( 2 > 

AO ( 7) SAU( "J ) +F ACTOR*AO ( 3 ) 

1H(N-jC0Y«i_T .2 ) GO TO U 0 
C CONVERT PLANET Tu CEOCcNTKIC 
CO lOt I = 2 » NJ C C Y 
11=1*4 

' A0( II *1 ) - AO ( I J 4 1 1 4 A0{ 5) 

AO! 11 42)=:AO( I 1 42 )♦ A0(6) 

1C5 A0( II 4J1 = A0 t I 1 42 J 4 AOl 7) 

110 DO 120 I = 1 • l b CC Y » 4 
L= I 4 J 

A 0 < L ) = AO ! 1 ) * A C ( I ) 4 AO ! 1*1 1 * A 0 ( 1*1 >+AC!l42)*A0(I+2) 

AO <L) =OoORT (ACILJ) . 

L1=L-1 

- DO 120 J= 1 . LI ‘ 

120 AO ( J) =AO( J ) ✓ AO (L ) 

CAYFRV=JAY 

RETURN 

C NO DATA AVAILABLE. THIS LATE 

200 MHl TE (o. 1 000 > 1 Y V D (K}»IHM(K)«SEC(K) 

' CALL tk,<OH( 7 , C / Y 1 
C NO CATA AVmILmOLE THIS F.ARLY 

300 WRI Tc (0 . 2000 ) IYMB (N> • IHM(N > *SECCN) 

CALL ERROR ( 7 * C / Y ) 

1000 FORMAT! ' 1 PROGRAM TERMINATED'/' ©INSUFFICIENT EPHEMER IS DATA*/ 
I* * OL AS T CATA POINT ' * I Si I 6 • F3 • 5/ } 

2000 FORMAT! • l PROGRAM TERMINATED */• 0 INSUF^ 1 C I ENT EPME MER I S DAT A* / 
1 4 OF I WS T DATA POINT* « I £ » I6»F 3*5/1 

STOP 
END 


PPHE lie- 
EPHF 169 
EPHE 1 7 G 
EPHE 171 
EPHE 172 
EPHE 172 
EMHf. 17 A 
r.PHE 17 5 
ilPHE 176 
EPHE 177 
EPHE 17S 
EPHE 179 
EPHE 130 
EPHE 161 
EPHE 162 
EPHE 153 
EPHE 134 
EPHE 135 
EPHE 19C* 
EPHE 137 

cphe Tee 

EPHE 13* 
EPHE no 

EPHE 1?1 
EPHE 192 
EPHE 193 
EPHE 194 
EPHE 1?f 
EPHE 196 
EPHE 107 
EPHE 190 
EPHE 199 
EPHE 200 
EPHE 201 
EPHE 202 
EPHE 203 
EPHE 204 
EPHE 205 
EPHE 206 
EPHE 207 
EPHE 205 
EPHE 20* 
EPHE 210 
EPHE 211 
EPHE 212 
EPHE 213 
EPHE 214 
EPHE 215 
EPHE 215 
EPHE 217 


'^CnUCIBILnY OF THE 
.PiGlAAL- PAGE IS POOR 
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e'phem 




/’ 
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EQN 

DESCRIPTION 

EQN is a real function who.se value is the equation 
of the equinoxes (nutation in right ascension) . EQN also 
returns the nutation in longitude, the nutation. in 
obliquity, and the true obliquity of date. 

Multiple angle formulae have been used to reduce 
the massive number of trigonometric evaluations in 
Woolard's solution. 


8 . 0-218 



EQN 

Page '2 o£ 6 
October 1972 


NAME , EQN 

PURPOSE COMPUTES NUTATION IN LQNGI TUDG ♦ NUTATION IN 

OBLIQUITY. TRUE Cc*LIOUTY OF DATE* AND NUTATION IN 
' RIGHT ASCENSION (EQUATION OF THE. EQUINOX I 


CALLING SEQUENCE tOM ( D J » OPS I t Cc » E ) 


SYMBOL 

TYPE 

CESCRIPTION 

DJ 

UP * 

INPUT - 

JULIAN DATE 

DPSI 

DP 

OUTPUT 

- NUTATION IN LONGITUDE - RADIANS 

06 

OP 

OUTPUT 

- NUTATION IN C8LIQUITY - RADIANS 

E 

OP 

OUTPUT 

- TRUE OBLIQUITY - RADIANS 

ECN 

DP 

OUTPUT 

- NUTATION IN RIGHT ASCEN5I0N - RADIANS 
(EQUATION OF THE EQUINOX) 

SU3RQUT IN 6 

S USED 

NONE 

• 

COMMCfJ £lGC<S 

fiCN'E 


INPUT FILES 
OUTPUT FILES 

NONE 

NONE 

REPRODUCIBILITY OFTHS 

ORIGINAL PAGE IS POOH/ 


RESTRICTIONS ALL PERIODIC. . 1 E R MS (N WOOLAKO : S THEORY WITH 

COEFFICIENTS LESS THAN ,001 SFCCNDS OF AFC HAVE 
EEEN NEGLECTEC. ALL SECULAR PORTIONS OF THE 
COEFFICIENTS HAVE EEEN NEGLECTED WHENEVER THE 
•SECULAR COEFFICIENTS ARE LESS THAN ,001 SECONOS 
CF ARC • 

REFERENCES THE FCRMULATICN BY EDGAR WOOL ARD MAY BH FOUND 

IN 4 PUBLICATIONS - 

1* ASTRDNCM I CAL PAPERS PREPARED FOR THE USE OF 
AMERICAN EPHEMERIS AND NAUTICAL ALMANAC - 
VOLUME IS, PA«1 1* RAGE 153 (THEORY OF THE 
ROTATION CF THE EARTH AROUND ITS CENTER OF 
MASS - BY EDGAR W, WOOLARD) 

. 2- EXPLANATORY SUPPLEMENT TO THE ASTRONOMICAL 

EPHEMERIS AND THE AMERICAN EPHEMERIS AND 
NAUTICAL ALMANAC - PAGES 44 AND 45 

3 ® IMPROVED LUNAR EPHE4ERIS 1952-1959 - A JOINT 
SUPPLEMENT TO THE AMERICAN EPHEMERIS AND THE 
(BRITISH} NAUTICAL ALMANAC - PAGES IX AND X 

4 , ASTRONCMICAL JOURNAL, 1953 FEBRUARY, VOL, 53, 
NO, 1, PAGES I -3 (A REDEVELOPMENT OF THE 
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THEORY cr NUT A 1 1 ON - UY EDGAR W. BOLLARD) 

•GEODYN SYSTEMS CF. SCR IPT I CD 1 - $EC* 2*3.6 0 2*J*6*2 
VOLUME 1 - GFCCYN DOC L*-F;NT AT ION 

♦’EXPLANAT DRY SUPPLEMENT TO THE AMERICAN EPHEMER I S G 
NAUTICAL ALMANAC". PP* 44-45*93 


FUNCTIUN tOM C-.uPSI » DS » E ) 

DOUulE P5£C I S ICN 'OJ.D.CO ,C 1 ,OPSJ ,DE ,E 

Cl PENSION SCF ( 24 ) * S<34) . CCE ( 19 > ♦ C C 1 9 ) ,FARG C 5 ) • CO < 5 ) • C 1 ( 5 > • C2 ( 5-) • 
1 C 3 £ 5 ) 

DATA C0/4S* io & COO 345745D 0» 46,256 S835304R7D0. 

1 40* 19636 E054d67DC. +6 . 1 2 l 52 3942b 07D 0 , 

2 44.S22601E1 4652DC/ - - - — : 

DATA Cl/40* 22£ C27 1 2*9395 ?6D C . 4 O. 0 1 7 20 1969 7 66 6 46D 0 ■ 

| 40*230-3 357232 3 03??00.+0*2 12760 71 16751 4000. 

2 -0*00 092^22 C2942 2500/ 

DATA C2/ < 0* 1 2C251 69E- l 2 « -0. 00 1 962' 0 5-1 2 . -0 . 04200996E- l 2 ‘ 
l *-0*01 378c 19E-12 . <0. 0 27 t 329 15--1 2/ 

DATA C3/4S* IS J676E-21 .-1 • 192Q46E-21 .“0. 1 19 39 5E-2 1 . 

1 40.67657 IE— 21 . + 0 *7 J VS?6SE-21 / 

DEFINE CONSTANTS COEFFICIENTS CF SINE AND CDSiNE TERMS 

.DATA SCF / 0 • » — 1*2725.40, EOS 3 *-0*2037 .40.1 261 .40.0675. 

1 -0* 049 7,-0.03 4 2,-0, 0261 0. 021 4,-0* 0 1 49, 


40. 0124 
— 6 • 0052 
40 • 0022 
40*0019 
- 0 . 001 3 


DATA CCF/49 • 2 ICO. 4 0*5522 ,-0. 09C4 , 4t> .0C06 , 40. 021 6 . 


■« 0.011 <’>. + 0. J060.40.005S.-0.0057* 
4 0.004 Ci +0. 004 5. — 0. 0 04 4 , — 0. 0032* 
40.0U2t.-U. U02O.4U. 002o*-U.0021 . 
40*001 6.-0.0015. — 0.0015.40. 0014, 
-C.001 C. <0.00 10/ 


1 . 40* 010 3 

2 -0*0031 

3 40*0014 
REALvd DM Gy * AFGVOD *DTWOP I 

DATA DTwOPI /3 . 2 331 e 5 3071 7956600/ 

C COMPUTE 0 = NUMBER QF DAYS ELAPSED FROM 
C EPHc ME R 1 5 TIME 

D=D J-241 5020. C C 
C2 = C.4 D 
D3 = C 4 C2 


40. 0113. -0.0093. -0.00 66, -0.0050* 
40*003C*-0* 00 2 4*40*0 03 3*40*0022* 
- 0. 001 1,40. 001 1 .-0* 001 0/ 


1900 JANUARY 0.5 DAYS 


C COMPUTE FUNDAMENTAL ARGUMENTS AND REDUCE BY MODULUS 2 P I 
C FARC(.l > = Mu. A N ANLftALY - MOON 
C FARG <21 - MEAN ANCRALY - SUN 

C FARGO) = MlAN mKGLMENT OF LATITUDE - MCON 
C F ARG ( 4 ) = Me. A N ELONGATION OF MOCA FRCM SUN • 

C FARGO) = LONGITUDE OF MEAN ASCENDING N CD E - MCON 
OO l N= 1.5 

AP GN0C = C0 ( N ) 4 C M N ) * C 4 Of) L E ( C 2 ( N ) * P 2 ) < DOLE ( C3CN) *D3 ) 

1 FAPL-(N)=OMUL( ARGMOC.DTtfOPI ) 

C COMPUTE SINES AND CHSINE5 CF FUNDAMENTAL ARGUMENTS ANO THE 
C CCMOI.NATILN DF THc FUNDAMENTAL ARGUMENTS 
S(1)=SIN(FA«C(S)) 


EON 

67 

EON 

68 

EON 

69 

EON 

70 

EQN 

71 

EON 

72 

EON 

73 

EON 

74 

EQN 

75 

EON 

76 

EON 

7 7 

EON 

70 

EQN 

79 

EON 

so 

EON 

a 1 

EON 

32 

EON 

83 

EON 

94 

E GN 

65 

LON 

ot 

EQN 

C? 

EON 

89 

EON 

ft 9 

£cn 

90 

EON 

9 1 

ECN 

92 

EON 

93 

EON 

94 

EON 

95 

EON 

96 

EQN 

97 

EON 

9 B 

EQN 

99 

EON 

100 

EON 

10 1 

EON 

102 

EON 

103 

EQN 

104 

EON 

105 

EON 

106 

EON 

107 

EQN 

100 

EON 

1 09 

EON 

1 l 0 

EON 

I 1 1 


reproducibility of the 
ORIGINAL PAGE IS POOIJ 


8 . 0-220 



EQN 

Page 4 of 6 
October 1972 


C< 1 K ~ CUS(fAKC(b)l 
S { 2 i ~ 2*U*bCl}*C(ll 
C ( 2 I = C(l)’rv2-S(l)»42 
S F b S I N ( f A N C ( 3 ) } 

CF b CUS(FAFC(3)> 

•S ( 2 5 > - 2.0*SF*CF 
C2 F .« CF**2-SFv-*2 
SU = b I N( FAKCt A | l 

co » cose FAr-c(‘i > > 

S( 1m} = OvSu^CD 

C2D = CO**2-2C* *2 

SC4> = SC 2o 1 *C (2 J *C?F *5(3} 

C<4} - C2F *CC2)-S(25)FS<3) 

AL s Si(A)*CtfC 

-AL! = C{ A ) *5 { ] \ ) 

AL2 = SC 4 > *S < 1 4 > 

AL 3 - C(4}*C2C 

5(2} = AL -AL1 
C ( 2 ) - AL 3 F AL i. 

S C S 11= AL +AL 1 
C< tc } = AL3- AL 2 
S ( 6 ) = b I N( F A KG( 2 ) > 

CL 1 * CiJSC F AhC ( 2 ) > 

S ( 2c ) = JtCLI . 

C2L 1 = CLl>K2-b(5}tf2 
S ( C 1 = S I N ( f- A m G ( 1 ) > 

CL = COS( F- AFG( 1 ) > 

3( 22) s P.OVbtfc ) *" CL 

C2L = CL ♦ *= 2- S <6 ) * * 2 

SCO) - St2b’l*C (1 J+C2F * S ( 1 ) 

C(£} =’ C2F >C Cl J-SC 25) *SC 1 ) 

0E = S(2)*CL1 

EEl = Ct 2} *5 C* ) 

Ob 2 = £( 2 ) * 3 ( ‘ ) 

863 = t( 2) *CL 1 

5(7} = Utl ■♦-cel} 

C( £ ) = 6£3-dc 2 
$(10>= bt “til 
C( 8 } = bh J + Lc2 
GA * SC 4} ?Cl 
G A 1 = C( 4} * 5 (6 ) 

C-A2 = 5(4'} *5(0 

GA3 = C C 4 ) * CL 

S ( 9 ) = GA F G A 1 

C C 7 } = GA3-GA2 

SC 12} = GA “GA 1 

C< 10}= GA3+CA2 

S(ll>= SC6>=?C2C-CL *5(14} 

CT = CL *C2C+S ( 6 1 ts( i 4) 
S(12}= S( b ) * C2 L-C ( 6 } *S< 1 4 ) 

C ( 9 } = CCo) FC2C*S(ei*S( 14} 

DC S S( 1 } * C L 
DEI = C( I ) *S (t ) 

DE2 = SC 1 ) *S U ) 

CE 3 = C( 1 } 4CL 

5( IS} = DE Fpc 1 


ggSS® 1 ® pooa 


EON 

112 

EON 

1 1 3 

EON 

11' 

eon 

1 IS 

EON 

11 c 

EON 

117 

EON 

1 1 e 

COM 

119 

EON 

120 

EQN 

12 1 

SON 

,12 2 

EON 

123 

EON 

12' 

EON 

125 

EON 

126 

EON 

127 

EQN . 

12? 

EON 

129 

EON 

120 

EON 

131 

EQN 

122 

EON 

1 32 

EON 

12' 

EON 

135 

eon 

1 3 1 

EON 

137 

EON 

13c 

EON 

139 

EON 

1' 0 

EON 

14 1 

EON 

142 

EON 

14? 

EON 

1' A 

EON 

1A? 

ECN 

146 

EON 

147 

EON 

1 a e 

ECN 

1AC 

EON 

ISO 

ECN 

15 1 

EON 

152 

EON 

1 53 

EON 

1S«. 

EON 

155 

EON 

156 

EON 

157 

EON 

15C 

EON 

159 

ECN 

160 

EON 

16 1 

EON 

162 

EON 

162 

EON 

lot 

EON 

165 

ECN 

16 6 

ECN 

16 7 
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C< 1 H = i>L3- C=2 
, S{ l()= i)c —Dei 
CC 12) = DEJ* C_2 
S ( J 7 > = 5(2I)*CU -C(K )*S( 6 ) 

,CU:)s C(i 6 )«CL*S<?l)*S( 6 > 

S(Ie>= 3<d) * C £L- C ( 6 ) *S(?2) 

C<li)=U( 6 ) vC2L + SOi) *S(22) 

StlVi- St 22 ) ^ C 2D-C 2L *S(14) 

CP = 6 ( £ i * CL 

CP I = C ( 6 ) v ii ( £ ) 

£P 2 = St 0 ) + 5 ( ) - 

EP3 - C(u)*Cu 

S( 2 0)= *iP <-£P 1 

C ( 1 4 1 = EP3-LP2 

St 2 / > = tiP -£P i 

C( 1 9) = I£P3+CF2 

S(23)= S(2)*UL +C(2)*S(e) 

C ( 1 7 ) = C ( 2 ) * CL -S(2)*S(6I 
S<24)= S(4)*C2L +C(4)*S(22) 

C ( 1 c 1 = C(4>*C2L -S<A)*S{?2> 

S(2c)= S(25)*C2D - S < 14)* C2F 
S <29) = S<2) *C5L1+Ct2> *S (28) 

ZE = S( 1 ) *CL 1 
2E t = C( 1)»S(J) 

St 22) = ZE-Zl:l 
St 30 ) = ZE + Ztii 
AMU = SC 1 ) *CT 
AMU l a C ( 1 ) *5 1 li ) 

St 2 1)- AMU- AMU 1 

. k .St.,2,2J = AM.U+ AMU 1 , . 

St 3*.!= S( 22 J *C2F-C2L*S( 25) 

C DEFINE VAKlauLd COEFFICIENT UF SINE TERM 
SCF(1)= -17*2227 - * 47S56*6£E'- 6*C 
c COMPUTE NUTATION IN LUNGiTUCE UY SUMMING PRODUCTS OF SINE 
C COEFFICIENTS wITrt THEIR RESPECTIVE SINE TERM 5 

C COMPUTE NLTAT1JN IN OF-UIOUITV BV SUMMING PRODUCTS OF COSINE 
C COEFFICIENTS &1TH THEIR RESPECTIVE COSINE TERMS 
DPS 1 = 0 
CE =0 
CO 3 N=1 . 19 
DPS I = C.PS I +S CF ( N ) *S ( N ) 

3 DE£ =Dl +CCF(N)*C(N) 

DO 4 N = 20 * 3 A 

4 DP S I = OPS l+SCF(N)*S(N) 

C CONVERT FRJ-t SeCDNCS OF ARC TO RADIANS 

DPSI-=CPSI *• US A f 1 366D-0f ’ 

DE = CE*.Al.4c 1 3c cO-OS 

C COMPUTE T kUc. ObLlCUlTY CF DATE IN RACIANS 

E=0 .4 09 3157 cUC-£. 2179590-9*0-. 021 A A lf>- 1 5*D2 + • 1 00 0-370-2 1 * D 3 ♦ Dc 
C COMPUTE NUTATION IN RIGHT ASCENSION (LOCATION UF THE EQUINOXES) 

C IN RADIANS 

EQN=DPSI* JCCS(E) 

RETURN 

END 



EON 

1 (' *' 

EON 

169 

EON 

170 

HON 

171 

EQN 

1^2 

EON 

173 

EON 

1 7 A 

EON 

175 

EQN 

l?( 

EON 

1^7 

ecn 

1 7 P 

EQN 

.17 9 

EQN 

130 

EQN 

131 

EQN 

1 S 2 

EON 

153 

EON 

UJA 

EON 

1 35 

EON 

lob 

EON 

137 

ECN 

1C>3 

ECN 

109 

EON 

190 

EON 

I °1 

EQN 

192 

ECN 

193 

EON 

1?A 

ECN 

195 

EQN 

196 

EC N 

197 

tUN 

ive 

EON 

j 05 

ECN 

2CC 

ECN 

20 I 

EON 

202 

ECN 

203 

ECN 

2 0 * 

EON 

205 

EON 

20 6 

EON 

2 07 

EON 

205 

ECN 

205 

EON 

21 0 

EQN 

21 1 

ECN 

21 ? 

EON 

213 

EON 

21 A 

EON 

21 5 

EQN 

216 

EQN 

217 

EON 

216 

EON 

21 * 

EON 

220 

EON 

221 
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} 

EQUATR 

DESCRIPTION 



Subroutine EQUATR rotates a vector from mean 
or true equator and equinox of one epoch to mean or 
true equator and equinox of another epoch. 

•This routine invokes subroutine PRECES and NUTATE 
to generate. the requisite rotation matrices. Note that 
the precession matrix is to precess to the given epoch 
from the mean equator and equinox of 1950.0; the nutation 
matrix rotates the vector from mean to true equator and 
equinox of date. Hence, the last two of the possible 
four rotation matrices generated, must be inverted. 


reproducibility of the 

original page is poor 
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tfAME 


EOUATf? 


PURPOSE TO ROTATE VECTOR FROM ME AM OR' TRUE EQUATOR AND 

EQUINOX OF ONE EPOCH TO M£AN vIR TRUE EQUATOR AND 
V - EQUINOX OF ANOTHER EPCCH 


CALLING SEQUENCE CALL CQUA TR < X » D I N * T i N . Y , DDUT » T CUT ) 


SYMBOL 

TYPE 

DESCRIPTION 


X 

DP “ 

INPUT - INPUT 

VE 

<21 




DIN 

OP 

INPUT - DAYS 

FRO 



INPUT 

VE 


CTOR 

V J AN 0,0 OF REFERENCE YEAR FOR 
CTOR 


TIN L INPUT - TYPES OF INPUT : 

•TRUE* = TRUE COORDINATE SYSTEM 




• FALSE 

Y 

DP 

CUTPUT - OUTPUT 

<3 ) 



DOUT 

DP 

CUT PUT - DAYS F 
OUTPUT 


• = MEAN COORDINATE SYSTEM 

VECTOR 

RCM JAN 0.0 OF REFERENCE YEAR FOR 
VECTOR 


TOUT L CUTFUT - TYPES OF OUTFUT 1 

■ »TiUi * — •• T R LE "-COO R O T N A T C SYSTEM 

©FALSE » - cmN COORDINATE SYSTEM 


■SUBROUTINES USED 

NUTATE 

PRECES 


CCMM3N CLOCKS 
INPUT FILES 

NONE 

hONE 

BEPBODUCIBILITV 
ORIGINAL PAGE IS 

OE THE 

POOR 

CUTPUT FILES 

NONE 



REFERENCES 

•GEOC YN 

SYSTEMS DESCRIPTION* 



VOLUME 1 

- GECCYN DOCUMENTATION 



SUE RO UT INS t QUA T R (X.DtN.T I N * Y * DOUT . TOUT ) 

RE AL*e X( 3 ) . Y ( 21 . NF< 3, 3 . 4 » . T( 3 ) .DIN ,D0UT .TEMP 
LOGICAL T IN .TCLT 

IFt.NCT.T IN) CC TO 10 
Vk 1 

c OUT AIN MATRIX TC NLTATE FROM TRUE TO MEAN OF INPUT EPOCH 
CALL NUTATE < DIN ,NP( 1 . i , II ) 

C OBTAIN FATRIX TC PFECESS FROM INPUT EPOCH TO 1950 
10 CALt Fr<t-C cS (DIN. NP (1 .1.2)1 
C OBTAIN FATRIX TO PKECtSS FROM OUTPUT EPOCH TO 1950 


EOUA AS 
EOUA AC 
COUA A 7 
EQUA A C 
EOUA 49 
EQUA 50 
EOUA 51 
EQUA 52 
EOUA S3 
CQUA 54 
EQUA 55 
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CALL PkcC £6 (DOLT 

* NP < 1.1,311 


EOUA 

56 


N = 3 



EOUA 

57 


' IF< .NCT.TOUT ) CO 

TC 20 


CQUA 

5 h 


• N = A 



EQUA 

50 

C OBTAIN FATRlX TJ NUTATE FPCJM TRUC 

TO MEAN OF OUTPUT EPOCH 

EOUA 

60 


CALL NU T AT H (UulT 

, NP< 1 , 1 , A) ) 


EQUA 

61 

C TRANSPOSE UUTt’ul tPOCH PR^CLSSICN 

AND NUTATION MATRICES 

EOU A 

62 

20 

DC 30 . 1=1,3 



EQUA 

63 


Y < I ) = X ( I ) 



EOU A 

6 A 


DC 30 3=1 ♦ 3 



EQUA 

e> 6 


CO 30 K-3.N 



EOU A 

£6 


TERF=NP( I » 3 »<0 



EOU A 

6 7 


NPt I . J i 6 ) “rP ( „ , l 

, K > 


EOU A 

6 F 

30 

NP{ Jt 1,0= TtMF 



EQUA 

6? 

C ROTATE INPUT VcCTCR 

TO OBTAIN OUTPUT VECTOR 

EOU A 

70 


DO 60 K=M,N 



EOUA 

7] 


CC 50 1=1*3 

- 


EOU A 

72 


T< I 1 — Y ( i ) 


■ 

EQUA 

73 

50 

Y{ I 1 = 0.30 



EQUA 

7 A 


CC fcO 1 = 1 .3 

*■ 


* * EQUA 

75 


DC .60 0= 1 , 3 



EQUA 

76 

60 

YdlsYU) +N P( 1 « J 

> * T ( J I 

. 

EQUA 

77 


RETURN 


- 

EOUA 

73 


■END 



EQUA 

79 


• reproducibility of thf 
original page is poor 
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NUTflT£ 

r 0ST<VL(O CUrP^T > 
T?rrr e To 

NUTftTOrt, 

lYWftlX 


NuTAte 
pr^TA^M xnpvt 1 
VPCTG T^OS TO 

Ke^M Noxarxo,*// 
frtRTR-XK 




riMwspkse ootpot| 
p«vre Pf^cessxoN 

ftKJfc NUTftTSO^I 
tt\f\TP-XCes 


pieces 

oBrnxM z-’Jnt 
3?nrc to \qs^ 


mfvrtfxx 



PfrgCGS 

'o&tain oorpo* 

*pftTG To tsso 

PRece<;$xo/o 

mpiTkxx 


iv.olti.pls impot 

NeCToR. as 
PftecesSXOAJ 

fllOD fOOTftTXOM 

tWf\Tp.3ice& 



"ReroRM 

VICTOR XN) 
OOTPOT 
Coo^UXfJftTe 
system 


ReroR.iO 


REPRODUCIBILITY op THP 
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PURPOSE 

CALL INC, S EOUENCE 
SY-MHOL TYPE 
NUMBER 1 


A DP 

SUQKQUT INES USED 
COMMON ELUCKS 
INPUT FILES 
OUTPUT FlLLb 
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error 

TO PRINT GEODYN ERR UR MESSAGES AMO PROVIDE ERROR 
IERM INATION 

CALL ERROR (NUMRER. A> 

DESCRIPTION 

ERROR TYPE CODE NU'SiiER AS FOLLOWS: 

NUMBER ERROR TYPE 

1 INVALID INPUT ORUITAL ELEMENTS 

2 . INVALID ADJUSTED ORBITAL ELEMENTS 

2 INVALID OPTION CARD IN INPUT 

4 NO TRACKING DATA FOUND IN DATA PERIOD 


t 

7 

c 

S 

1 C 
1 1 
12 


FEWER THAN F WEIGHTED OBSERVATIONS LEFT 
NO DATA CARC TERMINATING INPUT CARDS 
OTHER ERRORS - NO EXPLANATION PRINTED 

duplicate STATION in tracking complement 

REQUEST FOR ADJUSTMENT OK A STATION 
WHICH IS NOT IN THE TRACKING COMPLEMENT 

PRINT GEODYN SIGNATURE 

I/O ERROR IN De A» READ 

GEOPCTENTIAL COEFFICIENTS OUT CF range 


12 C 14 ILLEGAL SURF CARD 

1 £ INSUFFICIENT DENSITIES ADJUSTED RELATIVE 

TO THE NUMBER OF CONSTRAINTS 

NAME OF INVALID OPTION CARD IN A6 FORMAT OR THE 
STATION NUMBER IN ERROR. NOTE THAT WHEN THIS 
VARIABLE IS USED AS a STATION NUMBER IT MUST BE 
/N INTEGER IN THE CALLING PROGRAM AND MUST START 
CN AN EVEN CORE LOCATION 

NCNE 

FERMSG 1NTOLK 

NONE 

f P 1 “ 1 L * REPRODUCIBILITY OF the 

ORIGINAL PAGE IS POOR ' 
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SUBROUTINE 6 R NCR < NUMBER , A ) 

RE AL* t Ot'OK cL ( Z ) /6HDLGKEE • 5HOR CER/* A 
EOU IV At-LNCL ( 1STA«E> 

CCVNuN/'FuPMbG/ IMF'S (26) 

CO HMOU/ INToLK/ CUM ( 112)*STEP S‘* * 0UM2 (191 
LOGICAL STtPSfc 

e=A 

SELECT /'NO PRINT E PR OR MESSAGE no. 1 40 . 1 40 . 150» 160) ♦ 

GO TO {10, 20 , 2 C, 4 0.50, 60, 100, 80, <50, UO , IZO * 130,1 

. NUMBER 

FATAL E PR OR 5 - TERMINATE 'PROGRAM 
10 VK I TC <6 .500 ) 

GC 1C 100 
20 WRl Tc (6. 5 10 ) 

IF ( .NUT. STEPS w ) WRITE-16* Sll ) 

1F( STEPS wR!TE(6t512) 

WRITE(6.S13> . 

GU TO 100 
30 WRITE (6,500) A 
GO T C 100 
40 WR I T c 1 6 » 5 70 ) 

GO TO 100 - 

SO w R I TC (6.530 > 

GO TU 1 00 - 

'<60 WR l ib (6 ,5 7 O ) 

GO TU 100 

90 WRITE (6, 6 10) 1ST A ^ 

100 YiR I TC C 6 , 9 99 99 1 

ST CP * • 

; NCN-FATAL ERRORS - RETURN 
80 WR I IE ( 6 . 6 00 1 ISTA 
110 WRITc(6«9-*999 ) 

RETURN 

■ FATAL ERRORS - TERM NATf? PROGRAM 
120 WfM Tc ( ot 620 ) I ST A • 1 ME S 
GC 1U 100 
130 J=NUMEtK-ll 

WHIT c ( 6.630 ) CEGREE(J) 

GO TU 100 
WfU TL <6.6401 A 
GC TU 100 
»R1T£ Co. 660) 

GO TU 100 • ■ 


140 

ISO 

160 

500 


WR I TL ( 6 , 6 60 1 

FCRMATUHi . 20X ,‘PRCGRAM TERMINATION DUE TO ILLEGAL INPUT'/ 

/ HO 15 X. 'Explanation: INPUT cartesian epoch elements 

* .EQUIVALENT TO KE PLE RIAN ELE ME NT 5 W I TH AN ECCENTRICITY'/ 

A 1H *20X, 'GREATER THAN 1. PLEASE CHECK INPUT ELEMENTS AND 

* .EXAMINE INPUT DECKS FOP MISSING OR OUT OF OROtR CARDS. 
£10 FORMATC1H1.20X, 'PROGRAM TERMINATION DUE TU I N APPR OPR I ATE INPUT. 

S l 0i r ° IhoI^x.'Explanation; adjusted cartesian epoch elements 


ERRO 
EP«C 
FRRO 
ERRC 
ERRO 
ERR O 
ERHO 
ERRO 
ERRO 
ERR C 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
EHRC 
ERRO 
ERRC 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
EPRC 
ERRO 
ERRO 
ERno 
ERRO 
. ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
ERRO 
EPRC 
ERRO 
• .ERRO 
ERRO 
ERRC 
ERRO 


/ > 
*/ 


60 

61 

62 

63 

6 A 
, 6 f 
66 
67 

60 

70 

71 

72 
72 

7 4 

75 

76 

77 
7 1 
7c 
SO 
61 
62 

63 

64 
3 S 

et 

67 

86 

89 

90 

9 1 

92 

93 

94 

95 

96 

97 
96 
99 

100 

10 1 
102 

103 

104 

I 05 
106 
107 
ior. 
109 

II 0 
1 1 1 


REPRODUCIBILITY OF THE 
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CARD 

/ 


2 *fcUUIVALETNT TO KE Fc£ RTaK ELEMENTS WlTH CCCUNT^T Cx T V 

•3 IH ./OX.-GHCATER THAN 1 . • / 1 M C . I OX . • CflUEJ AHLU CAUbr .. . 

£11 FORMAT UM .WOX.MI POOH FIRST ITERATION OHl’IT DUb » ' * 

, . STARTING CLtMHNTS CP A STEF SITE TOC LARGt FOR THE V 

2 IH . PilX.'NUFfHICAL OBOIT INTEGRATION IN THE FIXED ST..P 

E 12 3 K 0 F.NATUN J '^ 0 x!-l) POOR FIRST I TCRA 1 l ON 0 RO I T DOC TO POOR *. 

i .starting elements or inappropriate error oounos. . 

S13 rOBMATUH .2DX..2) THE EXISTENCE 0= WILD DATA POINTo WHICH 1. - 
« . n jt ei'ITt'D FROM THE: SCLUTICN.*/) 

560 ■FORKAT(IHl, 2 JA.*PftCCRAM Tf. R V I N AT I ON DUE TO ILLEGAL IN^U 

1 ‘ 1HO, IS* ,*'£XPLANAT IONS T He: CARD * . A 6 » * IN T H_ OPTION 

2 • GROUP IS ILLEGAL. PLEASE CHECK INPUT FOR KEYPUNCH 

3 IH , 20 X . * ERRURS OR MISSING OP MISPLAClD uARDS. /) 

570 FORMAT! IH1 .20X ,‘PRCGPAM TERMINATION DUE TO INSUFFICIENT • *. 

570 I F JB . 1 AT(IH,.2 R V M10KS . /1 ho, , 5 X.. explanation: the setup AND .. 

2 .OPERATION CF THIS HUN WERE SUCH THAT NO OBSERVATIONS. 

3 -.EKE "/IH ,20X. .AVAILABLE IN’ THE “T I VG PERIOD SPECIFIED . 

A .FOR THE SATtLLITF. RCCUESTF.D. PLEASE CHECK YOUR SETUP 

e. IH . ^OX . 'D^-'CK OR 'TAPE ASSIGNMENTS**/) 

E8 0 formatiIh.Ieox.-prcgham TERMINATION oof to insufficient weighted. 

1 » Ot>S-P v AT I CNS. * / V _ . 

2 IHOt 1 5X. 'EXPLANAT ION I INPUT ELEMENTS AND EDIT.NG . 

3 ‘CRITERIA WERE SUCH THAT FEWER THAN 3 OBSERVATIONS WcRt 

A in , 20 X.* LEFT IN THE SOLUTION'/) 

590 FORMAT! Ml .COX." PROGRAM TERMINATION DOE TO M 1 ^ ‘ NC | °* ] * C *"° 1 ' 

■ 1 ‘EXPLANATION! PROGRAM ENCOUNTERED END UF FIL^ ON . 

2 ‘DATAS BEFORE READING DATA CARD TERMINATING LAST ARC.*/ 

3 iKCtlSXf *PLE i SE -CHPfK INPUT DECK FOR MISSING OR MISPLACED » 

, . r r- r\ iATrni iu“ cn PjmO nF FILE*/) 

eOO^FC FMAT Oh'i 7*20 X V* ILLEGAL STATION POSITION I NPUT * / I H 0 , l S X . 


1 

2 

3 

4 

5 

t I 

1 

2 
3 


'/ I 
READ 


BUT NO A PRIORI* 


RROR ON RANDOM 


♦explanation more than cne station position card was input 

«FGR ST AT 1 C IS * . I 5. IH./ 1H0 . 1 5X, * PR CCRAM ACTION: THE DUPLICAT i 

•OF this station has been removed FROM the tracking complement 

, *.*/21X. *TFE FIRST STATION ENCCLNT ER£D WITH THIS NUMBER WAS 
•USED. */lHC ,l^X. ‘PROGRAM EXECUTION WILL BE CONTINUED.*/) 

CIO FCPPATUH1.20X. ‘PROGRAM TERMINATION DUE TO INSUFFICIENT *. 

, A pa, uni INFORMATION. ‘/IH0.15X. 'EXPLANATION: THL ADJUSTMENT*. 

• CF STATION* * If • 1 HAS BEEN RE OU E 5 T ED • 1 / 1 6X • 

• POSITION IS AVAILABLE FOR THIS station. 

620 FCRMATdHl.EJX. ‘EXECUTION TERMINATING DUE 

1 • ACCESS F ILE* . 13/1H0. 1SX. ‘ERROR EUFH = R I S » // 1 =>X * 7.3 . I 6 . 2 0 A4/ 

2 loX »4( IX i Z£ )/> 

F C R F A T ( I H 1 . 20 X . * EXECUTION TERM I NAT I NG 

iho.isx. ‘Explanation: the setup cf 

•ESTIMATION OF * /2CX« * GE n F-C T ENT I A L COEFFICIENTS 

•GRtATLR THAN USED IN THE * / 20X ♦ ■ CEOPOTE NT I AL EXPANSION HAS 
•BEEN RE CUE STE C . * , 

FORMAT t IHl .20. ‘PROGRAM TERMINATION DUE 
1H0 . 1 SX « * E X f L ANAT I ON I THE CARD *.A6«* 

•GROUP IS MISSING A CONT JNUAT ION’.'/UI 
•INPUT FUR MISSING OR MISPLACED 
FORMAT ( 1H1 . 2CX, * PROGRAM TERMINATION DUE TO ILLEGAL INPUT*/ 

1H0. 16.x. 'E xplanation: an illegal surface density increment 

*SIZ«- WAS SPEC I F I ED. • / l H . 2 OX f * PLE ASE CH^.CK INPUT FOR ’* 

> ‘KEYPUNCH ERRORS* ' , 


CRRO 

1 1 A 

EPRC 

lie 

EPRO 

li^ 

EPRO 

116 

ERRC 

116 

ERRO 

117 

EURO 

1 l C 

EPRO 

1 1 ^ 

EPRO 

1 2 C 

EPRO, 

121 

EPRO 

12 7 

, EPRC 

123 

ERRC 

124 

ERRC 

125 

EFRC 

126 

EF pc 

127 

F.PRC 

123 

ERRO 

12? 

EPRC 

130 

ERRC 

131 

, EPRO 

1 32 

EFRO 

133 

ERRC 

136 

EPRO 

135 

ERRC 

136 

EPRC 

137 

ERRC 

132 

ERRC 

13C 

EPRC 

140 

■ERRO 

i *> t 

ERRC 

14 2 

, ERRC! 

14 3 


630 


640 


650 


DUE TO INPUT ERROR*/ 
THIS RUN IS SUCH THAT 
OF • ,A7 , 


TO ILLEGAL INPUT*/ 
IN THE OPTION CARO 
♦SOX, 'PLEASE CHECK 
CARDS* * ) 


THE * 


ERRC 
* ERR C 
. E R R C 
ERRC 
ERR 0 
EPRG 
EPRO 
ERRC 
ERRC 
ERRC 
. ERRO 
EPRC 
.ERRC 
ERRO 
EPRC 
EPRO 
CRRC 
ERRC 
EPRO 
EPRO 
ERRO 
ERRC 
ERRO 
ERRC 


1 A 4 
1AS 
IPS 
147 
K-0 
l^r 
1 EC 

151 

152 
1 63 
15A 
155 
15f 
157 
1 55 
155 
160 
161 
162 

163 

164 

165 
166 , 
16 7 


REPRODUCIBILITY OF THE 
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KOM-Am.«W*uA.-e'*KUTr*H »«.««/». r.* ooa to 

IHO.IbX, 'lxi-lanation: tmc SFTUP r.F TfU-, DLCK IS SUCH T 

« r i-e nuku-r of surface » / 2 i x . *e£NS i ty constraint equations . 

•IS CHLATtH ThAN UQ FOUAL TC'/2I) I t - 

•TH- NUMCLK OF ADJUSTED SURFACE EE NS I TI k‘S • * /\ 

FU^.vT(52 X .^1.^/=.X.5( 1 HM/r-OX.aH...2X.XH*-/OOX.2H.».?X.2H.«, 

ox. /bCX.2h**.2Xi?M**i 2X.2H** /0OX,2Hf*. IX.2H**. 


CRRO 
F ft R C 
EPRU 
EPRC 
Eft R C 
EPftC 
FT* f>C 


lX . /bCX*/!r T **£^if' n r-r-t-r- 

2IX.3H**./oCX.AH^^.1X. 5 (IHM,3 1X,3h^ : v/51X.6(IHM.1X^H-.J0 

2H*i'/5U.;H*«<'.4X*?F**i30X.2H**/60Xt<'H**i9X»2H<-- .c-yX,^.. “ 


ERRC 
ERR C 
ERRC 
ERRC 
ERRC 


END 


10 *. **.*«... 

6UhO/AlX,3H ¥ *t.IX.2H**,10X.2Hn t lX,3H*M,3X,lH*.3X ( 2H^.3X, 

SX,2H**,AX*2H** I 5XtAH****.3Xi2H * ^ 

, kf 1H4 , t 1 0X t 2Ht*,3X,AH*M'.*,4X,2H^.AX,2H^,3X,2H*«,4X,2H*t. .FRO 

•2h*».5X,2M*.2X,2H*».SX.?M**,5X.2H^,4X. ?Hi*.jX»2H * 5 - * J 

43A.5H«M-.6x,2H«.3X.3Htt*.6X.2M<*.AX.2H**,3X.2H**.nX. ^ 

4Hm,3X,2Hm/aU.3m***^X. 6{IH«» , 7 X.«.H**« * * A X . * ( 1M * ) . t>X . 6 U h ) • -■■ C 

1X,2H^.4X,AH***«, lX,2H¥*,AXt3H + **t<iX.<KlH«)/97Xi2h**/97X, “ RQ 

2H< */4 1 X * o 1 ( l H* > /40X . 57 ( 1H*1) ERRQ 


UA 

\c r - 

170 

171 

172 
172 
17A 
17E 
1 7 f 
177 

m- 

17 5 
1 r-C 
13 1 
132 
l B 3 
13*- 

1 c, c 

UT» 

1 F 7 

1 EQ 

1 Ac 
190 
19 1 
192 
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ESTIM 


DESCRIPTION 

ESTIM is the Bayesian least . squares numerical 
parameter estimation . subroutine designed specifically 
for the GEODYN system. 


ESTIM has four types of calls, each performing 
a specific task. The tasks performed on each of the 
ESTIM calls are the following: 

1) Initialization. 


2) Formation of the estimation matrices. 

3) Estimation of single arc parameters and, 

on the last inner iteration, computation of 
effects of single arc parameters on adjusted 
geodetic parameters. 

4) Estimation of geopotential parameters. 
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/ reproducibility of the 

NAME ESTIM ORIGINAL PAGE IS POOR 

ENTRY p OI NT PURPOSE 

ESTIM1 INITIALIZATION 

ESTIM TO ESTIMATE CORRECTION VECTOR TO STATE VECTOR 

' ' USIVG METHOD OF BAYFSIAN L - AST SQUARES 

CALLING SEOJENCE CALL .E S T l Ml ( SU^l , SUM2 , BELT A , $T=»OS, S T°OSD , S l GSTA , 

OB IAS* R l A SO « B I A SSG , I STAND , E ST A NOoLOC , 
B I ASNO * PARNOS, INDXCS* TO ENG , IDS I G ) 

SYMBOL TYPE, DESCRIPTION 

SUM1 OP INPUT e OUTPUT - NORMAL MATRIX 

(I ) 

SUM2 O' 5 INPUT £ OUTPUT - RIGHT HA V D SIDE OF NORMAL 

(1) EQUATIONS 

DELTA DP OUTPUT - CORRECTION VF.CTOR 

cn 

STPOS OP INPUT £ OUTPUT - CURRENT STATION COORDINATES 

(3*1 I 

ST POSO 0° INPJT - A PRIORI STATION COORDINATES 

( 3 • l ) 

SIGSTA P . INPJT - STATION COORDINATE VAR I 4NCE /CD VAP I ANCE 

<3,3«n MATRICES 

FBI AS OP INPJT £ OUTPUT - CURRENT DRAG, SOLAR RADIATION, 

Cl) BIAS, GFOPOTENTIAL S SURFACE 

density values 

BIASO OP INPJT - A PRIORI DRAG, SO_AR RADIATION, BIAS, AND 

♦ Cl) GEOPOTENTIAL VALUES 

BIASSG D D INPUT - DRAG, SOLAR PATUTIDM, BIAS, GED°OT£NTIAL 

Cl) AND SURFACE OENSITY VALUES 

ISTANO 1*2 INPJT - STATION NUMBERS 

cn 

ESTANO 1*2 INPUT - MASTER STATION LOCATION INDICES 

(1 ) 

LOC 1*2 SCRATCH 

Cl ) 

B I AS NO 1*2 INPUT - DRAG, SDL AR RADIATION, HIAS, GEOPOTENTIAL 

(1) AND SURFACE DENSITY LOCATION INDICES 
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PARNOS 1*2 INPJT - PARAMETER NUMBERS 

C 1 > 

tNDXCS I * 2 
<3*1 ) 

TOENO DR 
Cl)*. 

TDSIG DP INPJT - APRIQRt SIGMAS OP SURFACE DENSITIES 

Cl) 


INPUT - INDICES OF ADJUSTED GE D P OTE N T I AL 
COEFFICIENTS 

INPUT - APR IOR I VALUES Qp SUR-ACE DENSITIES 


CALLING SEDJENCE CAL- E S T I M C I T YPE • S I GM A * R E S I D , M^> A R TL ) 


SYMBOL 

TYPE 

DESCRIPTION 



I TYPE 

I 

INPUT - 

INDICATES TYPE OF OPERATION TO BE 
PERFORMED 


SIGMA 

DP 

INPJT - 

MEASUREMENT 

STANDARD DEVIATION 


RESID 

DR 

INPUT - 

MEASUREMENT 

RESIDUAL 


MPARTL 

(1) 

DP 

INPUT - 

PARTIALS OF 
UNKNOWNS 

MEASUREMENTS WITH RESPECT TO 

4'Nu 


r ~ » (M-i n 
LUL.»ir\ 

f%i • "Y - V 

l>*’‘ • *- -y ♦ 

* • t • « C * % y* *•* > ■ % *. 

ill flit n r 

COMMQN BLOCKS 

APAR AM 

CFLEM . 

CONDUT C°ARAM 

INI TDK 


INPUT F tLES 
OUTPUT FILES 
REFERENCES 


PRIORI 
NONE 
NONE 

•GEODYN SYSTEMS DESCRIPTION* 
VOLUME I - GEODYN DOCUMENTATION 


REPRODUCiiil^ii X ' of Thti 
ORIGINAL PAGE IS POOR 


SUBROUTINE EST I M 1 < SUM 1 , SUM? , CELT A* STO[1S, STPDSD , SI GST A , D B I A S . B I A S" 
BIASaG.ISTANn.ESTANO.LOCtPiIASNO.PARNDS.INDXCS.TDEND.TDStG) 
tMPLtCIT RE AL* B (A-H.C-Z) 

LOGICAL L I NNER * Cm° r.PR * BM A T 

INTEGER PARMAX . ESTST A .HMATNO.S I MOAT 

I NT EGER * 2 1ST AND .ESTANn.LOC.BIA SNO, PARNOS • I ND XCS 

REAL SI OS T A, RMSTOT , V A RCOV 

DOUBLE RPECISICN MPARTL 

DIMENSION SU'nU 1.SUM2I 1 ) . STPD S ( 3 , I ) . STPOSP ( 3 • t ) • SI G ST A < 3 * 3 • 1 ) * 

SB I AS ( 1 ) , PI AS l ( 1 ) ♦ F i AS SGI 1 ) ♦ I ST AMO < 1 ) , V St t NO( 1 ) .LOCI 1 ) . 

01 AS MO C 1 > .PARNOS ( 1 )»DFL T A(1 > # -VP AH- TL ( 1 ) . I NDXCSt 3 ♦ 1 ) • TDr'NO < 1 } , 
TDSIM 1 ) 

COMMON/ AP ARAM/ IN PAR. I N° AR I.NBI A S . F S T S T A . N S A T . NC,P AR C , NOR EC 1 . NPAPAM 
NEOI AS . PARM AX 


ESTI 

Q A 

rsr i 

QO 

FST T 

* r c 

F ST I 

! r i 

FST I 

* r s 

FST I 

' r - 

F ST I 

1 C A. 

FST I 

* C s 

FST I 

* c * 

FST? 

* r 7 

FFT t 

• «*. a 

FST I 

* r q 

, r sr i 

’ \ o 

F ST I 

* \ 1 
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COMM3N/C5LEM/EL£MST<6.2) .ORBELA< 14),PMST3T 
COMMON/ CON OUT/ IG1 ( «) . NFONMX, 10 3 { 1C ) 

COM VON/ C P ARAM/NS T A . NM AST. NST ES T . NO I M, M3I A StNG n Cl * N 

• NGPC TM . NCSEST , C «GP»1 ,L I M 1 ,L ! M2 ,NOEN. NOE NST * NT I DST .NT I D=N, 

. INNRS* * NCCNST ,NDCOKS 

COMMON/ IN [ TRK/ I E®* { 45 ) , flM A TSI O . S I MO A T { 1 l 1 

COMMON/ ^RI CJRI/F.LEO( 6 .2 > . VARCDVt 6, 6. 2 >, T ITLHI 3 0) . DRAG( t 6 ) 

OATA NO P I L E/0/ 

INDXNOI I ) = NO IM* < 1-1 ) - U *< 1- 1 ) )/2 
RETURN 

ENTRY EST I M{ ITYPE, SI GMA .RES I Di MOARTL ) 

C INITIALISE 

GO TO (10 0.2C0. 3C0 .600) ♦ TTYPE 
100 PARMAX= INP AR I 

IF ( NO IAS.GT.G) PARMAX=NE0NMX+2 _ 

1ST ART=INPAR I+.l 
Il=LIMl 

CALL CLEAR? SUM 2 i 2» II ) 

• II ss INDXND ( n ) + NO IM 

CALL CLEAR? SUM l . 2. U ) 

. LINNEP= L I M2 .GT . 0 .A NO . (NMAST, GT.0.0R.NG o C0M,GT,C.0P t NTI0EN.GT.0) 
BMAT=. FALSE . 

IF< .NOT «L I NNER ) RETURN 
BMA T= B M A T N 0 . GT .0 

IF (NMAST, GT .C > P AR MAX =N E O N M X 48 
IF( PARMAX .EO.INPAR T ) PAR M A X = NE 0 N « X 
/>cj r - M-> t <j_ 3 * f,j m T 4 1 -MGP COM— N T IDEM 
C FORM 4 J nr .‘* A[_ MATR IX 

RETURN ' ’ _ 

20C WT= 1 . D0/( S I GMA*S IGMA ) 

C SINGLE ARC FORCE MODEL PARAMETERS 


I ST -0 


DO 24 0 1= 1 . INOAR I 

T =MPART L ( r >*wr 

SUM 2 ( n=SUM 2 (I ) 4 TARES ID 

DO 235 J- I , PARM AX 

1 1 = P ARNOS ( J > 

I F ( 1 1 .EQ. 0 > GO TO 235 
12= IST+ I 1 

SUM 1 ( 12 )=SUM1< 12 )4r*MPARTL( J) 


235 CONT! NJr. 

.240 IST=IST4NDIM-I 
C EIASES and GEODETIC PARAMETERS 
. IF( PARMAK . EQ, INPAR I ) RETURN 
DO 250 1= 1ST ART. PAPMAX 

11 = PARNOS ( I > 

I F ( I i «EO» 0 ) GO TO 250 
T sMPABTL ( I ) * WT 
SUM 2 (I1)=SUM2( II ) + T *R ES 10 
DO 245 J= I . PARMAX 

12 = PARNOS ( J ) 


reproducibility of the 
ORIGINAL PAGE IS POOR 


I F ( I 2 .ro. } ) GO TO 245 
IF( 12 -LI .11) GO TO 24 2 


NCOLM1 = I l - 1 

1ST =NCOL M 1 »NOI M- ( I I * N COLM 1 > / 24 I 2 


GO TO 2*4 


EST 

EST 

HST 

EST 

EST 

FST 

FSY 

FST 

EST 

FST 

FST 

EST 

EST 

EST 

FST 

FST 

FST 

RST 


* 1 2 
1 1 3 
! 1 4 
1 15 
3 1 6 
1 1 7 
I 1 B 
1 1 O 
> 20 
! 2 1 
122 

• 23 

124 

125 
1 26 

* 27 
12* 
1 2 R 


EST 

EST 

FST 

EST 

FST 

FST 

EST 

EST 

EST 


1 3 A 

i 3 i 
13 7 
t 33 

*34 
T 35 
1 ? A 
- 37 

.TO 


EST I 14J 

rsTi *4i 


FST 

EST 

EST 

FST 

EST 

EST 

EST 

FST 


1 A 1 
14 3 
3 4 4 

1 t 5 
* 45 
U? 
3 4 R 
1 4 P 


FST 

FST 

FST 

F.ST 

FST 

FST 

EST 

EST 

FST 

FST 

FST 

FST 

PST 

FST 

FST 


150 
1 51 

« e, 

1 5 
1 54 
! 5 5 
15 6 

* 57 

* 5 R 

1SQ 
1 6 0 
: 6i 
162 
! SR 

* * 4 


f ST 1 irs 
EST I 365 
EST I t * 7 
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242 

NCOLMlx l 2-1 

•• 

EST 1 

IFF 


1ST =NCOLM l ANDI M- f I 2 AN CDLM 1 > / 2 +11 


F ST I 

1 64 

244 

SU*<1 ( 1ST 1 aSUMl ( I ST 1+ T *MPARTL< J ) 


rsM 

1 70 

245 

CONTINUE 


FST t 

* 7 1 

250 

CONTINUE 


FSTT 

1 7 2 

ADD 

SINGLE ARC PARAMETER A PRIORI 


EST I 

173 


RETURN 


ESTI 

« 7 4 

ELEMENTS 


EST I 

1 75 

300 

1ST sO ‘ 


ESM 

175 


DO 310 L= 1* NS A T 


FST I 

17 7 


LI =6* ( L- 1 > 


FST 1 

173 


OO 310 1= 1 *6 


EST | 

.1 7 3 


1 1 - LI +1 


FST I 

1 AO 


DO 30 5 J= 1 .6 


F ST I 

IF 1 

305 

SUM2( I l 1 =SUM2( H )4-VARCOV( I, J,D*{ELFM0( j f L)-ELEMSn J«L) ) 


EST 1 

1 R? 


DO 303 J= I .6 


FST ! 

1 P3 


I1=1ST+J+L1 

' 

EST I 

1 P 4 

30R 

SUM 1( II ) = S U M 1 { 11 J + VAR CO V ( J * I * L ) 


EST I 

1 PS 

310 

IST = IST«-NOlM~t*-Ll 

■ 

EST I 

1 66 

CP AG « SCLAR RADIATION, ANC BIASES 


EST I 

' R 7 


N3SGP-V.TI ASfNGPARC 


FST I 

1 6 3 


DO 31 5 1=1. NESGP 


EST I 

1 F4 


II =bl ASNO ( I ) 


F ST 1 

ICO 


IF C 11 .EO. 0 > GO TO 31 5 


FST I 

1 Pi 


T = 1 *0 DC 


F ST I 

l c 2 


.IF<.I.L«E«MH 1 AS) T=1 . 0 OO/B IASSGC I 1 **2 


F S T T 

143 


SUM 21 11 J = SUM2t 11 1+ f* C BIASOI I >-BB 1 AS< I )) 


CST I 

1 Cl 


11 =INOXNO( I 1 >+ I 1 


FST t 

1 45 


SUM1 ( 1 1 ) sSUMl ( I 1 )+T 


FST I 

14 6 

315 

CONTINUE 


rsr i 

1Q7 

CN 

OPTION* WRITE NORMAL MATRIX 

• 

FST r 

1 O R 


IF ( DM AT > CALL BMTwKT ( SUM 1 * SU *2 » I ND XC S * 3 1 A SND( NGPC l 1 . FI A SO ( NGPC I ) » 

FST I 

1 4*7 


• BI ASS G< NGPC 1 > ,EST AND * I STAND ♦ STPDS.NO 1 ILF) 


EST I 

20 0 

INVERT NORMAL MATRIX OF SINGLE ARC PARAMETERS 


F ST I 

20 1 


CALL SYMI NV{ SUM 1 , N C I M , NP A R A M , D EL T A ) 


EST I 

ro 2 

CN 

LAST INNER ITERATION COMPUTE EFFECTS OF ARC PARAMETERS ON 


FST T 

2C 7 

GEODETIC PARAMETERS 


EST I 

204 


JFI .NOT .L I NNFR ) G3 TO 525 


EST I 

205 


I 1 s I NDXNO (NST ART ) 


EST I 

2C 6 


DO 500 I=NSTART.NO IM 


FST I 

2 0 7 


LI - 0 


FSTJ 

20 F 


DEL^ACL)^ !o N co ARAM REPRODUCIBILITY OF THE 


FST I 
FSTJ 

2CR 

210 


i st =0 ORIGINAL PAGE IS POOR, 


F ST I 

21 I 


00 400 J= 1 • L 


ESTt 

2 12 


Ji=IST+L 


EST 1 

213 


J2=IST+I 


FST I 

214 


DEL TA IL ) = DELTA <L > + SUM 1{ J 1 )* SUM 1 ( J2 1 


EST! 

2 1 5 

400 

I ST = l ST «-ND IM-J 


FST I 

2 i 6 


IF ( L. EO. NO AR AM ) GO TO 425 


fstt 

21 7 


L»1=L + 1 


EST! 

2 I R 


DO 410 J=LPl.NPARAM 


FST ! 

2 1 R 


Jl = Ll *J 


FST I 

5 2 0 


J2 = IS T* I 


FST I 

2 2 1 

SUBTRACT nur SINGLE ARC EFFECTS ON GEODETIC PARAMETERS 


FST I 

p 2 2 


DELTA (L )-OGLTA(L J + SJM l( Jt )*SUM 1 ( J2) 


FST 1 

2 2 ^ 
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410 IST = I ST+NOIM-J 

425 SO M2 ( I)=SUM2( I >-SJM2( L)*DELTA(L I 
DO 440 K= I , NDIM 
Ki=H+K 
K2=L1+K 

44 0 SUM1 ( K1 »=SUM1(K1 )-DEL TA (L )* SUM 1( K2 ) 

450 L1=L1+MDIM-L 

41 = 1 .. 

DO 495 J = I , NP A R AM 
S U M 1 ( J i ) = OELT A ( J ) 

495 41=Jl+'nru-j 
' 500 11=11 +NOIH-I 

C COMPUTE CORRECTION VECTOR FOR SINGLE ARC PARAMETERS 
525 I ST =0 

L=6*NSAT s 7w 

DO 550 l=l*NPARAM 
DELTA< I 1 = 0 .0D0 

11 = 1 

DO 540 J=1 , I 

DELTA ( I ) = DELTA ( I l + S’JM 1(11 ) 4 SUM 2 1 J ) 

540 11=11 +NDI M-J 

IF( l.EO.NPAR AM) GO TO 546 
IP1=IF1 

DO 545 J=IPl f NPARA« 

' E1=IST+J 
C UPDATE EL EMETS 

- 54S' DELT A l I | =OcL 1 A l M + bUW Mil )*frSUM2f J ) 

548 IF( I-LF.L) ELEMS T ( I , 1 ) = EL EMST ( I , 1 ) OEL TA ( l ) 

550 1ST=I ST+ND IM-I 

C UPDATE CRAG, SCL AR RADIATION, AND RlASSS 
IF ( N° ARAM • EQ ,L ) RETURN 


DO 560 I = 1 « N BSGP 
11 = 81 ASNO < 1) 

560 IF(Il.NE.O) OR I AS( 1 > = EB IAS( I > + OELTA( I 1 ) 
C AOO GEOPOTENTIAL COEFFICIENT A PRIORI 
RETURN 

600 IF (NG^CDM.LE .0 ) GO TO 6C6 
T = 1 *0 DO 

DO 605 I-NGPCl ,N GP C 2 
11 = 01 ASNO( I I 
1F<I1,EQ.0> GO TO 605 

SUM2( II) -SUM?( II )+ 8 I AS0( I )-PB I AS{ 1 ) 

I1 = INDXN0 < I 1 )♦ I 1 
SUM Mills SUMKUI + T 


C 


605 CONTINUE 

ADD STATION POSITION A PRIORI 

606 IF (NT IDCN.LE.O ) GO TO 7 50 
L.I = KST ART +NGRCCM-1 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


DO 725 I=l.NTIOEN 
T = 1 •ODO/TDSIG( I )** 2 
Il = Ll+I 

SUM ?( I 1 ) = GUM2( (1 l + T * < TDEN0 C I )-80 I AS( I +NG°C 2 I > 


II = I NO* NO ( I 1 ) *- T 1 
725 SU«1 { 1 1 ) =SUM1 ( IX ) + T 
753 IFCNMASr* 20. C) GO TO 630 


11= NS TART V NGr>COM +V T I DEN 


FSTI 

224 

FSTI 

22 5 

EST I 

22 6 

FST I 

227 

EST I 

22R 

FST I 

22 9 

ESTI 

230 

EST I 

23 1 

FST I 

23 2 

ESTI 

233 

FST I 

234 

ESTI 

#*. 3 ri 

ESTI 

236 

FST I 

23 7 

FST I 

23 R 

FST I 

239 

ESTI 

9A0 

FST I 

24 I 

FST I 

242 

FST T 

24? 

FST I 

24 4 

FST I 

2 4 5 

FST T 

?4 6 

fsti 

?.4 7 

FST I 

24 8 

EST I 

24 Q 

T.ST J 

2 59 

FST I 

251 

FST I 

25 2 

EST I 

25 7 

ESTI 

2S4 

EST! 

255 

EST I 

256 

FSTI 

257 

FSTI 

^58 

EST I 

25 9 

FST I 

? 6 0 

FST I 

261 

FST I 

26 2 

EST I 

263 

ESTI 

2 64 

FST | 

. 265 

ESTI 

2f 6 

PST I 

267 

EST t 

268 

FST I 

?6 9 

EST J 

270 

FSTI 

27\ 

EST I 

P 7 2 

FST I 

27? 

FST J 

37 A 

FST T 

275 

FST I 

276 

FSTI 

P7 ■? 

EST T 

2 7 8 

FST I 

279 
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1ST - I NDXNO cm 
. C=0 

00 620 I=l.NMAST 
608 L=L +1 

IFCNUM8R? (L.ESTANOtNSTFST l.CQ.d GO TO 608 
00 620 J= 1 » 3 

00 610 K= 1 .3 

610 SUM2C U 1 = S U M 2 ( 11 l+SI GST AC J.K «L ) 6 C STR 0 SOC K . L ) - R TP 3 SC K ,L ) ) 
I2=IST+ I 1 ‘ 

DO 615 K=J,3 

SUMH I2) = SUMH I2) + SIGSTA(K,J,.} 

615 12 = 12+1 

IST=IST+N3IM-Ii 
620 11=11+1 

630 !ST = I NDXNO (NST &RT) . 

11 = IST+NST ART — - 

C INVERT NT PM A L MATRIX OF GEODETIC PARAMETERS 
t2=3*NMAST +NGPCOM«-NT I DEN ' 

CALL Sy«I NVC SUMl (I 1) , 12, I 2, DELTA (NSTART) ) 

12= 1ST 

1 ST A=0 

DO 650 I - NST ART • ND I M 
DELTAC I )S0 .000 

C COMPUTE GEODETIC PARAMETER CORRECTION VECTOR 
11=12+1 

DO 640 J= N ST ART, I 

DELTA ( I > = CELT A ( I ) + S‘JM 1 C I l )*SUM 2( J ) 

640 11 = 11 + NT I M — J 

IF( I .EO.NO IM > GO TO 646 

1P1=I+1 -- ' 

DO 645 J= I P 1 * NO I M 
II =1ST+ J 

645 DELTA C I ) = DELTA( I > + SJM 1C I 1 )*SUM2{ J) 

C UPDATE GEOPOTENTIAL CO E F F IC I EN T S 

646 11= I-NSTART+l-NGPCOM-NTIOEN 
IF(fl.GT«3) GO TO 649 

11= NGPC 1 + I- NST ART 
BBI AS C I 1 > = ns IAS ( U 1 +DELTA ( I 1 
C UPDATE station coordinates 
GO TO 650 

649 IF C MODC I l , 3 ) .NE . U GO TO 40 
J1 = 0 

30 1ST A= ISTA M. 

NOCGN = N.JMLOC t I STA, EST ANO, NSTEST, LOCI 
IF ( NOCON. EQ *C 1 GO TO 30 
40 J1=J1+1 

DO 50 J=1 • NOCON 
J>2 = 3+ CLOC C J ) — 1 > +JI 
50 STPOS C J2. 1 ) =STPOSC J2 . 1) +DELTAC l 1 

650 1ST=I ST+NDIM-I 
RETURN 

END 


FSTI 

280 

FSTI 

?P 1 

EST I 

282 

EST I 

2E 3 

FSTI 

cc 

K 

FSTI 

285 

EST 1 

26 6 

FSTI 


E-ST I 

2f 8 

EST I 

28R 

FST I 

2°0 

ESTJ 

29 1 

FST T 

<30 9 

F.ST I 

293 

EST I 

904 

EST I 

POS 

FST I 

2Q6 

EST I 

p 0 7 

E ST 1 

? OR 

FST T 

290 

EST r 

3 C P 

EST I 

30 1 

Esr i 

3C 2 

FSTI 

303 

EST t 

3 0 4 

EST I 

30 5 

FST J 

30 6 

FST T 

30 7 

FST T 

30 8 

FST I 

3 0 9 

EST I 

3 10 

EST J 

31 I 

FST I 

312 

FSTI 

3 : 3 

FST I 

314 

FST I 

31 6 

EST I 

3 I 6 

FST T 

317 

FSTI 

3 1 6 

FST I 

319 

FST I 

3? 0 

FST T 

321 

FST 1 

32 2 

FST I 

323 

FST I 

324 

EST I 

2 25 

FST T 

3?6 

ESTJ 

2 ~r 

FST I 

32 6 

FST I 

*» 2 o 

FST I 

3**f> 

FST t 

331 
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loo 


■switx (\tize 


RETURN 


Xco 


.F’OE.rA Niocnv^iL 

hvvrfcXX BY 

Sutvuw o yx OaI 


SXKlCyUf 
Fot&e moDiSi 
PK^meT(5?/ts' 


~j?XfU>e^ a- a jj> 
<x^l)eTic 
Tn^^nVrTcffXS 


KCTu&M 
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A 53 > P\(Z£L 

A pgxop.x 


COrtveOTe EFf(JCT3 CF 

f\R<i pAcn>??cTc"#is ck, 
(fiOTH-TZC. Prti^/>VrcFKS 


k^ewe/gys 


Surit^/VCT OoT 

SXKlf>U5 P\tLC CfF^CTS 
OM CyE-oi>C=TXC 

PA-^rVmerTe^S 


TOC-^Cjj SOLA)^ 
RA-pXnrxo/O 
fVky£> Bxascs 


5^ 


'ujaxre 

&'*UAT*UX TAPc 

xp 


0 uM.t» o re Cere, t £< r r <*k> 
VctTO£ Fo£. Si/^CC 
ft&C. frvncTe^s 


/ s^TktTTv X 

/lN>V££T KJOR/AA^. 

hvATftXk OP 
V^IM^LO A&C. / 
\PA RCt^n^TCfZK/ 


REPRODUCIBILITY op TUP 
original page is poS 


opDftie 

fetCFm^f'JTS 


' CAST ^ 
XKJK C P- 
. XTOit/^TTCY> 


5^5 


OPSftTe i>pnc,, 

Sotc.Ap ; r?>r oscFs 

amT> SiH<r ? Le A A. CL 

6)150 Po re , m rj.,vo 

C-oEFfj CX<T^T5 
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DESCRIPTION 

F evaluates the total acceleration of the satel- 
lite due to all of the forces present in the model. 

F is primarily executive in nature, calling subroutines 
for all effects except solar radiation pressure. F also 
computes the partial derivatives of the acceleration due 
to radiation pressure with respect to the satellite 
reflectivity coefficient.. 

The satellite acceleration vector is computed in 
an instantaneous coordinate system, referred to the 
true equator and equinox at the integration time. REFCOR 
is called to transform the position, and velocity if 
required, from the reference to the instantaneous coor- 
dinate system. ‘After the evaluation of the accelera- 
tions, REFCOR is again called to transform the accelera- 
tion vector to the inertial reference system for integra- 
tion. 



F • 

Page 2 of 6 
October 2972 


NAME 

ENTRY POINT 

FI 

F 

CALLING SEQUENCE 
SYMPCL TYPl 

GRP Art OP 

(3.1) 


PURPOSE 

INITIALIZATION 

to evaluate satellite acceleration vector AND'- 

FORCE MODEL PARTIAL DERIVATIVES 
CALL FI (GRPAR > 

DESCRIPTION 

CUTPLT - FORCE, MODEL FART I AL VECTOR 


CALLING SLO'JcN C£ CALL F ( T • S . FC T , F CALL ) 


SYMBCL 

TYPE 

CESCPI 

T 

DP 

INPUT 

S 

DP 

INPUT 

(6) 



FCT 

DP 

CUTPUT 

(3) 



FC ALL - 

L 

INPUT 


_ YPI OF.T ® 5 
18 


INPUT - SATELLITE STATE VECTOR 

cutput - satf.llite acceleration vector 
INPUT - = • true* no accelerations necessary 

“ • F AL SE » EOTH ACCELERATIONS & PARTIALS 
NECESSARY 


SUBROUTINES USED 

f 

FEr CCR 
SUNG RV 

EPhLM 

TICAL 

EGRAV 
COT PRD 

SURDEN 

DRAG 

COMMON .(LOCKS 

CEPHEM 

XYZ 

CT1ME 

FMODEL 

intblk 

moongr 

INPUT FILES 

NONE 





OUTPUT FILES 

NONE 






FEFERENCcS 


» geodyn systems description * 

VOLUME I - GECCYN OOC LMEN T AT I ON 


SUBROUTINE Fl(CRPAR) 

IMPLICIT KL AL • £ (A“H,0~Z> 

LOCICAL FCALL.TOREFT 
JNTcGER ADDA . SFAO 

COUELt PR EC I S I CN MOODY * L OVC .MODEL 
D I Me .N S I UN G P P A F ( 3 • U « S( 6 ) i P t 31 > FC T ( 2 ) 


F 50 

F 51 

F 5 

F 5 

F 5A 

F 55 
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CC RMUN/CEPHcM/VARO ( 2 4 ) . f.O ♦ GE PHfr F ( 64 2 1 

•ClU-'MJN/CT 1 Kt/C ATALP < 2 1 * OAYO . T START . CAY2 • OORH1 ( tt > * I Y 

C CM vtuN/F MJJ EL / i.WOt X 1 • INDC X 2 » I NOE X 3. I NDE X * » C S ( 30 * 3 3 ) • MODE L ( S ) 
CCf'KuN/ KlToUK/ THUCJT 1 , THOU T 2 .TH0T2S. GM (?) * AE SO * Fl. A T ( 3 ) * CM 3(G) *0(6) 
« /POM 2 I . Al- L M A ) f 1 MET G 0 i M DC DY( 3 1) . ADDR l 4 ) « GRAD C 2 ) . LO VE ( 3 ) * 

• TOREF T * N SL» C Y 

CCM frLN/UOUNGri/ CP XU V ( 6 ) . RHOM ( 3 * 6 ) . RHCSQl 1 ?. ) 

CCP fAJN/XY 2/LL cf' ( C > *R *RSO * IS AT . IF CFiC E (2 ) 

RE TlftN 

If NT AY F(T*SiFCT«FC AL L ) 

IF OCALL. AND . T «EQeTPREV ) RETLRN i 

TPRc V = T 
CC 100 I = 1 ♦ c 
100 cLEH i )~S ( I ) 

CAY2-T/o.64C4 

C PROCESS AND NUT ATi: POSITION TO TRUE OF CATE . 

CALl R£KC0R(C'AY2 ..FALSE, .ELEM - ' 

C READ L UNA k * SOLAR i ° L A NF T A *5 Y CPPEMER1DE5 t I'T'Y 0^' 

CALL EPMi v.{ D aY 2 * . F ALSEv* J ' -to PO^' 

CAY=lCiNT (DAY* ) -Q-£pB»OVJ 

CCAY=LAY2-LAY nU\G^^ 

C COMPUTE RloMT A^EhSlON OF GREENWICH 

THE IG = TME TGO<- T LOOT HDAYt THDCT2*DDAY »E0 
lNDEX2=iNDLXI~ i 
I F ( FC ALL I I NO E >2= I NDEX4 
GCCPUTcNT iAL ACCELERATION 
CALL EGA A V ( TFETG*RASAT« r CT) 

SURF ACL DENSITY ACCELERATION A NO * COMPUTE. ° AR T I AL S 
CALL SURD cN (FC1 .TF5TG) 

C ADD LUNAR. SOLAR, PLANETARY GRAVITY 
CALL SUNoRV(FCI) 

C ADD TICAl ACCELERATIONS 

IF( .NCT.FCALL ). CALL TIDAL(FCT) 
tF ( APGMi I SAT ) • EG • 0. 0D0 ) GO TC 700 
INDX=SRAD( I SAT I-IFCRCEI l SAT ) 

1F< APGM( I SAT ) . LT • 0*0 00) 60 TC CEO 

IF(CPXUV( 1 > «CT .0.0C0) GU TO 600 
DO-AbO 1=1,3 

A 50 P< I )=ELL‘-U I 1-CPXUV (2 ) *VARD( 1 + 4 > 

phac= out p ad ( p » f ) 

. IF( pMAv»*LT • Ac. £ C ) GC TO 650 
500 I F ( F C ALL I GO TC 610 
C APPLY S CL AR KAO I AT ION WHEN NOT Us SHADOW 
DO 600 1-1,3 

600 FCTU J=rCT ( I ) -AP6M( ISAT ) *VARD( 1+4 ) 

610 IF ( I NDX * LE • 0 ) GO TO 700 . 

c COMPUTE SCLAR KAC IAT ION P ART I AL S 
DO C^i> 1 = 1*2 

625 GRP AR ( 1 . I NDX J = -APLM < ISAT >*V ARC ( 1+4) 

GO TO 700 

650 IF (iNDX.LL.01 GC) TO 700 
DO t60 1=1.3 

eeo grpar { i . i ni>x i = c .oco 

700 IF (cl IbAT ) • cu. C. ODC ) GO TO COO 
C PRECcSS ANU NUTATE VELOCITIES TO TRUE OF DATE 
CALL RLE C OR (CAY?. .FALSE. ,ELER( 4) I 


C ADD 


C -ADD 


F 

56 

F 

57 

F 

56 

* F 

59 

F 

60 

F 

61 

F 

62 

F 

63 

F 

64 

F 

65 

F 

66 

F 

67 

F 

65 

F 

69 

F 

70 

. F 

71 

F ‘ 

72 

F 

73 

F 

74 

F 

75 

F 

7 C 

F 

77 

F 

7Q 

F 

79 

F 

60 

F 

01 

F 

82 

F 

03 

F 

Sft 

F 

bb 

F 

06 

F 

67 

F 

88 

F 

69 

F 

90 

F 

91 

F 

92 

F 

93 

F 

94 

F 

95 

F 

96 

F 

97 

F 

9e 

F 

99 

F 

100 

F 

101 

F 

102 

F 

103 

’ F 

10 4 

F 

105 

F 

106 

F 

107 

F 

100 

F 

109 

F 

110 

F 

1 1 1 
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CT=LAY2-OAYO 

C ADD C^AC ACCEll AaI ION AND COMPUTE P A P T l AL S 
CAUL (f:AirAl i FC I *DT ) 

E 00 IF(FCALL) HtiTLFN 

C PPECESS AND NJTaTc ACCELLKAT I CM TO PEFEfiENC- SYSTEM 
CALL MFC Ok ( D A Y 2 i • ir.UC. . FC T ) 

HET U.<N 
END 


F 112 

F 113 

F 1 IA 

F 1 l £■ 

F llt> 

" 117 

f ue 

f 1 1 r 
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FLUXM 

DESCRIPTION 

■ FLUXM stores in half-word integers ten times the 

daily mean of the eight three-hourly geomagnetic indices, 

K . 

P 


FLUX tables must be updated using the values obtained 
from bulletins printed by ESSA^ , Boulder, Colorado. An ex- 
ample of the bulletin is given on the following page. 
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NAME 

purpose 

CALLING S5Q LENCE 
SYMBOL TYPE 
.. NARCS I 
SUBROUTINES USED 
COMMON BLOCKS 
INPUT FILES 
OUTPUT FILE S 
REFERENCES 


FLUXM 

STORES MAGNETIC FLUX INDICES. VALUES ARE DA *_ • 
MEANS CF KP TIMES 10 

CALL FLUX M( NARCS ) 

DESCRIPTION 

OUTPUT - NUMBER OF ARCS 
FLUXS 

NONE ~ ' :r 

NONE 

NONE 

•SOLAR GEOPHYSICAL DATA.’ PART 1« 

E • $• $« A * « BOULDER. CCLO. 

•GEODYN SYSTEMS DESCRIPTION* 


I UV/% L 


INTEGER NFLUX 
IN TEGER *2. MFL 
IN TEGER *2 

MGF01< 122) 
MGFOt< 164) 
MGF1 1061) 
MGFLUI ( 1 61 
MGFL U6 ( 1 84 
MGFL1 M 1 61 
MGFL 1 6(1 e4 
EQ LI VALENCE 


S/5785/ 

UX (5785) 

. MG F 02(1 64) * MGF 0 3 ( 1 81 ) .MGF04(164 ) , MGFO 5 ( 1 62 ) . 

♦ MGFC7 (181 ) « MGF 0 8( 1 84 } , MGFO 9 (161 )* MGF1 0(1 64 ) . 

♦ MGF 12(184) * MGF 1 3 ( 1 82 J • M GF 1 4 ( 1 8 4 ) . 

) . MGFLU2 (184) , MGFLU3 (181). MG FLU 4 ( 1 84 ) • MGFLUS ( 1 81 ) • 
) « MGF L U7 U 82 ) .MGF LUO (184). MGFLU9 (161 )« MGFL 10 ( 164). 
) . MGFLl 2 (1 84 I .MGF LI 3(181 ) » MGFL 1 4 ( 1 £4 ) , MGFL 15(182). 
) .MGF LI 7(1 81 ) .MGF LI 8 <1 84 ) 
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FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

flux 

FLUX 

FLUX 


28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 


( MFL UX( 

1 ) 

. MGF01(i>) 

• ( VF LUX (123 ) 


MGFO 2(1 ) ) * 

FLUX 

39 

(MFLUX( 

30 7 ) 

* MGF C 3 < 1 ) 1 

« ( MFLUX (408 ) 


MGFO 4 ( 1 ) ) , 

FLUX 

40 

<MFLUX( 

C 72 ) 

, MGF 05(1 >) 

» ( MF LUX (054 ) 


MGFO 6 ( 1 )). 

FLUX 

41 

(MFLUX( 

1 030) 

. MGF 07 ( 1 ) ) 

, ( MF LUX (1219) 


MGFO B { 1 ) ) , 

FLUX 

42 

( MFLU X( 

14C3 ) 

. MGF 09(1 ) ) 

« < MFL' 'X ( 1 58 4 ) 


MGF 1 0 ( 1 > ) , 

FLUX 

43 

( MFLUXC 

1 768) 

. MGF 1 1 ( 1 ) > 

.("FLUX ( 1949 ) 


MGF12U)). 

FLUX 

44 

( MFLU X( 

21 33 ) 

. MGF 13(1)) 

.( Mr LUX (2315) 


M GF 1 4 <1 ) ). 

FLUX 

45 

( MFLUX( 

2459) 

. MGFLUl ( 1 ) ) 

,( MFLUX (2660 ) 


MGFLU 2 ( 1 > ) . 

FLUX 

46 

<MFLUX( 

2864 ) 

. MGFLU3 (1 ) ) 

• ( MF LUX (3045 ) 


MGFLU4 (1)). 

FLUX 

47 

<MFLUX< 

3229 ) 

. MGFLUS ( 1 ) ) 

*( LUX (3410) 


MGFLU 6 (1)1. 

FLUX 

48 

( MFLUXf 

3554 ) 

. MGF LU7 ( 1 ) ) 

.(MFLUX ( 3776 ) 


MGFLU3 (I)), 

FLUX 

40 

( MFLU x( 

3 5 60 > 

* MGF L U9 ( 1 ) ) 

. ( MFLUX (4 14 1 ) 


mgflio (in. 

flux 

SO 

( MFLUXf 

4 3 25 > 

. MGF LI 1(1)) 

• ( MF LUX (4005 ) 


HGFLl 2(1 ) ), 

FLUX 

51 

( MFL L X{ 

4650 > 

. VGFLl 3(1)) 

. ( MFLUX (4871 > 


M G Ft 1 4 ( 1 ) ) , 

FLUX 

52 

( MFL U X( 

5055 ) 

. MGFL 15 (1 ) ) 

. ( MFLUX ( 5 23 7 ) 


MGFLl 6 (I)). 

flux 

53 

( M F L U X ( 

54 21 > 

.f 'GFLl 7 ( 1 > ) 

, { mflux ( sec 2 ) 


MGFL 18 ( 1 ) ) 

FLUX 
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DATA MGFCl/ 

4 17 « 2 0 , 3 6 * 

e 40 » 44 , 4 9, 

« 34,. 44, 33, 

« 52 . 49 , 36 , 

• 35 , 25 , 20 * 

• 32. 33 . 24 • 

• 55, 29, 17. 

• . 10, 20. 23 . 

MAGNETIC 

DATA MGFG2/ 



32. 

1 7, 

30 . 


31 , 

44 . 

39 * 


30, 

27, 

24 , 


‘ 60, 

35 * 

26 , 


13. 

13 , 

56 . 


20* 

10* 

10 * 


30 • 

26 * 

33 . 


23, 

22 , 

22 , 


20. 

31 , 

27 , 


23, 

22 , 

13 * 


3 , 

37 . 

20 . 


42 , 

44 * 

36 • 

— 

— 

WAGN£ 

TIC 

DATA MGF 0 3/ 


2 o 

7, 

17 , 


33, 

34 , 

24 , 


26 : 

3 7: 

27 : 


36. 

10 , 

27 , 


.4 6 * 

43 » 

37 * 


17, 

20, 

17 , 


26, 

17, 

27 * 


20. 

13 * 

10,. 


23* 

20 . 

20 . 


28* 

36 * 

29 • 


20. 

34 * 

31 , 


17* 

22 * 

20 * 


• — 

MAG N £ 

71 C 

DATA MGF 04/ 


13, 

29 , 

13 • 


66. 

66 , 

43 , 


35, 

31 , 

35 , 


67. 

41 • 

36 , 


. 35. 

44 , 

44 , 


37, 

40 , 

45 • 


49 * 

37 , 

49 , 


32, 

45, 

30 . 


46, 

57, 

50 * 


27. 

29 , 

26 * 


41 • 

42 , 

51 * 


22 • 

24 . 

29 * 

- 

— «... 

MAGNF. uc 

DATA MGFC5/ 

• 

10. 

13 . 

17 « 

* 

29. 

37 . 

22 . 

♦ 

22* 

20 . 

34 , 


FLUX 56 


41 


47 


45 , 

3 9, 

37, 

35 . 

33* 

37, 

56 , 

50, 

35, 

37. 

31 ♦ C LUX 

5 7 

46 


44 


38 • 

36 * 

40 , 

44 , 

40 . 

32, 

30 . 

24, 

43. 

33, 

FLUX 

58 

45 


39 


37 * 

32 , 

23* 

23 , 

13* 

20 . 

17, 

17. 

35. 

39. 

43. FLU X 

59 

30 


2 9 


1 7 . 

20 , 

30 * 

26 , 

26 • 

24 . 

35 . 

43. 

41 , 


flux 

60 

22 


27 


22 . 

17 , 

26, 

24 * 

35 • 

24 , 

29 , 

41 , 

46. 

40. 

31, FLUX 

61 

13 


1 7 


13 , 

1 0 . 

3, 

24 , 

47* 

36 . 

33 . 

52. 

27. 

58. 

FLUX 

62 

13 


22 


30 , 

59, 

28 . 

43 , 

4 3 . 

33, 

30 , 

23, 

30. 

36, 

24. FLUX 

' 63 

22 


5 6 


46 . 

2 G ♦ 

33, 

31 . 

22 . 

22 , 

53. 

65. 

23/ 


FLUX 

64 

FLUX 

FCR 5 GO 7 01 

TC 

5 81.23 

1 






FLUX 

65 















FLUX 

66 

36 


26 


17 , 

32 . 

79. 

59 . 

32, 

30 , 

36. 

30. 

29. 

17, 

20. FLUX 

67 

37 


52 


35 * 

1 7 , 

33, 

37 , 

26 , 

4 1 , 

24, 

23. 

27, 

30. ' 

FLUX 

68 

1 0 


13 


13 » 

27 * 

10 . 

20 . 

31 . 

30 , 

24, 

27, 

20 . 

23. 

27, FLUX 

69 

1 7 


1 7 


44 * 

26 .■ 

61 . 

33 , 

29 . 

56 , 

28, 

26. 

23, 

20 , 

FLUX 

70 

7 C 


58 


17 . 

31 , 

35 # 

39 . 

27. 

20 , 

13, 

7. 

10 . 

17, 

47, FLUX 

71 

1 0 


10 


10 . 

13, 

1 7. 

60 . 

39 • 

24, 

22 . 

13. 

35. 


FLUX 

72 

13 


2 B 


27 * 

29 . 

24 . 

13 ♦ 

10 , 

17. 

7, 

20 . 

20 , 

24, 

23, r LUX 

73 

1 7 


1 7 


50 , 

49 • 

62 . 

24 , 

26. 

42 i 

46, 

35. 

34, 

27. 

FLUX 

74 

24 


7 


7* 

1 7 * 

7 « 

10 , 

27. 

32, 

23, 

17, 

7, 

17. 

23, FLUX 

75 

1 9 


l 0 


7 * 

20 . 

22 . 

24 , 

22 . 

23, 

33. 

27, 

3. 


FLUX 

76 

52 


4 1 


27 • 

17. 

24 ♦ 

27 * 

10 , 

22 , 

17, 

51. 

34. 

24, 

31 .FLUX 

77 

30 


22 


23 . 

27 , 

20 . 

10 . 

26, 

27, 

29, 

24. 

27, 

20 / 

FLUX 

78 

FLUX 

F OR 5901 01 

TC 

590630 






FLUX 

79 















FLUX 

60 

20 

» 

39 

t 

38 , 

34 . 

33. 

46 . 

49 , 

29 , 

28. 

23, 

22 , 

22 . 

32. FLUX 

61 

t 0 

- 

7 

- 

20 * 

2 2 , 

10 , 

33 - 

37, 

23, 

2 3, 

32* 

26* 

29, 

p L 1 J X 

e? 

4 5 


3 5 


33 : 

2 6 * 

2 7; 

3 7; 

17: 

a 5 . 

39 ; 

2 6 ; 

AO; 

A ^ . 

e c c i_«j y 

a rr 

1 0 


1 7 


32 , 

30 , 

10 * 

57 . 

50 , 

4 2, 

49. 




FLUX 

64 

29 


2 7 


17 . 

17 . 

26. 

1 0 . 

3 * 

10 , 

33. 

27. 

22 , 

1 7, 

10. FLUX 

es 

1 3 


17 


13 , 

26 , 

22 . 

43 . 

60 . 

77 . 

6 2 . 

58, 

35, 

34, 

FLUX 

£6 

20 


1 7 


17 , 

22 « 

37* 

49 , 

64 , 

37 , 

24, 

23, 

26. 

24. 

17. =LUX 

67 

13 


22 


7 , 

47 , 

40 , 

37 , 

33 . 

. 29, 

27, 

38, 

36, 


FLUX 

66 

31 


41 


7 * 

17 , 

4 4 * 

31 , 

29, 

39, 

66 , 

29* 

13, 

44. 

45. FLUX 

89 

24 


28 


30 , 

27 . 

52 . 

39 . 

20 , 

13, 

7. 

7, 

17, 

37, 

flux 

90 

37 


30 


27 , 

22 « 

26 . 

34 , 

27. 

36, 

17, 

10 . 

23,' 

22 . 

17.FLUX 

91 

22 


22 


26 ♦ 

30 . 

39* 

17 . 

29. 

43, 

44 , 

51, 

46/ 


flux 

92 
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FLUX 

93 















FLUX 

94 

30 

» 

31 

$ 

26. 

29* 

29 . 

33 , 

28 * 

49 » 

38. 

26. 

31 . 

83. 

SO, FLUX 

95 

33 

» 

31 

f 

26 . 

2 8 * 

41 . 

4 6 « 

44 . 

39 , 

23, 

24, 

10 , 

30, 

FLUX 

96 

34 

♦ 

23 

t 

37 , 

29, 

29 , 

37 , 

29, 

22 . 

13, 

17, 

17, 

40. 

70, r L U X 

97 

41 

* 

44 

* 

40 . 

4 1 . 

35 . 

30 , 

22 . 

13, 

7, 

28, 

23, 

23. 

FLUX 

98 

65 

* 

44 

t 

33 , 

20 . 

24 . 

17 . 

22 , 

30 . 

29, 

29. 

33, 

33, 

31 .FLUX 

99 

55 

• 

61 

« 

58 , 

33 , 

■38. 

46 * 

37. 

36. 

33. 

23, 

27. 


FLUX 

too 

51 

* 

46 

V 

52 . 

30 . 

22 , 

1 7 , 

10 , 

7 « 

20 , 

10 * 

28, 

30. 

10. FLUX 

1 Cl 

22 

« 

1 7 

V 

34 * 

24 . 

17* 

37 . 

39 • 

26, 

10 , 

17, 

41, 

46, 

. FLUX 

1 02 

45 

* 

41 

« 

37 , 

26 , 

28. 

2 3 . 

24, 

13. 

20 , 

27, 

41 , 

13. 

22. FLUX 

1 03 

l 0 


31 

t 

32 . 

4 7 ♦ 

22 , 

24 , 

28 , 

30 . 

60 . 

30, 

48. 


FLUX 

104 

27 

* 

57 

t 

31 . 

1 7 , 

20 . 

2 2 . 

17, 

17 . 

31 , 

33. 

47, 

39, 

32. e L UX 

105 

1 7 

* 

1 0 

f 

17 * 

4 1, 

30 , 

22 . 

39 . 

46, 

47. 

33. 

29. 

20 / 

FLUX 

1 06 

FLUX FOR 6001 01 

TC 

5 CO 630 






FLUX 

IC7 















FLUX 

1 08 

24 

• 

38 

t 

23 * 

1 7 . 

13, 

10 . 

4 Q » 

40 • 

30 • 

24, 

48, 

42. 

l 7. FLUX 

109 

32 

V 

51 


35 , 

3 3 , 

3 3. 

2.4 , 

20 . 

23. 

17. 

27, 

3. 

7. 

flux 

UC 

33 

* 

34 

« 

34 , 

1 3 . 

24, 

1 7 . 

17* 

22 . 

17 . 

26. 

41 , 

23. 

40. FLUX 

1 1 1 
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« 

37. 

41 • 

36 . 

34 , 

37 , 

24 , 

24 , 

10 , 10 . 

17, 

37, 

17, 

31, 



FLUX 

1 12 


• 

34. 

37 . 

36 . 

31 . 

29 , 

28 . 

1 0 . 

28, 26. 

37 , 

44 , 

22 . 

1 3, 

22 . 

36, 

52, FLUX 

1 13 


« 

36. 

27 , 

24 , 

1 0 • 

20 • 

13 * 

1 3 , 

31 , 17, 

20 » 

17 , 

32, 

33. 

35, 

70. 

F L U X 

1 1 4 



64. 

05 » 

57 , 

39 , 

44 , 

32 , 

37 , 

31, 29 , 

44 , 

39 . 

45, 

Alt 

29 » 

38, 

41, FLUX 

1 1 5 


• 

42. 

26 . 

1 0 • 

3 . 

7 « 

13 . 

30 , 

56. 54, 

33. 

43. 

61 . 

53. 

76, 


r LUX 

1 1 6 


« 

SC. 

30 . 

22 . 

1 3 . 

24 , 

55 , 

53 . 

69 , 31 . 

27, 

40. 

35, 

26. 

28. 

24, 

48. FLUX 

1 1 7 



29, 

17, 

13 » 

10 , 

17 . 

13 . 

39, 

43. 34, 

34, 

31 . 

33, 

52, 

33, 

28, 

-LUX 

-1 1 8 


• 

42 • 

13, 

22 . 

52 . 

37 . 

39 » 

30 ♦ 

38 , 34 , 

17. 

13. 

13, 

17, 

29. 

26, 

1 7, FLUX 

1 19 



20 . 

29 » 

31 , 

22 , 

31 , 

28 , 

26, 

2 8 .‘ 39 , 

37, 

56, 

45, 

45, 

53/ 


FLUX 

120 

o 

. 


FLUX 

F OR 600701 

TC 501231 






FLUX 

121 
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FLUX 

1 22 



39, 

31 . 

28 , 

35 . 

31 . 

27 . 

1 3 , 

7, 10 . 

22 . 

24, 

24, 

27, 

47, 

63, 

59, FLUX 

123 



36. 

29, 

45 , 

39 . 

24 , 

24 , 

23 . 

24, 10, 

22 . 

17 , 

17. 

41 , 

41 , 

46, 

FLUX 

i 24 


e 

29. 

33 . 

20 . 

20 . 

7 ♦ 

20 , 

20 , 

31 , 37 , 

29 , 

37 , 

38. 

2 2 , 

29, 

22 , 

£2, FLUX 

125 


4 

* 66 , 

21 . 

36 , 

39 . 

41 , 

29 , 

20 « 

17, 7 , 

10 , 

31 . 

29. 

49, 

54 , 

31 * 

FLUX 

1 26 



7. 

25 . 

45 . 

64 , 

68 . ' 

41 ♦ 

40 • 

34 . 31 , 

26 . 

30 . 

26, 

36, 

28, 

10 , 

10 . flux 

127 


O 

22 , 

31 . 

10 . 

1 3 , 

22 • 

24-, 

2 9, 

40 . 13 , 

24 . 

32. 

20 . 

29, 

41 . 


FLUX 

1 20 



SO. 

0 0 , 

30 , 

45 , 

44 , 

80 , 

76 , 

44 , 46. 

24 , 

32 . 

17, 

10 , 

7, 

32. 

1 7* C LUX 

129 


Q 

20 . 

40 , 

24 , 

24 . 

22 , 

3 , 

7 , 

36, 59 , 

55, 

46 , 

49, 

47, 

44 , 

41 . 

C LUX 

1 3C 


« 

27. 

31 , 

33 , 

52 . 

26 , 

17 , 

1 7, 

7. 13 . 

1 7 , 

33. 

57, 

86 , 

50. 

57, 

63. FLUX 

131 


• 

33, 

13, 

17 , 

23 , 

49 , 

42 , 

24 , 

31 , 47 , 

32. 

36, 

36, 

23, 

32. 


r L U X 

132 



63, 

39 . 

23 • 

17 , 

24 ♦ 

36 . 

39 , 

37. 35, 

24 . 

23. 

33, 

29. 

17, 

40, 

44, FLUX 

133 


• 

20 , 

39 , 

32 , 

38 . 

39 , 

35 • 

29 , 

30. 23. 

31. 

51 , 

37, 

34, 

32, 

30/ 

flux 

1 34 

e- 

— — T* 
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1 35 


DA TA MGFC7/ 












FLUX 

1 36 


• 

20 , 

1 0 , 

13 . 

7 , 

1 0 . 

17 , 

22 , 

37, 42, 

13, 

2 . 

13. 

£3, 

13. 

34, 

£7 » c L U X 

127 



22 - 

32 « 

39 * 

47 , 

3 3 . 

36 « 

1 7 . 

33 * 33 . 

27 . 

22 * 

27, 

22 . 

10 . 

10 , 

FLUX 

1 3e 


e 

7. 

3 . 

25; 

Afl . 

A 1 . 

?7 t 


HO* 

in. 

? 3 , 

7 . 


22 - 

?t>* 

40* Fl_ M Y 

!J»Q 


* 

• 41 , 

51 • 

33 , 

42 • 

37 . 

33 . 

26. 

24, 7 , 

10 . 

23 , 

27. 




FLUX 

1 40 

■ 

A 

22 . 

22 , 

13 » 

7 , 

29 , 

46 * 

7 , 

13, 28 , 

49. 

17 . 

20 , 

24, 

39 , 

38, 

3 5 , F L U X 

141 



29, 

27, 

46 * 

32 , 

26 . 

20 . 

24 , 

22 , 13, 

23, 

‘37 . 

32. 

31* 

24, 

17, 

FLUX 

1 42 


« 

32, 

29 . 

40 , 

1 7 . 

13 . 

23 . 

22 , 

17, 38, 

32. 

39 . 

24 , 

3C . 

52. 

55. 

28, - LUX 

142 



10 , 

13 . 

20 . 

2 0 . 

3 , 

22 . 

22 . 

26, 22 . 

£9. 

27 . 

20 , 

12 , 

23. 


flux 

1 4 4 


• 

30. 

34 , 

10 , 

22 . 

35 « 

42 , 

35, 

26, 30, 

22 . 

34, 

30 . 

37. 

24, 

10 , 

41 , "LUX 

145 


• 

22 . 

7 • 

22 . 

23 , 

13 . 

26, 

29. 

22 . 44 , 

20 , 

17 , 

24 , 

13. 

23, 

37, 

FLUX 

1 46 



42 , 

41 • 

24 , 

22 . 

23 , 

32 , 

38 , 

31 , 17 , 

10 . 

3. 

22 . 

7, 

10 , 

26, 

24, "LUX 

1 47 



‘ 17. 

29 , 

20 , 

24 * 

54 , 

54 . 

2 3 , 

17, 23 . 

17, 

20 , 

10, 

39, 

10/ 


flux 

148 
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DATA MGFC8/ 



• 









FLUX 

1 50 



24. 

27, 

31 , 

31 , 

49 , 

31 . 

29. 

24, 23. 

29. 

23, 

13, 

65, 

64 , 

39. 

37. FLUX 

151 



40, 

6 3. 

33 , 

34 • 

45 ♦ 

27 , 

32 » 

28, 29. 

37. 

67 . 

33. 

22, 

22. 

17, 

flux 

1 52 



22, 

40 • 

33 • 

33 . 

23 . 

20 , 

1 0 . 

32, 10, 

26 . 

38 , 

20 , 

3. 

22* 

22, 

1 3, C LUX 

153 


• 

13. 

13 . 

23 . 

17, 

13 . 

3 . 

7. 

10, 23. 

26. 

22, 

13, 

21, 

46, 

42, 

FLUX 

1 54 



41 • 

20 , 

27 . 

13 . 

27 . 

13 . 

1 0 * 

10, 22* 

20 . 

27 , 

32 , 

22, 

41 , 

17, 

20, FLUX 

155 



26, 

20 . 

7 , 

23 , 

3 , 

17 , 

3 * 

48, 45 . 

33. 

39 , 

13. 

17. 

45, 


FLUX 

156 



67, 

17, 

13 . 

20 . 

1 0 . 

13 « 

1 7 . 

17, 7 . 

3. 

27 . 

t 

29. 

17, 

7, 

2. FLUX 

1 57 


« 

2 f 

7, 

17 , 

33 , 

22 . 

13 ♦ 

1 7 . 

13, 22, 

43, 

42, 

69, 

43. 

17, 

13, 

flux 

156 



13, 

10. 

10 , 

1 0 , 

34 • 

31 . 

40 , 

37, 27. 

1 3 . 

7, 

30 . 

10. 

28, 

2 9 

7, FLUX 

159 



31 . 

50 , 

26 . 

2 8, 

20 . 

3 . 

3 • 

7 . 10. 

13, 

to , 

7. 

7, 

3, 


FLUX 

1 ec 



52. 

56 , 

S3 . 

24 , 

26 , 

30 . 

1 7 , 

3, 7 , 

17, 

29 . 

17, 

10. 

10. 

20 . 

1 0 » F LU X 

161 



1 0* 

3 * 

2 . 

7 , 

7 , 

17 , 

27 , 

24 . 3 , 

10 » 

23, 

33. 

28. 

31 . 

20 / 

"LUX 

1 62 
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164 


• 

17. 

23 • 

3 . 

2 . 

2 « 

7. 

7 , 

10. 17 , 

52, 

27 . 

10, 

1 3, 

26, 

24. 

27, FLUX 

1 65 


* 

10. 

3 . 

30 . 

1 0 , 

2 0 , 

2 , 

2 , 

2. 10. 

2 2 , 

24 , 

7, 

20 , 

20 , 

2. 

FLUX 

166 


• 

2, 

10, 

10 ♦ 

35 . 

20 . 

17 . 

3 5 . 

7, 17, 

7, 

28 , 

35. 

28, 

30, 

27. 

41 . "LUX 

167 


8.0-252 
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• 

2 9* 

'17, 

7 , 

7 « 

20 . 

26 , 

24 , 

23, 

22 , 

32, 

32. 

3. 




FLUX 

168 


20* 

20, 

£0 . 

17 , 

32 , 

43 . 

22 , 

3. 

3 * 

27 , 

27, 

31 . 

22, 

10* 

24, 

1 0 * e LU X 

1 69 


10* 

22 . 

2 a . 

28 * 

30 ♦ 

10 * 

l 0 » 

20 . 

23 , 

10, 

10 . 

10 • 

22. 

7 9 

10. 

FLUX 

1 7C 


26 a 

23 , 

26 , 

27 , 

2 0 , 

40 • 

54 . 

43, 

27 , 

42. 

37 , 

23, 

1 3, 

7, 

23. 

20. FLUX 

171 


22* 

27. 

20 , 

24 . 

35 o 

42 . 

27, 

10, 

28 , 

26, 

cO » 

22. 

17, 

13* 


FLUX 

1 72 


23* 

23 . 

20 , 

3 9 

1 0 . 

37 , 

20 , 

17, 

3 , 

17 , 

23, 

7. 

28, 

30 . 

30. 

22. -LUX 

173 


.7* 

3, 

24 , 

13 , 

7 , 

7 , 

3. 

3, 

3 * 

10 . 

27, 

17, 

17. 

7. 

37, 

FLUX 

1 74 


23* 

13 , 

13 * 

20 . 

24 , 

24 , 

23 , 

7, 

37 . 

32, 

17, 

22. 

1 3, 

22 . 

26. 

17. FLUX 

’l 75 


3. 

3 , 

2 0 . 

1 0 , 

27 , 

24 , 

30 ♦ 

1 7. 

17 , 

20 . 

34 « 

32. 

29, 

20/ 


FLUX 

1 76 

— 

WAGN^ 

TIC 

FLUX FCR 

620701 

TC 

521231 






FLUX 

177 

DATA MG FI 0/ 













FLUX 

178 

a 

23* 

22 * 

22 , 

34 . 

31 , 

27 , 

22 * 

2 4, 

17 , 

2 2, 

23. 

20 , 

26 p 

23* 

17. 

7, FLUX 

1 79 

P 

3 « 

10, 

24 . 

31 , 

27 . 

20 , 

22 . 

31 , 

30 * 

49 . 

41 , 

33 , 

24, 

13. 

26, 

flux 

1 80 

P 

46. 

24 , 

26 . 

1 7 . 

22 * 

33 , 

36 ♦ 

4 3, 

34 , 

24, 

3 , 

10 . 

1 3, 

23* 

37, 

36, FLUX 

1 £1 

m 

' 36* 

36 . 

32 . 

13 , 

20 , 

43 , 

32 , 

35. 

28 . 

22, 

13, 

10 . 

30, 

28. 

39. 

flux 

1 82 

c 

41* 

, 44 . 

SO , 

45 , 

31 ♦ . 

37 * 

29, 

29 , 

26 , 

26 , 

23, 

54, 

37 • 

26. 

30. 

24, “LUX 

l e3 

p 

20. 

13 , 

47 . 

23 , 

27 , 

36 ♦ 

28 , 

17. 

20 . 

43. 

23 , 

23, 

34 , 

29. 


FLUX 

1 84 

• 

46. 

37 , 

26 • 

24 , 

27 , 

32', 

2 7 , 

45 . 

43 . 

37, 

39, 

23, 

26, 

42, 

24. 

35, FLUX 

1 85 

• 

20* 

32 . 

41 • 

26 . 

29 . 

37 . 

37 , 

40 ♦ 

44 , 

4 4, 

41 , 

33, 

27. 

29, 

23, 

FLU X 

1 86 


22* 

30 . 

29 . 

34 , 

17 . 

38 ♦ 

30 , 

22, 

1 3 . 

10 , 

20, 

10 , 

7. 

20. 

39. 

40. C LUX 

1 87 

«■. 

22* 

2 « 

10 , 

10 . 

34 , 

4 5, 

3 5, 

31 , 

34 , 

17 , 

23, 

20 , 

22, 

43. 


FLUX 

1 88 

m 

20* 

7, 

10 , 

32 , 

2 0 . 

7 « 

1 C * 

20 , 

20 

20 * 

39 • 

26, 

31 . 

28* 

26, 

1 3. r LUX 

1 09 

o 

46. 

49 , 

40 , 

45 , 

37 ♦ 

26 , 

1 0 , 

1 0 . 

1 0 . 

32, 

17, 

10, 

13, 

10. 

27/ 

FLUX 

i 90 

— 

MAG KZ 

TIC 

FLUX FOR 

63C101 

TC 

630630 . 






FLUX 

191 

DATA MG F 1 1 / 













FLUX 

192 

• 

13. 

2 , 

3 , 

22 . 

7, 

0, 

20 , 

3, 

0 , 

7, 

17, 

13. 

41, 

43* 

39, 

36. FLUX 

193 

*P 

• - 34, 

30, 

34 » 

•17.* 


13 . 

23 , 

■2 4 »■ 

•2 0* * 

3 t • 

-2, 

3, 

-13. 

41 i 

48, 

FLUX 

144 


28 • 

3 • 

7 . 

7 . 

7 . 

1 0 . 

7 . 

2 Q 

' 77 . 

40 . 

.76 . 

36 . 

4 n » 

34 . 

??. 

1 6 , e? 1.. 1 1 X 

1 C4 


10* 

7. 

3 , 

23 , 

1 7 , 

17 , 

.17 , 

3. 

10 , 

13. 

3, 

20 * 




FLU X 

196 


30. 

1 7 , 

22 . 

1 0 * 

7 , 

13 . 

23 , 

43, 

33 . 

50 . 

35, 

27, 

22, 

3. 

3. 

3 » r L U X 

197 


10* 

17 , 

20. 

1 0 , 

7 • 

3 , 

26 • 

10. 

7 , 

3. 

2. 

10. 

1 3* 

7. 

1 0» 

FLUX 

1 98 


27, 

10 , 

10 * 

34 , 

43 ♦ 

34 , 

30. 

20. 

20 . 

3, 

7 , 

23, 

24, 

32. 

30. 

1 7 » c L U X 

1 99 


20* 

30 . 

24 , 

20 , 

10 , 

26 , 

23 , 

3 , 

1 0 , 

13. 

24 , 

7. 

10, 

37. 


flux 

200 


46* 

3 6, 

29 . 

34 , 

24 • 

23 , 

1 7 . 

24 , 

29 , 

29 . 

33 , 

23* 

37, 

27. 

27. 

22. -LUX 

201 


17* 

7 , 

13 , 

22 , 

1 3 • 

7 . 

7 • 

3 , 

22 . 

17 , 

20 • 

31 . 

36, 

27. 

23, 

FLUX 

202 


26 . 

24 , 

17 . 

13 ♦ 

3 , 

31 , 

4 0 . 

27, 

24 , 

13, 

17 , 

13, 

1 3, 

13, 

23, 

3, FLUX 

2C3 


23. 

36 , 

24., 

28 . 

22 . 

10 . 

10 , 

17, 

37 , 

39 , 

31 , 

28. 

23, 

26/ 


FLUX 

204 


— ~ — 

MAG Nc TIC 

FLUX FCR 

630701 

TC 

531 231 






FLUX 

2C5 

DATA MG FI 2/ 













FLUX 

2C6 


13. 

7, 

7 , 

29, 

33 « 

35 , 

26 , 

28, 

30 . 

24 , 

17 . 

10 . 

13. 

10. 

10. 

20 ♦ F LUX 

207 


31 . 

23 , 

13 • 

20 , 

39 , 

23 . 

37 , 

42. 

26 ♦ 

29, 

31 , 

17. 

10, 

41 . 

33. 

C LUX 

2C8 


32. 

30 . 

23 , 

23 , 

27 « 

26. 

2 4, 

17, 

23 . 

20 , 

10 . 

10 , 

7, 

7, 

20. 

1 7, FLUX 

209 


23 . 

39 • 

38 , 

54 , 

40 , 

22 * 

33 , 

23, 

22 . 

24 , 

31 , 

39, 

30, 

24, 

32, 

FLUX 

210 


30. 

22 , 

23 , 

1 3 , 

2 3 , 

23 , 

13 . 

30. 

29 . 

23 , 

35, 

28, 

22. 

60 . 

46, 

44, FLUX 

21 1 


46. 

3C . 

39 , 

28 , 

49 , 

69 . 

59 , 

33, 

55. 

40 * 

44, 

50 . 

34, 

27, 


flux 

212 


10. 

7 , 

10 * 

17 , 

22 , 

13 , 

26 « 

31 * 

17 . 

23 , 

37 , 

47, 

38, 

43, 

31. 

31 , FLUX 

213 


13. 

13 , 

13 • 

28 , 

23 • 

7 , 

7 • 

55, 

3 1 « 

22* 

10 . 

20 * 

58, 

45. 

17. 

FLUX 

2 14 


22. 

31 • 

31 • 

17 , 

3 . 

27 . 

47 . 

50. 

.44 , 

4 1 , 

31 . 

29, 

13, 

13, 

10, 

7. f L UX 

215 


31 • 

7, 

3 , 

10 , 

3 ♦ 

17 , 

22 , 

35 . 

31 , 

3. 

10 . 

13 . 

22 , 

33. 


FLUX 

216 


13. 

27 , 

45 . 

39 • 

41 , 

37 . 

30 , 

29. 

20 . 

0 , 

3, 

10 . 

22* 

26. 

20, 

20. FLUX 

217 


10. 

3 . 

1C • 

35 . 

26 , 

28 , 

28 , 

24 , 

7 , 

10 . 

10 . 

26. 

31 • 

13, 

7/ 

flux 

21 3 

— 

magns 

TIC 

FLUX FCR 640101 

T C 

6 40 6 30 






FLUX 

219 

DATA MGF 13/ 













FLUX 

220 

e 

17. 

52 « 

36 • 

34 , 

22 . 

13 , 

20 . 

17, 

35 . 

36, 

22 * 

17. 

17, 

2, 

3, 

40.FLU X 

221 


32. 

20 . 

20 , 

1 7 , 

3 4 

10 , 

1 0 . 

26 . 

31 . 

20, 

1C . 

23, 

3 6. 

24, 

39. 

FLUX 

2 2 

• 

24, 

22 , 

3 , 

27 , 

26 , 

42 . 

30 , 

35, 

30 , 

20 . 

7 . 

29, 

4 3. 

24 , 

20. 

l 3 1 F L U X 

2 23 


REPRODUCIBILITY OP THE 

qrige:a t is poor 
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&7. 

/ 

13. 

T 

3 • 

33 , 

30 . 

20 . 

22 • 

20 , 

34 , 

33. 

30 • 

32, 

22. 



FLUX 

224 

10, 

2 , 

20 • 

52 . 

44 , 

32 , 

27 . 

33 . 

23 • 

10 , 

22 • 

31 . 

22, 

24 • 

26. 

22, FLUX 

2 25 

24, 

7 , 

7 , 

22 . 

27 . 

41 , 

42 , 

34 . 

31 . 

26 . 

7, 

0 . 

7, 

39 . 

7, 

FLUX 

226 

49* 

39, 

33 . 

26 ♦ 

26 , 

17 . 

24 • 

29. 

20 . 

13. 

29 , 

10. 

13. 

10. 

23, 

23, FLUX 

227 

3 1 , 

36 

37 . 

.3 0 . 

23 , 

3 . 

7 . 

1 0 , 

26 . 

24 , 

39 c 

44, 

31 , 

26, 


FLUX 

223 

37. 

26 » 

10 • 

10. 

23 « 

10 . 

7 , 

2 * 

3 . 

35. 

34 , 

3 « 

33. 

40. 

41. 

36, FLUX 

229 

23* 

13 . 

1 0 . 

7. 

13 , 

10 * 

17 , 

36. 

43 » 

20 . 

26, 

22, 

13. 

17, 

10. 

FLUX 

230 

t 3 * 

1 0 • 

10 . 

10. 

7 . 

10 . 

1 3 , 

23. 

22 , 

50 . 

39 . 

27. 

23, 

20 » 

17, 

1 0, r LUX 

231 

1 0* 

20 • 

13 . 

32 , 

26 ♦ 

13 , 

1 7 . 

13, 

24 , 

13, 

13, 

26, 

1 7. 

7/ 


FLUX 

232 


TI C 

FLUX F CR 640701 

T C 

541231 






FLUX 

233 

DATA HGF1 4/ 













flux 

234 

TO. 

7, 

33 . 

22 , 

1 3 . 

1 3 « 

33 . 

36, 

31 . 

28, 

17 , 

17, 

17, 

7, 

3, 

20, FLU X 

235 

37. 

38 « 

29 , 

24 • 

1 7 » 

23 . 

1 3 « 

10 , 

13, 

10 t 

3 . 

3. 

31, 

29. 

20. 

FLUX 

236 

17* 

10 . 

13 , 

44 * 

31 , 

20 . 

20, 

1 0 , 

22 , 

7, 

40 . 

29 , 

20, 

10 . 

7, 

17, FLUX 

237 

13. 

17, 

13., 

1 0 . 

10 , 

20 . 

10 

7, 

22 , 

24, 

22. 

7, 

l 3. 

7, 

28, 

flux 

238 

35. 

24 • 

23 . 

23 ♦ 

1 7 . 

27 . 

41 , 

37, 

31 , 

24, 

10 * 

3, 

3, 

3. 

’ 7. 

20. flux 

2 39 

23. 

13. 

7 , 

3 « 

1 3 . 

49 • 

22 • 

23, 

1 3 . 

10 , 

17, 

45. 

20. 

37, 


FLUX 

240 

23 . 

10 * 

24 , 

42 ♦ 

3 5 . 

28* 

20, 

30 « 

29 , 

10 . 

7 . 

30 , 

20. 

20. 

17. 

1 0, flux 

241 

17, 

27, 

39 . 

27 , 

30 • 

7 . 

2 , 

13, 

10 , 

33, 

17 . 

13, 

20. 

7, 

3, 

FLUX 

242 

£9, 

26, 

10 ♦ 

20 . 

23 . 

10 , 

2 c 

22, 

34 . . 

26. 

13 . 

22, 

10, 

2. 

27, 

24, FLUX 

243 

13. 

13 , 

3 e 

7 , 

7 * 

17 , 

35 . 

3. 

3, 

26 « 

10 . 

24, 

10. 

26 « 


FLUX 

244 

£2. 

7. 

13 , 

1 0 • 

3 ♦ 

7 , 

2 4 , 

17. 

13 , 

7, 

7, 

3, 

23, 

20 , 

22. 

30, FLUX 

245 

30, 

17 . 

23 • 

1 0 , 

1 0 ♦ 

7 , 

1 0 . 

7, 

10 . 

13. 

3. 

7, 

10. 

3, 

7/ 

FLUX 

246 

MAG NE 

TI C 

FLUX F CR 6501 01 

TC 

650630 






FLUX 

24.7 

DATA MGFLUi 

f 












FLU X 

248 

7. 

26 , 

20 . 

1 0 . 

3 • 

3 , 

1 0 . 

28* 

2 0. 

13. 

3, 

27. 

28. 

17, 

17, 

7. C LUX 

249 

£4 • 

13 i 

1 0 * 

2 0. 

2 *+ * 

35 . 

20 * 

o • 

5 * 

7 , 

i7 • 

13. 

15* 

i.0 , 

7 , 

r LU X 

25w 

A 0 » 

3 , 

i3 • 

2* , 

u» 

2v ■ 

4J, 

J 2 » 

24 * 

<Lt « 

24 * 

10 , 

10 , 

26 • 

2 7. 

17, FLUX 

251 

3 * 

10 . 

10 . 

1 3 , 

32 . 

13 • 

33 , 

26, 

29 ♦ 

20 . 

23, 

17. 




FLUX 

252 

20. 

22 . 

39 . 

36 . 

20 . 

10 . 

20 . 

3. 

10 . 

3, 

10 , 

10 , 

24. 

17, 

27, 

1 0. Flu X 

253 

1-3* 

3 . 

10 • 

13 * 

22 . 

22 * 

39 , 

27, 

35 . 

28. 

23, 

13. 

17, 

3. 

10. 

flux 

254 

10. 

3 . 

7 , 

1 7 . 

10 • 

2C , 

22 « 

10 , 

26 . 

17, 

22. 

20 . 

13. 

13. 

10. 

1 0 . r L U X 

255 

26. 

57 . 

29 . 

24 . 

7 , 

1 3 . 

1 3 . 

13, 

10 , 

17. 

13. 

7 • 

13. 

13, 


flux 

256 

10. 

3 * 

7 , 

1 0 • 

39 . 

17 . 

1 3 , 

26, 

27 • 

20, 

3, 

10 . 

7. 

7. 

10, 

33. FLUX 

257 

13. 

10 . 

3 . 

10 • 

1 3 , 

17 , 

13 . 

1 7, 

7 * 

10 • 

17 . 

13. 

7, 

7, 

10, 

-LUX 

258 

13. 

17. 

23 . 

26 . 

1 7 , 

13 , 

7 . 

23, 

27 ♦ 

3, 

13, 

7, 

3, 

17, 

34, 

58, FLUX 

259 

. 44 * 

26 , 

3 * 

3 * 

3 . 

10 . 

7 . 

7 , 

26 , 

24 • 

17. 

7, 

2 6, 

29/ 


-LUX 

260 



MAG NE 

TIC 

FLUX FOR 650701 

TC 

551 23 1 






FLUX 

2 61 

DATA 

MGFLU2 

/ 












FLUX 

262 

• 28. 

13 , 

13 • 

7 . 

7 , 

34 • 

22 . 

36, 

27 , 

29 • 

3. 

13. 

13, 

10 , 

24, 

10. FLUX 

263 

« 3. 

17 . 

28 . 

1 3 . 

7 . 

10 . 

28, 

20 * 

17 . 

10 , 

22 . 

30 , 

27, 

10 , 

7, 

flux 

264 

• 13, 

26 , 

17 , 

20 • 

1 0 . 

7 , 

17, 

17, 

20 , 

10 . 

17. 

17, 

7. 

22, 

17. 

20, FLUX 

265 

• 26. 

36 , 

40 . 

32 , 

27 . 

13 , 

23 , 

29, 

28 . 

20 , 

17 , 

7. 

17, 

22. 

26, 

FLUX 

266 

• 17, 

13 • 

10 • 

31 . 

23 • 

23 . 

2 0 . 

10, 

7 , 

7, 

10 , 

26, 

17. 

7, 

30. 

45. FLUX 

267 

• 33. 

31 • 

32 , 

1 3 • 

1 3 , 

13 . 

24 , 

24 « 

27 , 

23 » 

35. 

40 * 

20. 

7, 


flux 

268 

« 3. 

31 , 

7 , 

2 ♦ 

22 * 

3 , 

1 7 . 

30, 

1 0 * 

7 , 

7 . 

17, 

22. 

17, 

3, 

3. FLUX 

269 

o 3 . 

17. 

10 , 

3 . 

2 . 

29, 

34 . 

29, 

26 , 

20 ♦ 

17 , 

30 • 

13. 

22. 

17, 

• FLUX 

270 

• 10. 

13 , 

2 > 

22 * 

26 . 

32 . 

23 . 

10 . 

13 , 

0 . 

7. 

7. 

24, 

7. 

3, 

2. flux 

271 

* 10. 

17 , 

24 , 

32 . 

24 , 

10 , 

3, 

10 , 

1 3 , 

10 , 

10 , 

3. 

7. 

27, 


FLUX 

272 

• 34, 

23 . 

3 . 

26 • 

7 , 

7 . 

7 , 

10, 

17 . 

24 , 

24 ♦ 

24, 

17, 

3 . 

2, 

2. FL UX 

273 

• 3, 

2 7 ♦ 

2 0 . 

1 0 • 

3 . 

1 7 , 

7 , 

23. 

27 . 

34 . 

24 . 

31 . 

22. 

17, 

7/ 

"LUX 

274 

— 

MAG N; 

TIC 

FLUX FOR 660101 

TC 

660630 






FLUX 

275 

DATA 

MGF LU3 

/ 












FLUX 

276 

• 3 , 

22 * 

17 . 

26 . 

1 0 . 

3 . 

20 . 

22. 

22 . 

20 , 

3. 

3. 

3, 

7, 

13. 

0, FLU X 

277 

• 3 . 

13 , 

7 , 

30 ♦ 

37 , 

40 , 

2 9 , 

29 . 

26 . 

29 . 

7. 

20. 

17, 

3, 

3. 

FLUX 

278 

• 7. 

7. 

26 . 

2 3 . 

33 . 

22 , 

1 0 . 

1 0 . 

7 , 

20 , 

27 , 

13. 

17. 

3 » 

10. 

1 3. FLUX 

279 


8.0-254 



• m OF ' tttB 

ass*-* 
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• 

to* 

7, 

29 , 

32 , 

1 0 . 

29 , 

41 * 

34. 

24 * 

7, 

10 , 

3* 




FLUX 

2 eo 

* 

7. 

7, 

24 , 

23 , 

13 , 

10 . 

3. 

7, 

10 ♦ 

2 4, 

17, 

17* 

29, 

56, 

20, 

20. FLUX 

281 

• 

17, 

10, 

35 » 

24 , 

22 ♦ 

20 - 

57 . 

3 ♦ 

29 * 

35. 

28 . 

40 . 

27, 

17. 

7. 

“LUX 

2 82 

♦ 

33 t 

2 8 , 

20 , 

22 , 

1 7 , 

20 » 

24 , 

24, 

13 ♦ 

13, 

3, 

7, 

30, 

22 , 

10, 

7, P LUX 

283 

* 

10* 

7 , 

3 ,, 

1 3 , 

13 , 

28 , 

2 4 , 

17, 

7 , 

7, 

2, 

10 , 

17. 

24, 


FLUX 

284 

* 

22 • 

27 * 

13 , 

27 , 

1 7 , 

20 , 

1 0 » 

13, 

13 , 

3, 

24, 

17. 

20, 

3, 

3. 

1 3, FLUX 

285 

« 

20 e 

13 , 

7 , 

22 , 

10 . 

10 • 

3. 

3, 

13 . 

59 . 

13* 

13, 

10, 

17, 

50, 

FLUX 

286 

• 

27* 

24 • 

20 , 

1 0 , 

1 3 , 

1 0 . 

23 , 

10 . 

7 . 

3. 

7. 

20 . 

13. 

10 « 

17, 

17. FLUX 

287 

• 

10, 

7, 

17 , 

20 . 

1 0 ♦ 

7 , 

32 « 

31 , 

31 , 

17,. 

10 , 

13* 

17, 

17/ 


FLUX 

288 


— 

MAGNH 

TIC 

FLUX 

F CP 

66C701 

TC 

561231 






FLUX 

289 

DA TA 

MGFLU4 / 












FLUX 

290 

* 

13, 

1C ♦ 

10 , 

29 * 

1 3 , 

13 , 

10 , 

37, 

45 . 

39, 

22 , 

30 . 

7, 

10, 

22. 

17. FLUX 

291 

* 

26, 

1C, 

13 • 

17 , 

29 , 

22 , 

17, 

17. 

10 . 

17, 

26, 

24 , 

13. 

17, 

13, 

-LUX 

29 2 

* 

17* 

2 0 

20 , 

22 . 

24 , 

17 . 

13, 

13, 

23 , 

27, 

29 , 

29. 

1 7, 

23, 

13, 

10, FLUX 

293 

• 

3* 

24 , 

35 , 

2 0 * 

1 3 , 

1 0 , 

37 , 

31 , 

22 . 

17 , 

13, 

10 . 

28, 

60 , 

37, 

FLUX 

294 

* 

37, 

30 , 

63 • 

67 , 

20 , 

36 , 

29 , 

48 , 

34 » 

34 , 

20 » 

13. 

10, 

24* 

35, 

24, FLUX 

295 

• 

23* 

7 . 

32 , 

36 . 

24 , 

1 7,» 

32 , 

27. 

23 , 

37. 

33 , 

37, 

32, 

31, 


FLUX 

296 

O 

17, 

7 , 

10 , 

39 ■ 

45 , 

37 , 

22, 

13, 

23 • 

7, 

3. 

24, 

22. 

10 • 

29. 

35, FLUX 

297 


17, 

1C, 

10 , 

1 0 , 

3 , 

3 , 

3 ♦ 

26 * 

37 , 

30 , 

17 , 

13. 

10 , 

28, 

44 , 

flux 

298 

• 

%3* 

29 , 

32 , 

23 . 

23 . 

20 , 

17, 

20, 

7 ♦ 

2 3, 

17 , 

22. 

20, 

3. 

10, 

1 O.FLUX 

299 

• 

26, 

27 . 

27 , 

22 . 

1 7 , 

7 , 

3 , 

17, 

10 . 

24 , 

17 , 

34, 

30 , 

41 • 


FLUX 

30C 


32, 

17, 

10 , 

34 , 

35 . 

20 . 

1 0 , 

10, 

7 , 

10, 

7. 

3, 

35, 

50, 

33, 

22, FLUX 

3C1 

♦ 

23, 

13 , 

7 , 

20 . 

27 , 

29 , 

22, 

27. 

29 . 

38. 

44 , 

29 . 

20, 

17, 

7/ 

FLUX 

302 

•*« 


TI C 

flux 

FOR 6701 01 

T C 

570630 






FLUX 

303 

DA TA 

MGFLU5 

/ 












FLUX 

304 

• 

33, 

20 • 

24 , 

3 , 

7 , 

17, 

41 , 

55 • 

27 c 

10 . 

31 , 

3 • 

39, 

55, 

23* 

23, FLUX 

305 


‘10, 

13 . 

13 i 

2 8 ♦ 

2 3 , 

10 , 

1 3 » 

3 , 

13 * 

10 . 

-10 * 

27. 

10. 

7, 

3. 

FLU X 

3C6 

• 

10, 

3 • 

3 • 

26 , 

30 . 

20 , 

42 , 

49, 

22 . 

3. 

26. 

3. 

10. 

10. 

20. 

56. FLU X 

3 C 7 

« 

30, 

13 * 

13 , 

13 . 

1 7 , 

20 . 

29 . 

10, 

30 , 

26 , 

13. 

10 ♦ 




C LUX 

308 

C 

13, 

1 0 , 

22 . 

17, 

26 • 

22 , 

1 3 , 

3. 

27 , 

22. 

3. 

3, 

13, 

13, 

3, 

7, FLUX 

309 

• 

10* 

37 , 

39 , 

28 , 

24 , 

10 * 

1 0 , 

7, 

10 . 

10 . 

33 . 

22, 

17, 

26, 

7, 

FLUX 

31 C 

* 

33 , 

27 , 

13 , 

30 , 

26 , 

27 . 

22 , 

13, 

13 , 

13. 

10 , 

10 « 

3. 

7, 

10, 

24, FLUX 

31 1 

• 

24, 

20 . 

35 • 

20 , 

20 . 

33 . 

36 . 

4 1 • 

22 . 

7. 

7. 

7. 

13. 

7, 


flux 

312 


29, 

39 . 

62 • 

27 , 

24 , 

17 . 

31 ♦ 

13. 

13 , 

20 . 

24 , 

28, 

29, 

24. 

17, 

17, FLUX 

313 

• 

26, 

20 . 

22 , 

1 7 , 

17 , 

7 , 

23 ♦ 

26. 

70 , 

72. 

35, 

53. 

49. 

4 D , 

48, 

FLUX 

314 

« 

10, 

23 , 

20 . 

2 8 * 

45 . 

49 • 

37. 

30 , 

29 , 

20 . 

17, 

13, 

17. 

29. 

23. 

17, FLUX 

315 

♦ 

. 23, 

1 0 , 

13 . 

1 0 . 

1 0 , 

13 , 

1 0 . 

10, 

33 , 

38 , 

34, 

24 , 

23. 

29/ 


FLUX 

31 6 

- 

— — — 

MAGN5 

TIC 

FLUX FOR 670701 

TC 

671 231 






FLUX 

317 

DA TA 

MGFLU6 

/ 










• 


FLUX 

31 8 


32 . 

20 . 

10 , 

17 , 

31 , 

22 , 

27, 

10 . 

7 . 

7, 

36, 

22, 

20, 

20, 

22* 

10. FLU X 

319 


10, 

20 • 

10 , 

13 , 

1 3 , 

7 , 

2 9 , 

22 , 

26 , 

17, 

10 . 

27, 

27, 

32. 

3. 

FLUX 

320 


10 , 

3 , 

7 , 

22 , 

22 , 

17 . 

23, 

26, 

20 , 

28 , 

39 , 

22, 

17, 

24 . 

17. 

22, FLUX 

3 21 


34, 

29 , 

23 , 

26 , 

1 7 , 

13 • 

1 3 , 

20. 

29 . 

24 . 

20 , 

17, 

2 2. 

24 , 

26, 

FLUX 

322 


39, 

37 . 

17 , 

1 7 , 

1 0 , 

10 , 

2 3 , 

23, 

26 ♦ 

7. 

7, 

10 , 

4 1, 

2 9 % 

29. 

26, FLUX 

323 


13, 

27, 

33 , 

49 , 

61 , 

24 , 

10 , 

17, 

17 , 

10 , 

13. 

45. 

‘49, 

45. 


FLUX 

324 


24 . 

13 . 

20 , 

1 0 • 

20 , 

17, 

20 • 

27, 

33 , 

44 , 

28 , 

34 , 

23, 

28, 

22, 

13, S LUX 

325 


24, 

20 • 

10 , 

7 , 

2 , 

17 , 

22 , 

10 . 

7 , 

7, 

24 , 

39, 

39, 

30, 

20, 

FLUX 

326 


7, 

24 , 

37 , 

23 , 

26 , 

10 , 

7 , 

33 . 

24 . 

10 , 

32 , 

37. 

32, 

26 , 

24. 

23. FLUX 

327 


3, 

7 , 

7 , 

3 . 

1 3 , 

28 , 

22 , 

35 , 

26 , 

23 « 

22, 

32. 

30. 

20 . 


* FLUX 

32 8 


44, 

33 , 

22 , 

20 , 

2 8 , 

36 , 

35 , 

39 , 

24 . 

17. 

7, 

17, 

1 3. 

10 , 

24, 

22. FLUX 

329 


26, 

34 , 

A2 , 

43 , 

31 , 

30 » 

31 , 

3, 

7 . 

20 * 

23, 

13, 

17, 

23, 

54/ 

flux 

330 

•- 

— 

MAG Nc 1 1 C 

FLUX FOR 6801 01 

TC 

580630 






FLUX 

3 31 

DA TA 

MGFLU7 

/ 












FLUX 

332 

• 

39, 

46 « 

23 , 

20 , 

24 , 

31 , 

22 . 

1 7. 

7 . 

13, 

24 , 

23 , 

23, 

27. 

24, 

28. FLUX 

333 

* 

2e. 

24 , 

23 . 

30 , 

22 , 

23 , 

2 4. 

2 4, 

10 . 

20 . 

23. 

29 . 

31 , 

26, 

22, 

flux 

334 

* 

24 , 

24 , 

31 , 

32 , 

22 , 

3 . 

1 0 , 

29, 

34 . 

45 , 

51 , 

29. 

33. 

13, 

39. 

29, FLUX 

335 
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• 33 v 36 • 27 • 45 , 38 « 

24 , 

13, 

20 , 10 , 

10 , 

22 , 

42, 

33, 


• 24, 23. 29. 31 , 32 . 

20 , 

1 3 , 

10 , 23* 

30 , 

22 , 

22 , 

13, 37. 

41 . 

9 27* 27, 26, 35, 20, 

13 • 

23 , 

37, 34, 

29 ♦ 

31 . 

27, 

29, 40. 

31 , 

• 39. 27. 20. 23, 44. 

45 , 

26 . 

7. 3, 

17, 

24, 

26, 

37, 39, 

29, 

• 24. 22 * 7 , 3 , 10 , 

22 . 

27 , 

22 , 13, 

39 , 

35 , 

31 • 

294 20 . 


• . 28, 29 . 26 , 1 7 , 1 0 , 

7 , 

52 , 

20 , 36, 

24 , 

32 , 

4C , 

29, 26, 

23, 

• 30, 32, 26 , 34, 38, 

31 . 

26 . 

33. 17. 

10 , 

10 . 

17, 

23, 24, 

24, 

o 32, 32* 2 9, 23 , 13, 

13 , 

2 6 , 

26, 23. 

45, 

65, 

46, 

50, 39, 

22 . 

• 33. 27, 2 9 « 20 , 7 , 

24 , 17, 

660701 

3. 1C, 29. 

T C 631231 

26 , 

17, 

20 . 26 / 


DA TA MGFLL 8 / 

24, 23, 31 , 24, 22 , 

17, 

20 , 

17, 10, 

45, 

24 , 

20 , 

57. 37, 

17, 

17. 24 . 22 , 13 , 23 . 

34 , 

26 . 

7, 20 . 

30 , 

26, 

22 , 

13. 20* 

13. 

10. 1C . 27 , 17 , 27 , 

31 , 

28 , 

29 , 23 , 

20 , 

17, 

17. 

26, 40. 

37, 

' 47, 34 . 24., 17, 10 , 

13 , 

26, 

34, 10, 

- 10 . 

13 , 

ID , 

- 3. 7* 

29, 

23, 24 , 33 , 29 . 27 , 

34 . 

33 , 

50, 27, 

17 , 

17 . 

34. 

48, 41, 

42. 

17, 7, 27, 20, 2 8 , 

26 , 

37 , 

10, 3 • 

10 , 

7 , 

22 . 

23, 20, 


31, £ 0 , 41, 7* 3, 

17 , 

30, 

20, 23, 

17 . 

3. 

51 . 

42, 29, 

13, 

23, 22 , 26 « 20 , 3 , 

2 . 

7, 

20. 17, 

13, 

17 , 

13. 

46, 30 . 

67, 

68 • eo. 45 * 40, 17, 

20 * 

32 , 

24, 37, 

27, 

27, 

7, 

17, 10. 

7, 

34, 37, 17 , 32 ♦ 20 , 

13 * 

1 7 , 

13, 22 , 

20 , 

24, 

20 , 

10. 3, 


23, 17, 33, 36, 39, 

23 , 

1 3, 

26, 17 , 

29 , 

17, 

22 . 

17, 7, 

17, 

• 10, 20, 27, 38, 23, 28, 29, 

magnetic flux for 690101 
DATA MGFLL9/ 

23 » 35 « 10. 

TC £90630 

28 . 

13. 

23. 22 o 

26/ 

e 22 *10, 2 , 7* 7 , 

2 . 

23 • 

22 . 10 , 

7, 

10 , 

17, 

2. 23, 

28. 

’36* 3 5, 26, 26, 17, 

10 , 

1 3 . 

2 7 4 1 . 

37. 

27 . 

13, 

• 3. 17, 

17, 

7 * £ 0 * 52 , 2 3, 24 , 

31 . 

2 3. 

23. 10 . 

P7 . 

S5 . 

PA . 

P A . Pit m 

33? 

10 . 2 , 22 . 22 , 22 , 

10 , 

23, 

17. 20. 

27, 

43, 

30, 



24 o 23 . 7 , 17, 24 , 

29 , 

32 , 

26. 23, 

1 3 , 

33 . 

47. 

22 , 22 , 

33, 

46, 26 , 32 , 37 * 28 * 

26 « 

50 , 

60, 37, 

24 , 

17, 

17, 

28, 31. 

30. 

38, 32 , 32 , 26, 24, 

26 , 

35 , 

22, 27, 

17, 

20 . 

26, 

3S, 31. 

29. 

36, 30, 13, 22, 17, 

24 , 

13, 

23, 23, 

17 , 

26, 

55. 

27, 40, 


22 » 41 , 30 , 22 , 24 , 

22 . 

1 3 , 

13. 26, 

24 , 

13, 

22 , 

47, 51, 

70, 

29, 35 . 24 , 22 • 20 , 

26 , 

24, 

24, 20, 

10 , 

7 , 

23, 

13, 26, 

27, 

13, 17. 13 . 13 , 17, 

10 , 

22 , 

29, 30. 

2 6 * 

22 , 

33, 

3 C , 43, 

22 * 

► 1 33 1 10a 1 7 i 2^ « 1 3 e 3* 13* 

27. 24, 17, 

TC £91231 

13, 

10 . 

10, 13/ 

DATA MGFL10/ 

32, 17, 7, 7, 3, 

10 , 

1 7 * 

13, 20, 

20 , 

17, 

27. 

29, 28, 

13* 

10, 7. 3 , 7,10, 

20 . 

1 3 , 

10 . 10 , 

35 , 

49 , 

10 • 

3, 28* 

17, 

7, 13* 29 , 20 » 20, 

13 , 

22 . 

23, 26, 

17, 

10 . 

26, 

20, 17, 

10 , 

17, 20 , 20 * 20 . 17 . 

13 . 

26, 

17, 10 , 

30 , 

36, 

17, 

1C, 10, 

13. 

7. 3, 10, 10, 33, 

35 . 

2 u ♦ 

34 , 24 , 

22 . 

22 .* 

10 . 

3, 26. 

34, 

27, 34 , 23 , 22 , 13 , 

7 , 

2 0 , 

17, 24, 

10 , 

17 . 

50 . 

58, 62, 

35, 43, 33, 24, 17, 

31 , 

17, 

7. 23 . 

36, 

24 , 

23, 

13. 7 , 

7. 

17* 20 , 24 , 13 , 22 * 

20 . 

1 0 , 

29 . 20 , 

1C . 

22 . 

17. 

1C, 2, 

1 3, 

7. 26, 31, 17, 17, 

7 . 

27 , 

2 9. 47 , 

46 , 

26 , 

20 . 

1 3 » 3 , 

3, 

7, 1C t 20 , 10 , 3 , 

24 , 

1 3 . 

17, 17 , 

26, 

37 , 

23, 

2 ‘ • , 33, 


13. 10* 10, 20* 33, 

34 , 

1 3 * 

13. 27 , 

22 . 

26 • 

13, 

7, 10, 

13, 

10. 7. 1 C, 7, 7 , 

MAGNETIC FLUX- FDR 

20 , 26 , 
7001 01 

23, 23, 24, 
TC 7 C 0 630 

23. 

10 • 

10, 3, 

7/ 

DATA MGFL11/ 

22* 42 . 23 , 7* 17, 

13 , 

1 3 , 

17, 24 . 

17. 

10 . 

22 . 

10, 17, 

20 , 

26. 17, 13 , 20 . 17 . 

l 3 . 

1 3 , 

20 , 3 , 

3 . 

17 , 

13, 

17* 27, 

22 , 

23, 35 . 20 . 2 7* 24 , 

10 , 

3 , 

3 , 7 , 

13. 

7, 

7, 

13, 26, 

22 . 


FLUX 

336 

39, - LU X 

337 

flux 

■> ■. © 

29. FLUX 

339 

FLUX 

340 

26, FLUX 

341 

r LUX 

342 

20 » F L U X 

243 

FLUX 

344 

FLUX 

345 

FLUX 

3 4 6 

23, FLUX 

347 

FLUX 

343 

47, FLUX 

3 A 9 

FLUX 

350 

24, FLUX 

351 

flux 

352 

1 3. - LUX 

353 

FLUX 

354 

32, FLUX 

355 

FLUX 

3 56 

22. FLUX 

357 

flux 

358 

FLUX 

3 5 9 

FLUX 

360 

2 4 , F L U X 

361 

FLUX 

3 15 p 

2 6 i " i_ ij x 

2 6 "* 

FLUX 

364 

30. flux 

365 

FLUX 

366 

32, FLUX 

267 

FLUX 

360 

48, FLU X 

369 

fLux 

370 

3 3, F LU X 

371 

flux 

372 

FLUX 

373 

FLUX 

374 

24, FLUX 

375 

FLUX 

376 

1 0, FLUX 

377 

FLUX 

376 

20 . flux 

379 

flux 

380 

13, FLUX 

381 

FLUX 

382 

3. FLUX 

383 

FLUX 

384 

26, FLUX 

3 6 S 

flux 

336 

FLUX 

387 

flux 

388 

32, FLUX 

3 89 

-LUX 

390 

1 3, FLU X 

351 
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24 * 

23 * 10 » 7 * 

3 * 

3 , 1 0 , 

26, 10, 

24 , 

22. 

29, 




FLUX 

392 

37. 

31 , 30 , 31 * 

27 , 

39 , 48. 

73, 50 , 

20 , 

7 . 

17, 

22, 

7, 

20, 

7.FLUX 

393 

13. 

27 , 23 * 1 0 . 

7 * 

3 , 13. 

3. 7 • 

13, 

31 . 

36, 

3 2, 

31 , 

51 » 

FLUX 

394 

17, 

17 , 26 . 2 4* 

23 . 

37 . 24 , 

27, 33. 

7 , 

22, 

17. 

10, 

7, 

13, 

29, FLUX 

395 

41 , 

33 , 36 . 36 . 

62 , 

47 , 29 , 

31 . 32 , 

28. 

24 » 

13. 

20, 

33. 


FLUX 

396 

26. 

23 , 24 * 1 7 . 

27 , 

17 ♦ 17, 

10 . 10. 

3, 

7, 

30 . 

17. 

26, 

24, 

1 7* C LUX 

397 

24 , 

23, 17. 28, 

22 , 

17. 20, 

17, 20 . 

3. 

30 » 

49 , 

28. 

26. 

17, 

FLUX 

39 8 

41 , 

23 , 26 * 22. 

1 7 , 

7 . 23 . 

28. 1 3 * 

17. 

10 . 

13* 

24, 

22, 

2D, 

23. r LUX 

399 

28, 

40 22 . 33 , 

32 , 

1 0 , . 1 0 , 

17. .17. 

28 . 

45. 

20, 

17, 

13/ 


FLUX 

4 0 C 

— — - MAGNETIC FLUX FOS 700701 

TC 701231 






FLUX 
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DATA MGFL12/ 










FLUX 

4C2 

24 , 

26, 3B , 39, 

31 , 

30, 13. 

24, 62, 

44 * 

24, 

29, 

24, 

23, 

13. 

17. FLUX 

4C3 

22, 

13 , 13 , 17 , 

42 * 

27 , 23 , 

39, 63, 

36 , 

29. 

20 * 

49. 

20, 

29, 

‘LUX 

4 04 

10, 

17* 1 0 , 10* 

7 , 

22 » 27 , 

39. 34 . 

20 • 

23. 

23, 

17, 

10 , 

20* 

36, FLUX 

4C5 

- 67, 

45 , 29 * 1 0 * 

13 . 

17. 20,. 

10, 22 . 

32, 

27 , 

27 . 

24* 

13, 

27, 

FLUX 

406 

37, 

33, 30, 26, 

22 , 

13 , 17, 

22, 13. 

17. 

2, 

13, 

30, 

34 , 

26. 

22. FLUX 

407 

22. 

2 4 * 33 , 30 • 

37 , 

27 , 17, 

17. 22 , 

17. 

34 * 

2C . 

13. 

23, 


FLUX 

408 

24 , 

23, 29, 39, 

23 . 

17.' 10, 

3. 3 . 

20 , 

30 . 

31 , 

23, 

22 * 

10* 

46. FLUX 

409 

44 • 

47 . 26 , 20 . 

£ v 

33 . 41 , 

29. 17, 

10 , 

13, 

3C , 

28* 

23, 

10* 

FLUX 

410 

3 . 

20 , 22 , 20 , 

23 • 

27 . 54 , 

22. 22. 

32. 

35, 

24, 

23, 

20, 

1C, 

13. ^L UX 

411 

17, 

33 , 33 , 7 • 

42 , 

33, 36, 

27. 25 , 

22. 

24 , 

22, 

3* 

2 • 


FLUX 

412 

2. 

10. 10 . 13 , 

22 , 

22 , 22 , 

34, 17, 

7 . 

3, 

10 . 

10* 

56, 

29. 

10. flux 

41 3 

7, 

7 . 24 , 22 , 

1 0 , 

17 , 20 . 

29. 10, 

10 . 

22 , 

33. 

27, 

28. 

3/ 

FLUX 

4J 4 

— MAGNETIC FLUX FOR 710 101 

TC 710630 






FLUX 
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DATA MSFL13/ 










FLUX 

4} 6 

17, 

34 . 44 , 31 • 

23 . 

10 , 2 , 

0. 2 . 

17. 

22, 

7 . 

17, 

23, 

22* 

20. FLU X 

417 

17. 

3C . 28 , 41 , 

27 * 

24 , 17, 

24, 23. 

3, 

46 • 

47 . 

31 . 

39, 

32. 

FLUX 

41 8 

31 « 

23 , 10 , 10 , 

1 0 . 

17 , 17, 

24, 24, 

24, 

13. 

17 , 

10, 

31. 

41, 

41 .FLUX 

4 1 9 

26, 

27 , 23 . 22 , 

20 « 

7 , 20 , 

28, 48 , 

43, 

24, 

17, 




FLUX 

4 20 

10, 

20 . 23 > 29 . 

13 , 

10 , 10, 

30, 17, 

30 . 

20 . 

35 . 

47, 

41 , 

37* 

29. FLUX 

421 

23* 

17 , 31 * 28 , 

7 , 

7. 7 . 

29. 27, 

30-. 

23, 

3, 

3, 

23. 

39, 

FLUX 

422 

27* 

20 , 31 . 40 , 

26 , 

29 . 17, 

17. 52, 

42, 

40 , 

24 , 

22, 

47. 

4 5, 

30. r LUX 

423 

22, 

26 , 22 . 10, 

37 , 

29 , 24 , 

7, 2 , 

13. 

22, 

36. 

23, 

22 , 


FLUX 

424 

20. 

32 . 22 , 22 , 

22 » 

51 , 45 , 

28. 27. 

26 . 

10 . 

10 . 

10. 

29, 

27, 

13. FLUX 

425 

S8 « 

47 , 24 , 13, 

1 3 , 

13, 26 , 

20, 17, 

23. 

3, 

10 . 

17, 

34. 

10. 

FLUX 

426 

37. 

43 , 39 , 23 , 

1 7 • 

13 , 7 . 

20 . 7 . 

10 . 

17. 

7 • 

22, 

13, 

13. 

17, FLUX 

427 

24 , 

17, 3,10. 

1 0 ♦ 

13 , 20 , 

13. 43 , 

27, 

10 , 

23. 

37* 

24/ 


FLUX 

420 

— — MAGNETIC FLUX FOR 710701 

TC 711231 






FLUX 

4 29 

DA 7A MG F L 1 4 / 










p LUX 

430 

24, 

29 • 20 , 20 . 

20 , 

23 . 7 , 

22, 17. 

3. 

17* 

20 ♦ 

23, 

22. 

■22, 

17. FLUX 

431 

2 0. 

2C , 20 ♦ 10, 

36 « 

22 • 22 * 

13, 7 , 

32, 

23, 

17, 

17, 

22, 

23, 

flux 

4 22 

17, 

32 • 10 • 20 • 

29 , 

3 . 13. 

26. 23, 

26 » 

30 « 

24, 

17. 

10 , 

13. 

22, FLUX 

433 

26, 

29 . 10 . 10, 

22 , 

23, 27, 

20. 20. 

24 , 

7 . 

17, 

17, 

17, 

43. 

-LUX 

434 

24, 

3 * 13 . 23 . 

29 , 

27 , 35 . 

27, 20, 

17. 

17, 

22 . 

32. 

23, 

23. 

26, FLUX 

435 

26. 

SC . 23 , 31 , 

13 . 

10. 3 , 

17. 40 . 

36 , 

46. 

24, 

1 7, 

37. 


FLUX 

4 36 

36, 

36, 35, 29, 

31 , 

35 . 31 . 

37. 46, 

22 . 

24 , 

23, 

29, 

23. 

22, 

10, FLUX 

4 37 

7. 

3 • 3,10, 

13 . 

23 . 17, 

28 , 17, 

3 . 

10 . 

32 . 

40, 

29. 

13. 

FLUX 

438 

17, 

7, 7,17, 

1 3 , 

7 , 2 0. 

22, 10, 

13. 

31 • 

23. 

7. 

2 , 

3, 

3. FLUX 

439 

2, 

20 , 20 . 17 , 

26 , 

43, 49. 

45 , 4 8, 

3 4 . 

22, 

24 , 

1 3, 

13, 


flux 

440 

17, 

13 , 27 , 22 , 

1 3 * 

7 , 2 , 

7, 20 , 

7. 

17, 

23, 

28, 

7, 

7, 

22.FLUX 

44 1 

57. 

37 , 26 , 7 , 

24 ♦ 

34, 27, 

20, 17. 

27, 

10 • 

10. 

30. 

31 . 

20 / 

FLUX 

442 


MAGNETIC FLUX FOR 7201 01 

TC 720630 






FLUX 

443 

DATA MGFL15/ 










FLUX 

444 

• 20. 

22 , 17 , 24 , 

l 7 , 

3 . 10, 

10. 13. 

20, 

30 • 

17, 

10 , 

7, 

34, 

41, C LUX 

445 

• 35, 

34, 26. 22, 

37 , 

39 , 4 3, 

24, 32 . 

37, 

30 . 

37, 

29, 

23, 

20 , 

FLUX 

4 46 

. 17, 

2 £ ♦ 2 C. 21 . 

1 *3 * 

14 . 18 . 

15. 9 * 

23. 

17 . 

9, 

32. 

20 , 

26, 

20, C LUX 

447 


8,0-257 


(-.j 



FLUXM 

Page 11 of 11 
October 1972 



23. 

20. 

24 . 

• 

■dr 

(VJ 

22 , 

1 1 , 

16 

* 

4 1 


30 * 

14 , 

11. 

14, 

4, 


. •- 


FLUX 

44S 


19. 

23. 

30, 

l 9 , 

1 3 . 

24. , 

46 

* 

23 


2 3 ♦ 

7 , 

14, 

6, 

17. 

1C. 

1 3* 

31. 

FLUX 

449 


30. 

22. 

1 2, 

1 3. 

1 3 , 

21 , 

19 

♦ 

33 


20 . 

23, 

32, 

19, 

34, 

36, 

2 8, 


flux 

4 50 


29. 

1 8, 

8 * 

30 , 

2 8 , 

1 7 , 

20 

t 

1 4 


5 « 

1 4 . 

14, 

23. 

25. 

1 6, 

1 7, 

1 4, 

FLUX 

451 


15. 

37 . 

2 0, 

1 8 , 

30 . 

17 , 

20 

* 

1 2 


7 , 

5 * 

14, 

33, 

47, 

29, 



FLUX 

452 


22. 

32, 

1 8, 

1 4 , 

1 5 , 

22 , 

8 

• 

9 


28 , 

23, 

19, 

22. 

18, 

18. 

27. 

25, 

FLUX 

453 


22 . 

2 1 . 

8, 

1 0 . 

1 0 . 

i 4 , 

l 6 

• 

1 1 


14 , 

20 , 

18* 

33, 

23, 

26, 

2 6. 


FLUX 

4 54 


14, 

1 7, 

25, 

27, 

25 , 

1 5, 

19 

V 

1 5 


1 0 . 

10 , 

8. 

7, 

11, 

21, 

2 3. 

20, 

FLUX 

455 


48. 

66 ♦ 

2 S, 

1 8 , 

1 3 , 

25 , 

25 

t 

26 


15, 

2 1 ♦ 

29 , 

27, 

25, 

7/ 



flux 

456 


MAGNETIC FLUX FOR 720701 TC 721231 
OATA MGFL1 6 / 
i 21 *1 4 .1 53 *0/ 

M A G I •£ TIC FLUX FOR 730101 TC 730630 

DATA MG FL 17/ 

161*0/ 

HAGf3TIC FLUX FOR 730701 TC 731231 
DATA MGFLI8/ 

• ie4*c/ 

. . . CALL FLLXS{ KARCS. Kr LUX, KFLUXS1 

C — ? DATE OF LAST MAGNETIC FLUX VALUE 720630 

RETURN 

END 


FLUX 457 
FLUX 458 
FLUX 459 
FLUX 460 
FLUX 461 
FLUX 462 
FLUX 463 
FLUX 464 
FLUX 465 
FLUX 466 
FLUX 467 
FLUX 468 
FLUX 469 


ms 


SSSSSSWi 
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FLUXS 

DESCRIPTION . 

FLUXS stores in half-word integers ten times the 
daily 10.7 cnw flux line observed at Ottawa and adjusted 
to one A.U. 

FLUXS tables must be updated using the values obtained 
from bulletins printed by E'-.S.S.A., Boulder, Colorado. An 
example of the bulletin is given on the following page. 




It 


8.0-259 



DAILY SOLAR INDICES 

JUNE 1972 I 




JUN. 

1972 

YEA?. 

DAT 

B 

S'JIISPOT NUMBERS 

OBSERVED 

FLUX 

OTTAWA 

2300 

SOLAR FLUX ADJUSTED TO 1 A.U. 




S Z 

R A’ 

1 

1 

AFCKl 

MOO 

AFCRL 

43S5 

OTTAWA - 
2500 

. AFC RL 
2695 

AFCRL 

1415 

AFCRl 

$05 

AFCRL 

410 

AFCRL 

245 

1 

153 


78 

75 

124.6 

534 

231 

!: 62 

120.2 

117.9 

76.3 

53.1 

24.7 

10.5 

2 

154 

4 

96 

86 

126.3 

54 

237 

:i63 

130. 0 

126.0 

73.7 ' 

54.4 

25.2 

10,9 

3 - 

1 55 

5 

1 02 

ICO 

133.6* 

54 

293 

:i69 

137.5* 

135.3 

86.7 

59.6 

23.1 

11.6 

'4 j 

i ^ j 

6 

116 "■■■' 

121 

"14 5*3* 

54 " 

300 

:ic4 

149*5^ ‘ 

146.4 

90.3 

60.9 

29.8 ‘ 

1 4 , 6 

5 

157 

7 

132 

130 

160.0 

54 

303 

203 

164.8 

158.5 

98.3 

65.3 

29.3 

10.9 

6 ' 

150 ■" 

8 

103 

ns 

154. 5' 

54 

301 

;i94 

159.1 

150.9 

96.1 

61.9 

23.8 

10.9 

7 

159 

9 

95 

99 

143.3 

54 

300 

.194 

152.7 

145.4 

91.0 

63.2 

23*3 

1 0 « I 

e 

1 60 

10 

87 

90 

165.3* 

. 54 

310 

,199 

150.2* 

143.2 

94*0 

62.2 

30.5 

11.5 

. .«..., 

151 . 

11 * 

76 " 

' 79 

144. 6* 

55 

311 

197 

149.1* 

143.6 

95.1 

62.0 

23.6 

11*6 

10 

162 

12 

63 

65 

135.3 

55 

302 

:i 82 

139.5 

133.5 

83.9 

59.6 

28.4 

11.7 

n 

163 

13 

63 • 

,i ■ 

139.6* 

54 ' 

301 

:i06 

143.2* 

143.1 

94.5 

64.4 

29.0 

12*2 

12 

164 

14 

48 

38 • 

145,2 

55 


iea 

1-49*7 

143.0 

93.3 

64.2 

29.3 

1 1 * 5 

13 

165 

15 

43 

45 

134.6* 

54 

200 

174 

133.9* 

133.7 

90,9 

63.7 

23.9 

11.8 

r } i *4 

156 "" 

16 

60 

56 

132,3 

53 

273 

167 

136*5 

132.0 

89,9 

63.5 

30.1 

11.8 

T 15 

167 

17 

88 

96 ‘ 

135.2* 

55 

293 

195 

139.5* 

154.4 

101.0 

66*3 

32.9 

21.3 

^ 1 6 

168 “ 

1 B ' 

98 

95 

130.3* 

54 

201 

176 

142.7* 

134.5 

89,9 

61 .9 

23,6 

14.0 

g"* 1 7 

l 69 

19 

101 

98 

145.0 

54 

WTTuTMM 

177 

149.6 

1 39.5 

93*6 

62*1 

30.3 

1 1 . H 

C7 IQ 

V 7 0 

20 

e& 

84 

144.2* 

54 

201 

173 

149.0* 

145.2 

95.8 

61.9 

31.0 

15.9 

19 _ 

171 

22 *' 

. 83 ” 

80 

133.6* 

53 

277 

173 

143.2*- 

140.0 

93.6. 

59*8 

23.2 

11.9 

30 

172 

22 

92 

CO 

137.9 

53 

272 

168 

142*5 ‘ 

133.5 

86.5 

82.6 

53.2 

51.4 

31 

173 

23 

96 . 

93 

134.6* 

53 

279 

171 

139.0® 

137.0 

86.7 

70.0 

43.1 

26.8 

22 

1 74 

24 

07 

97 

130.8 

54 

279 

169 

135.1 

131.1 

06.6 

58.5 

31.3 

14.6 

23 ’ 

175 

25 

04 

84 

126.5 

54 

271 

166 

130.7 

127.1 

03*6 

55.5 

29.4 

12.2 

? 4 

176 

26 ' 

79 

oo •’ 

124.4- 

54 

271 

| 162 

128.5 

121.8 

82.9 

56,4 

2 3*4 

13.3 

1 *- ^ 
25 

177 

27 

77 

74 

121.5' 

53 

270 

1 159 

125*5 

118.9 

80.6 

5b » 1 

23.9 

1 1 « 1 

26 

1 7S 

1 

73 

71 

116.0 

54 

265 

! 155 

120.8 

114.1 

83.1 

54.1 

27.4 

10.5 

27 

1 79 

2 

66 

63 

157.9* 

53 

265 

: 156 

121.9* 

119.0 

02.3 

54*2 

27.6 

10.9 

28 

1 00 

3 

78 

69 

123.1 

54 

269 

• 160 

127.3 

124.5 

81.3 

55.2 

27.8 

10.5 

? 9 

1 L 1 

4 

73 

70 

128,0 

53 

269 

; 163 

132*4 

127.2 

32.3 

55 . 9 

27.4 

10*9 

30 

162 

5 

73 

66 

130.1 

53 

269 

164 

i 

134.5 

127.2 

00.9 

50.6 

23.2 

10.8 

j 

jrtEAN 



83.4 



54 

284 

i 175 

t 

139.7 

134.9 

88.8 

60.9 

30.3 

14.0 


p 


o p r 4 
rt w c: 
o o x 
cr co 
O to 

o 

h-* 

LO 
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name 

purpose 

CALLING SEQUENCE 
SYMBOL TYPE 
NARCS I 

MFLUX I 

(1 ) 

NFLUXS I 
SUBROUTINES used 
COMMON BLOCKS 
INPUT F ILES 

OUTPUT FILES 
REFERENCES 


FLUXS 

STORES SCLAR FLUX DATA THROUT-J -EFW* 1972 
CALL FLUXSI NARCS, MFLUX, NFLUXS) 

DESCR I PTION 

INPUT - NUMBER 0 F ARCS 
INPUT - MAGNETIC FLUX ARRAY 


INPUT 
AD FLUX 
NONE 
NONE 
NONE 

* SOL AR 
E.«.S * S « 

* GEO DY 


- NUMBER OF SOLAR FLUX VALUES IN ARRAY 


GEOPHYSICAL DATA 
A.. . BOULDER , COLO. 


OF THE 


•OKfg® AL PAG e - lb w 


ti SYSTEMS DESCRIPTION' 


SUE ROUT INE FLUXS (N AR C S , MFLU X , N FL U X S > 
INTEGER BEGYMC. ENDYMO 


INTEGER#? SFLUXtM'LUX 
DIMENSION SFLUXI 5785) ,MFLUX( l) 

I NT EGER *2 S c LO 1( 61 ) , S^LD 2t 1 2 3 ) , S"L03 ( 1 22 ) , 

' S r LO V< 1 2 0 ) , SFLO 5( i 23 ) . SFL 06 ( 1 ?2 ) * SFLO 7 < 1 2 1 > . SF L ? 5 ( » 2 3 > * 

SFLO 9 C 12 2), SFL 1 C ( 12:), S C L 11( 1 23 > . S^L 1 2 < 1 2 2 ) ,S = LI3U2C). 

SFL1 M 123), SFL1 5(12?), SFL 16 ( 120), SFL l?(l23)«S=Lia<l?.2)» 

SFL1 9( 1 2 1 ) , SFL20( 1 23) , SFL 21 (122), 

SFLUXH 120) ,SFI.UX2( 123) ,S'LUX1( 122) 
SFLUX*. ( 120 , SF_UX5 ( 1 23 ) , SFLUX6I I22).SFLUX7< »?.0) , SFLUX. «( !23) » 
SFLUX9 { 1 Z?) ,S C .U1 0 ( I 21 ) , S^L'UJ 1 ( 1 23) ,SFLU1 2( 122 ) , SFLU1 3(120)* 
SFLU14 <120 . SFLU1 5 (122), sr„ U1 6( 1 2C ) , S C L'J1 7( 123 ) , S^LUl M 122), 
SFLU1 9 ( 1 2C ) , SFLU2 0 { l 23 ), SF, U2 1 ( 12 2). SFLU 22 ( 121), S r L U2 3 ( 123 ) * 
SFLU2A < 12 2 ) , S<=LU2 5 { 1 20 ) . S FL U2 6 ( 1 2 3 ) . 5FLU2 7( 122 ) 

EOU IV ALEN CE 

SFLO 1(1 )) . ( S e L UX (62 ) 

S^LO 3( 1 ) ) . ( S C LUX ( jrj ) 

SFLO 5(/l ) ) , ( 5FLUX ( 5^C ) 

SFLO 7( 1 ) ) , ( SFLUX ( 791 > 

S^LORI 1 )) , ( S ,: LUX { 1 0 33) 


• C SFLUX ( l 

• < S F LU X ( l 8 5 

• (SFLUX(ic7 
• ( SFLUX ( 67 2 

• <SrLUX<<M6 
» { STLUX( 1 l >B) 

• ( SF LU X ( 14 03) 

• ( S F LUX ( 1 6A6 ) 

. (r.rLUXl 13 83 ) 


SFL l 1 ( 1 ) > » < SFLUX ( 1 2i 

sfli 3( i n 


) 

( STLUX ( 13 2 M 
SFL l 6( 1 ) ) ♦ ( SF l UX < 1 7 O* ) 
SFL 1 7( 1 )1 , ( SFLUX ( 2C 1 1) 


SFLD2I 1 > ) 
"FLTAtlM 

0 r>< 1 ) ) 

SFL 8«( ! ) > 
>F L I F ( ! 1 ) 
VL 1 2< 1 > ) 

r F L 1 - ( ) ) 

1 r L 1 6(1)) 
S=L’. M( l ) ) 


FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLU X 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 

flux 

FLUX 

flux 

flux 

FLUX 

FLUX 


3 t 
3 2 
3 3 
3 A 

33 ^ 
? 6 

37 

38 
3 C 

A ^ 
A 1 
A 2 
A 3 
A & 
A 5 
A *> 
C T 
A = 
a o 
K C 
F 1 
S ? 
C 3 
5 A 
5 a- 
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S^SSs 0 S E 


c- 


c- 


. <SFLUX( 21 33 ) f 
. (SFUUX( 2377) . 


5FL1 9(1 >> , ( SFLUX( 2250 , ^L20{ 1 U i 
SFL2 1(1 ) > , ( SFLUX ( 2499) . S^LUXK 1)5. 

• (SrtUX( 2 5 1 9 ) .SFLUX 2 ( 1 ) ) ♦ ( SFLUX (2742). S~ LUX 3( 1 ) ) 
f-OUIVAl.PNCE 

. (SFLUX( 27 64) .SFLUX 4( 1 >) , < SFLUX ( 2 9 e4 ) , SFL UX 9 ( 1 ) > , 

• ( SFLUX< 31 0 7 ) .SFLUX 6 ( 1 ) ) • ( STL UX ( 3 2 29 ) • S^L U X 7( 1 ) ) , 

• <SFLUX(33 4 9) . SFLUX 0( 1 )> . ( SFLUX ( 3 4 7 2 ) . SF L UX 0( \ ) ) , 

• ( 5FLUX{ 7594)»SFLU1C( 1 IJiIS^LUXl 3 7 1 6 > , S- LU 1 1 ( I > ) * 

• ( S F LU <(3333) » S F L U 1 2( I >).( SFLUX ( 396C > . S^LUl 2( 1 ) ) » 

•(S C LUX(4039)«SFLUI4( 1 U .( SFLUX { 420?) . S-LU1 5( I > ) « 

• C SFLUX ( 4 3 25) .SFLU1 6< 1 ) ) . < SFLUX < 4 4 4 5 ) . S - L Ul 7< i ) ) , 

• (SFLUX(4568 ) ,SFLU1 6( 1 )), l SFLUX ( 4690 ), S'LUi 4(1 ) ) . 

• C SFLUXt 4 8 1 0 ) .SFLU20 ( 1 )) * ( SFLUX ( 493.'U . SFLU21 ( 1 ) ) • 

• ( SF LU X(5 jSS) , SFLU2 2( 1 ))»( SFLUX (5176)*S ;r LU23( l) ) « 

• ( S F LU X ( S 2 9 9 ) ,SFLU24( 1 ) > , (SFLUX (5421 ),S c LU2 r ^( 1 > > , 
* { SFLUX ( 5 = V 1 ) iSFLU26 ( 1 )),( SFLUX ( 56 64 >, SFLU27( 1 ) > 

DATA I 3Er,YMD. FN OYMD/ 5 S 0 ‘*C'l . 7207 31 / 

-----SOLAR FLUX FOR 530301 TO 5P0430 

DAT A SFL0 l / 

2090, 2230* 2323* 2330* 2510* 2560* 2 C 1C* 

2320* 2380* 2270. 2170, 214C, 2^80. 210C, 

2560, 2680* 2740, 2500* 2840, 3020* 2950* 


19 50* 
2 3 50, 
2240 , 
3300 , 
3310, 


2550, 2 4 2 C * 

22C0, 2 3? 0 . 

3720, 3440, 


3260. 


3020' 
1 79' 


2 9 50 . 
1 7 7C . 


2900, 
1 83C. 


2850 
1 97C 


2330' 

2370 


2 7? 0 
212 0 


2500 

2210 


2440 • 
2 260, 


C 


FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

FLUX 

*LUX 

FLUX 


56 

<37 

5>. 

89 
6 C 
6 1 
62 
6 3 

6 4 
65 
6 6 
6 7 
68 
69 

7 0 
7 1 
72 
"» 3 
7 A 
7 8 

74 

7 ~f 

7 ?. 

7 G 
80 


* 

• V- 

fc.4 WV F 

22 90 » 

2 3 7 0 * 

2 350, 

2 4 40. 

2430, 

2450 . 

2+70, 25 AC. 

255 0, 

2650/ 

FLUX 

* 1 


-- SOLAR FLUX FOR 550501 TO 

580831 




FLUX 

6 2 











FLUX 

j- j 

DATA SFL9 2 / 









26 60 , 

2760, 

2780. 

2 SCO ♦ 

2690. 

263C. 

2490. 2 7 6 C , 

2390, 

2 09 0 , 

FLUX 

6 4 


21 10 * 

20 90, 

2C 30. 

1 940 , 

I960, 

1^40. 

1 04 0 , 1 97 C . 

1970. 

1 07 0 , 

FLUX 

85 


1590 , 

19 9 0, 

20 60. 

2 1 10, 

2070, 

2 100. 

20 1 C , 2020 . 

2190. 

2 130, 

FLUX 

p. 6 










FLUX 

ft 7 


2C90. 









P 8 


21 90 , 

22 00, 

2270, 

246', 

2 5 6 0, 

2 6 00 . 

2730. 2330. 

25 2 C , 

2 34 0 ,* 

FLUX 


23 50 * 

2 2 7 0 , 

2 2 0 C , 

20 £0 , 

1970. 

19)0, 

1320, 1 7 7 C » 

1 890, 

1 930 . 

FLUX 

«9 


15 40, 

21 30, 

2 170, 

22 17. 

2260. 

2320, 

2370. 2 32 C • 

220 0, 

2 170. 

• FLUX 

oc 


.2150, 

21 50, 

2240. 

2 3 20, 

2 3 30. 

2720, 

2 370. 2320. 

2180. 

2 050 » 

flux 

C l 


20 30, 

i sao , 

1 9 1C» 

13 20, 

1 MO. 

1 92C , 

1380, l^CC. 

2 " 5 C , 

2 CCC . 

FLUX 

c 2 


2C90, 

214 0, 

2 130, 

2 2*80 , 

2400. 

260C . 

26 1 0 . 2 9 C f. . 

2 75 0, 

2870 , 

. FLUX 

c 3 


2880 , 









FLUX 

C 4 


2740 , 

2540, 

2 370. 

2 1 CO . 

2210, 

2390. 

2350. 2 35 C » 

2250, 

2220 , 

FLUX 

o 5 

• 

225C , 

22 20, 

2360, 

2 3 50, 

23 1 0. 

2 150. 

2110, 71 SC, 

2. 1 9 0 , 

2 20 0 , 

FLUX 

O 6 


231C, 

23 9 C , 

2 4 3 C , 

25 20 . 

2630, 

2640, 

2 520. 2440, 

2520. 

2490 , 

FLUX 

9? 

• 

2590/ 









FLUX 

C ft 


_ COl AD 

fi is* PHD e nnQoi to 

591 231 



FLUX 

o o 

DATA SFLG3/ 








flux 

l r o 

• 

26 10 ♦ 

26 10, 

2 700. 

2 5 60 , 

2330. 

2 160, 

2100, 2110. 

2^50. 

2450 . 

flux 

» 0 1 

m 

2500, 

2 7 C 0 » 

2850, 

2 9 CC » 

2710. 

2630. 

257 o , ?a 60 , 

24 70, 

2310 ♦ 

FLUX 

1C 7 

• 

22 10, 

24 90. 

2 2 60. 

2 2 50, 

2320. 

2 18''. 

2100. 226 C. 

2270 , 

228 0. 

FLUX 

10 3 

# 

23 10. 

2 2 10. 

2 1 9C* 

2 1 5 0. 

19 90. 

1 890, 

1190. 1070, 

1 ->2 0, 

1 9 4 C • 

FLUX 

' C 4 


21 CO • 

21 90. 

2 250, 

2280, 

27 0 0. 

2630. 

276 C, .2660, 

2“>5C, 

2 78 C . 

flux 

i r a 


2770. 

2 7 0 0. 

2 400, 

2? 70 , 

1 9 1 .0. 

1 94 C » 

1 9 1 C • 2090, 

2200, 

2 2 a 0 ♦ 

FLUX 

10 6 


22 20 . 









FLUX 

, r* t 


2 240, 

24 10. 

2240. 

2 2 CO « 

282 0. 

?0 4r. , 

2 ? 60 » 191'. 

1 °00, 

1 6^0 . 

FLUX 

' f 5 


1 6 60 . 

1 6 C 0 * 

1 6 3 0. 

1 6 60 , 

1 6t.fi* 

1 f 9' . 

1730. >740, 

18 3 0. 

1 870 . 

F LU X 

1 <■' 3 


1 « 4 0 , 

2 C .0 0 , 

2 ) 3 C • 

2 2 9 0. 

24 30. 

8 1 4 0 . 

2590, 7696. 

2~30, 

2 64 0 . 

FL< »X 

1 0 

♦ 

2f 80. 

25 9C , 

2 4 l C . 

2 4)0, 

25 3 0. 

8 4 90 . 

8 4 3 0 » 7 1 > ' v * 

264 0, 

2 6 9 0, 

F) UX 

' 1 1 


8 . 0-202 
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2f 60 , 2570. 2600, 2 5 80, 2350. 
1 9 80 » 21 10, 2 150* 2240, 2310, 
2260/ . 


SOLAR FLUX FOR 590101 TO 

DATA sflo 4 / 


2 350 , 

2500, 

2660, 

2 7 00 ♦ 

2820, 

26 00. 

2510, 

2350, 

22 40. 

20 70. 

31 50 , 

•33 70, 

3230, 

33 40 , ' 

321 0. 

2140 . 
2C50 . 

2050, 

2040. 

20 10 , 

1910, 

1990 * 

1 990, 

20 1 0. 

1 9 50 , 

2130, 

2240 . 

2 190, 

2 1 20, 

2 2 C J . 

2270, 

1 870, 

13 10, 

18 10, 

1 7 80 , 

1 790, 

2C 10 , 

1940’, 

2070. 

2 1 £0. 

2350. 

2370, 

26 20. 

2 58 0., 

24 70. 

2 A R 0 * 

25 40 » 
2560 . 

2360 . 

216C. 

2 1 £ 0 ♦ 

1960. 

2220. 

22 4 0. 

2090. 

1 9 80 , 

1390. 

2C30, 

1990. 

2 130. 

2 l 30., 

21 1 0, 

5 7. 

FLUX FOP £005 01 TO 

DATA SFLCS/ 
2C 40 « 1 °4 0 , 

1950, 

1 8 40, 

I8 6 0. 

2640, 

2660 . 

2640, 

2440. 

2280. 

20 1 0, 

20 10, 

1 93 C. 

1 990, 

20 30, 

17 90 . 
19 30 , 

19 30. 

1 9 3 0* 

1 9C0, 

1970, 

O O A A - 

2200? 

? 1 PC. 

2 0 AO • 

2250. 

t 22 BO « 

2190, 

2200. 

2 3 20 , 

2330, 

18 80, 

1740, 

1 7 1 C, 

1770. 

1760, 

1940, 

2 3 4 0. 

2430, 

2640, 

2 4f,0, 

. 1890, 

17 80, 

1 78 G» 

1 8 10, 

1320. 

, 20 SO , 
, ' 2140, 

22 30 , 

2400, 

2 3 ec , 

22 90, 

t 2000, 

1 960, 

194C. 

1 8 90 ♦ 

1900* 

> - 2300, 

24 30. 

2620. 

2 4 50, 

2530, 


• 3050/ 

SOLAR R_UX FOR £00901 TO 


DATA S FI. 0 6 / 



2820 , 

2690, 

2 5 7 0, 

2390, 

2200, 


2C30, 

19 5 0, 

1 89 C * 

1 9 fie • 

1840, 


1820, 

1 8 p 0 * 

1 82C. 

1 3 30 , 

1 7 50, 


1500, 

14S0. 

1 4 A 0 * 

1 4 80 . 

15 50, 


1470 , 

1540, 

1 55C. 

15 2:# 

1600, 


1750, 

1370, 

1830. 

1 6 10 , 

1 960. 


1610, 






15 90, 

1680, 

1 6 5 C » 

1 54C , 

1 5 1 C. 


1 930 , 

1Q20, 

1 9 1 C , 

1 3 7 / , 

1 320. 


1540 . 

1 7 30. 

1 87 0, 

2 0 5 0. 

2? 60. 


2220 , 

21 7 0. 

2020. 

19 90, 

204 0. 

* 

17 10, 

16 9 0. 

16 20, 

’ 1 6 SJL, 

1 71 C. 

e 

1 f 50 ♦ 

17 10, 

1 6 60, 

1 6 30- * 

1620. 

• 

1670/ 






SOLAR FLUX FOR 6C C 1 0 1 TO 


DATA S F L 0 7 / 

♦ |7|9* T 7S), 1 3 £ C» 1920. 2130. 


2170. 

2040, 

2C2C, 1970, 

2360 . 

2270. 

2230* 2190, 

59C430 

2940, 

3060, 

2730, 2680, 

2 130, 

22 C 0 « 

2370* 2650. 

314C. 

3220 . 

30 4 C * 26 2 C • 

1950, 

1S20, 

1620, 1 740, 

2 1 AC, 

22CO. 

2 1 ?. 2 . 219 0, 

2190, 

2110. 

2010, 

1 9C0. 

1 8PC , 

1910. I960, 

2460. 

259 0 . 

2740, 2 p l 0, 

2470 . 

2460 . 

26PC, £450, 

1 96C , 

2170, 

2 1 5C * 2150, 

1 8 Q 0 , 

1900. 

1 31 C. J 9£ 0. 

2 160. 

2120, 

2160, 2110, 

590831 



1 990, 

FLUX 

1 1 2 

224 0, 

FLUX 

S 1 3 


• FLUX 

1 5 A 


FLUX 

1 1 5 


flux 

116 

2 820, 

flux 

l 1 7 

2940 , 

FLUX 

113 

224 0 , 

FLUX 

.TO 


FLJX 

1 2 0 

1 900 • 

FLUX 

1 2 1 

2280 , 

FLUX 

12 2 


flux 

1 23 

2 040 . 

FLJX 

124 

265C • 

FLUX 

1 29 

2580 • 

FLUX 

* 26 


FLUX 

. 27 

2 200 , 

FLUX 

1 ? £ 

2 030 . 

FLUX 

, pq 

2 200/ 

FLUX 

l 30 


FLUX 

' 3 1 


FLUX 132 


2 0 2 0, 

20S0. 2440, 

2490. 2590, 

FI UX 

13 3 

2 22C , 

224 0 , 2 1 ? C . 

1990. 2010, 

FLUX 

1 36 . 

2050. 

2080. 19^0, 

I 760. 1 770 , 

FLUX 

! 35 




FLUX 

1 3 6 

2100, 

I960, 2120. 

2230, 2230, 

flux 

137 

2200, 

2250. 2230, 

2.37 C. 2 2.6 0, 

FLUX 

1 38 

2 3 80, 

2 4C 0 , 2240, 

21 90, 1 96 0 , 

flux 

1 3 9 




FLUX 

'4 0 

i see. 

192 0,. 1 650, 

1650. 2010, 

FUJX 

I 4 1 

2610 . 

240 0 . 2 31 0 , 

2220, 2030, 

FLUX 

162 

1 820 , 

2.00 0, 2 0 50, 

2070, 2040 , 

r L UX 

1 4 3 




FLUX 

T A A 

2270, 

2120, 2060. 

2040. 2020 , 

■ FLUX 

1 6 5 

2010. 

2240, 2290, 

21 5 0, 2240 , 

FLU X 

16 6 

2570. 

2790. 3020. 

30 80* 3120, 

FLU X 

1 47 




FLUX 

1 C R 

591231 


FLUX 

1 C Q 




FLUX 

1 5C 

2 000, 

1920, 19 AO, 

2 0 9 C , 2 Cl 0 « 

FLUX 

1 5 1 

1680, 

1700, 1670, 

17S0. 1350. 

FLUX 

152 

1 640, 

1630. 1620. 

1590. 154C. 

FLUX 

■< 52 

1 740. 

1690, 1850, 

1 f: 3 0 « 14 90 , 

FLUX 

* 56 

1 670. 

164 0 , 1 7 1 0. 

1730. 1750. ■ 

flux 

T d S 

1900, 

1330, 1770, 

1720, 1670, 

FLUX 

156 




FLUX 

! £ 7 

1 570. 

14 1-0. 1750, 

1830, I960. 

flux 

150 

1 750. 

1610, 1 3 5 C , 

1570, 1540. 

fujx 

1 *4 O 

2210, 

215 0. 2 ; 7 ) , 

2 '50, 2 3 0 0 . 

FLUX 

• *. 0 

2020. 

1310, l f i - '\ 

17-tO. 1 740, 

flux 

* f-1 

16 4 0. 

1 6 7 C . 1 v 9 0 , 

1 , 1 730 , 

FLUX 

1 * 7 

1610, 

1*70, 1720, 

1 T U, 1 700 • 

FLUX 

1 6 3 




FLUX 

1 6 A 

6 0 04? 

0 


FLUX 

1 6 5 




flux 

» 6* 

2150. 

£ ? 4 0 . 2 1 c 0 • 

20 1 C * 1940, 

FLUX 

! 6 ^ 



PLUXS 

Page 6 of 1- 
Octobcr 197/ 



♦ 

2000. 

1540. 1780. 

1 7 60 . 

1830, 

1 830, 

1 790, 

1 760. 

16 4 0, 

1 570 .. 

FLUX 

1 6 8 

♦ 

1620. 

1720. 1880. 

2 1 00. 

2300, 

24 20 . 

2480, 

2520. 

2370 , 

2300 . 

FLUX 

1 AQ 

♦ 

2240, 









FLUX 

170 

# 

22 50 . 

2130. 2150. 

20 90, 

2090, 

1 920, 

1870. 

1 830. 

1330. 

I 760 , 

FLUX 

! 7 1 

• 

1750 . 

15 6 0 . 1 6 7 C . 

1 670 . 

1 £C 0. 

1580, 

1 53C . 

1510, 

1 470. 

1420 , 

FUJX 

1 7 2 

• 

1560. 

1 4 90 , 1 4 3C » 

1 4 oo ♦ 

1470, 

1 4 70 , 

14 70, 

14 0 0, 

1-40 0. 


FLUX 

173 

• 

1 5 70 . 

1370. 1 33 C* 

1 350, 

1400. 

1 350. 

I 390, 

1410, 

1 43 0. 

1320 . 

FLUX 

1 7 A 

• 

1 320 . 

1290, 1350, 

1 340, 

1 37 0. 

1 420. 

1400. 

1 2 3 0 

1 37 0. 

1 430 , 

FLUX 

17 5 

• 

14 50 . 

1500, 1540. 

1 5 60, 

1570, 

1 660, 

1660. 

1 750, 

181 0. 

1 930 , 

FLUX 

1 76 

• o 

1820 . 









FLUX 

1 7 7 

• 

2C 10 . 

1840. 1 79 C ♦ 

1 8 80. 

1 820, 

1 69C. 

1650. 

1470 . 

14 3 0. 

1560, 

FLUX 

17 8 

• 

I09C. 

1680. 1790, 

10 33, 

190 0, 

1 830, 

1780, 

1 7( 0 , 

1700. 

1 750 , 

FLUX 

179 

• 

1630. 

1 5 0 C , 1660. 

16 50. 

1470. 

1430. 

14 0 0. 

142 0, 

1530, 

1610/ 

flux 

1 flO 

— 

SOLAR FLUX FOR £00501 TO 

600831 





FLUX 

1 P 1 

DATA SFLC S / 








FLUX 

1 P 2 

• 

1520. 

150 0, 1580, 

1 5£0* 

1 520, 

1 560. 

1620, 

1 630. 

1 70 C « 

1 700, 

FLUX 

1 8 3 

• 

1500 . 

1 790, 1 70 C , 

l 6 29 , 

16 2 0. 

1550, 

1510, 

1 530, 

1530. 

1 600 , 

FLUX 

I 0 4 

• 

1640. 

1 540, 1 630, 

1 6 40 * 

16 20, 

1 580. 

1660, 

1710, 

1700 , 

1700, 

FLUX 

i p 6- 

O 

1590 , 









FLUX 

1 P 6 

• 

16 60 . 

1 570, 1 67 C, 

1 7 20 , 

1700, 

1 750. 

1850, 

1 850, 

1 «i Q. 

1 730 , 

FLUX 

i e 7 

c 

17 10. 

1670, 1620, 

1 6 60, 

1660, 

1 570. 

1 530 , 

1 390. 

;4C0. 

1 33C , 

C LUX 

15 6 

♦ 

1310 . 

1300, 1360, 

1 3 20, 

1400, 

1 550. 

164 0, 

184 0. 

1 90 0 , 

1450, 

FLUX 

18 9 

0 

2C SO . 

2070, 2 100. 

2 1 20, 

2090. 

20CC. 

1870, 

1 760, 

1 760 » 

16 60, 

FLUX 

1 °C 

• 

15 30 . 

1420, 135C, 

1 3 50 , 

14 60, 

1 440. 

1530. 

159C, 

I860, 

1 520 . 

flux 

, Q 1 

• 

1530 . 

1430. 1 5 1 C* 

1 5 90 , 

1480, 

.1490. 

150 0, 

1490, 

15 4 0, 

1 460 . 

FLUX 

1 c p 

• 

14 50. 









FLUX 

1 9 3 

D 

1400 « 

1340, 1250, 

1 2 20, 

1260. 

1 27C. 

1 34 0, 

14 50, 

1520 . 

1 70 0 , 

,FU)X 

1-4 

• 

1670 , 

2140, 2340, 

2 3 eo . 

2 4 C 0, 

24 10. 

247 0, 

250 0, 

2340 • 

2 190, 

e LUX 

2 W 

• 

20 10. 

1390. 1710, 

1 6 20, 

■ 153 0, 

1620, 

1500. 

140 0, 

1290 . 

1 290 ♦ 

flux 

1 9 6 

• 

1 320/ 









FLUX 

! 9 7 

— 


601231 





• FLUX 

, Q ^ 

DATA SFL09/ 








FLUX 

1 Q O 


1370 . 

1520V 1490, 

1 4 20. 

142 0, 

l 4 9C , 

1620, 

1700, 

1 730 , 

l 750 . 

FLUX 

?C C 


1750 . 

1770, 1 8 1 C, 

1 8 10. 

1 780, 

1 770, 

1850. 

1900. 

1 990 . 

1 950 , 

FLUX 

20 1 


1 BOO . 

1540. 1750, 

1 6 20 * 

1550, 

1460, 

1 420, 

13 2 0, 

1240, 

1210, 

FLUX 

2C 2 


1 1 50 . 

1120, 1200. 

13 2-0. 

132 0, 

1 320, 

1440, 

1 430, 

1510. 

1 590 ♦ 

FLUX 

20 3 


15 20. 

1590, 1620. 

1 6 60. 

1 5 5 C, 

1 650, 

167 0. 

1540. 

1 530. 

1 490 . 

FLUX 

20 a 


1440 • 

14 10, 1 340, 

1 2 50, 

1 30 C, 

1 320. 

1 320. 

122 0, 

1310, 

1 280 , 

FLUX 

<o 5 


1270. 









FLUX 

2 0 6 


12 40. 

1 290, 1 300, 

l 3 10, 

1440. 

1460, 

1570, 

1 680, 

1 750. 

2 000 ♦ 

FLUX 

20 7 


1880 . 

1600, 18CC. 

1 9 20 « 

1330, 

1 7 40. 

1 64 C, 

1530, 

1500 . 

1 47 0 , 

FLUX 

2 0 6 


1390 . 

1 2 7 C » 1160, 

1120. 

1110. 

1 1 70 . 

1190. 

1 1 7 C . 

1190. 

1310, 

FLUX 

209 


13 60 , 

1450, 1520. 

1 6 30 , 

15 9 0, 

16 10, 

1520, 

154 0, 

1500. 

1 51 0 , 

FLUX 

21 C 


14 40 . 

1400. 1360, 

1 320 ♦ 

1330, 

1 340, 

1 250. 

1180, 

1150, 

1130, 

FLUX 

21 l 


1160. 

1360. 103C, 

10 60, 

1110, 

1160, 

1250. 

1360, 

1450* 

1 590 , 

FLUX 

2 1 2 


1630/ 









flux 

2 1 3 

-- 

— 

SOLAR FLUX FOR £10101 TO 

61 C43C 




FLUX 

21 4 


DATA SFLIO/ 








FLUX 

9 1 5 


16 40. 

1760. 1750. 

l 6 50 • 

16C 0, 

1 430. 

1 320, 

1250, 

122 0 . 

1150, 

FLUX 

2 1 6 


1100, 

1330. 960, 

9 C* , 

970. 

1 000 , 

1 C 2 0 » 

1 03 0, 

102 0, 

1 C ? 0 . 

FLUX 

217 


1C 40 . 

1070. 1C00. 

1 0 20 . 

10 30. 

1080. 

1 C 90 • 

12 5 0. 

1320. 

1 2 90 , 

flux 

9 16 


12 33. 









flux 

9 I a 


1230 . 

1.2 20, 1 180, 

l i eo , 

119 0, 

12 10, 

114 0, 

1 1 1 C . 

1080 » 

1 040 , 

flux 



1C 10 . 

930. 970, 

9 70 ♦ 

9R0. 

9 69, 

96C . 

960, 

96 C, 

990 . 

FI.UX 

? 2 1 


1 COO. 

1 C 2 0 » 1030. 

10 4 2, 

10 6 0, 

10 10. 

10 3 0. 

1 02 C, 



flux 

2 2? 


1C 30 , 

IC JO, 1C 40. 

96 J . 

940. 

930. 

950 . 

94 0 , 

90 0, 

91 0 . 

FLU X 



8 . 0-264 
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9 SO » 92 0* 

930. 

9 10, 

900, 

990. 

980, 

10 10 , 

1020 . 

l 050 , 

FLUX 

224 

1050, 1060. 

1100 . 

1 1 60 . 

11 80, 

1 210 . 

1 250, 

1260. 

1260. 

1 2 50, 

FLUX 

2 2 6 

1170. 









flux 

? 2 F 

1130, 1 0 50. 

10 10 . 

10 30, 

1070, 

1 060. 

960, 

104 0, 

960 . 

93 0, 

FLUX 

2 7 

9 20, 9 90. 

880. 

9 30 , 

990, 

1 03C. 

10 5 0, 

1070, 

1050, 

1 030 « 

flux 

22 8 

10 40, I C 3 0 » 

1050. 

1 1 10 . 

1110 . 

12 60, 

1200 , 

114 0 . 

12 10 , 

1 2 2 0 / 

FLUX 


SOLAR FLUX FOR 610501 TO 

610631 





FLUX 

? 2 ? • 

OAT A SFL1 1 / 









FLUX 

^ T 1 

1 2 50 ♦ 1193, 

1110 , 

1 0 40. 

103C. 

970, 

970 . 

94 C . 

960. 

920 . 

FLUX 

2 3 2 

990. 1010, 

97 C. 

9 20 . 

91 0. 

660, 

8 60 , 

950. 

10 C 0 , 

1 050 , 

FLUX 

r 2 3 

1100. 1090, 

1 100 . 

i o ec , 

1060, 

eao. 

960 . 

910, 

91 0, 

880 . 

FLUX 

2 ? 4 

890 , 









FLUX 

■534 

860. 580, 

920, 

8 90, 

660, 

880 » 

690. 

910. 

1000 , 

1 C 20 . 

flu x 

03 a 

1100 . 10 90 . 

1 1 4C . 

1 2 30 , 

1290. 

1 320. 

1370, 

1360, 

1310, 

1310, 

FLUX 

237 

12 20 , 1190, 

1 35C, 

1 1 7C , 

1110 , 

1 C80, 

° 9 0 , 

950. 

1020 , 

1 030 . 

FLUX 

^3? 

1C 40 , 99 0 . 

1 0 4 C » 

1 0 30, 

I 9 60, 

1 02 C » 

1050. 

1070 , 

1120 , 

1240, 

FLUX 

-) "3 O 

1360, 1370, 

1 4 1 C. 

1 3 60 , 

1 360. 

1 320. 

1 170, 

1310. 

12 6 0 . 

12 10 . 

FLUX 

7 £■ C 

1 1 80 , 1190, 

1 1 80. 

1 1 eo *' 

1 1 70. 

1 1 50, 

1110 . 

1 0 5 0 * 

1030* 

920 » 

FLUX 

2 4 1 

9 1C , 








* 

FLUX 

.0 4 2 

900, 870, 

910, 

6 80, 

90C, 

920. 

990, 

1050. 

113 0 , 

1 220 , 

FLUX 

24 8 

1300, 1260, 

1 280. 

12 70, 

1230, 

119'*', 

1190, 

1 1 eo. 

113 0 . 

1 090 , 

FLUX 

24 A 

1C 40 . 1 0 3 0, 

930. 

9 7C . 

930. 

95 C , 

95 0, 

ICOC, 

1030. 

1 060 , 

flux 

24 5 

1 C 60/ 









FLUX 

TS 

SOLAR 

FLUX FOR 610901 TO 

61 1231 





FLUX 

2 4 7 

DATA SFL12/ 









FLUX 

2 4 6 

1100 , 1100 . 

1170, 

1 1 a: . 

1 140, 

1120 , 

1150, 

1170. 

12 60, 

1 300 . 

FLUX 

24 0 

1270. 1300, 

1 3C 0. 

1 3 70 . 

1350, 

1 330. 

1 240 . 

1 1 5 9 . 

1 JHij , 

1 CIO, 

.flux 

£50 

960 , 920. 

900. 

9 70. 

970. 

960 , 

960, 

960. 

10 2 0 , 

1 ooo . 

FLUX 

^ 1 

. 9 80. 9 70, 

97C, 

1 C 2 0 • 

1080. 

1010 , 

990, 

980, 

1 070 , 

1 050 , 

FLUX 

2 R i 

1C 7C • 1110, 

1110 . 

1 0 50 , 

1060, 

1 ccc. 

97 0 . 

950 , 

95 0, 

930 . 

FLUX 

2 

9 20 ♦ 9 9 0. 

850. 

8 50 . 

830, 

83C . 

84 0,- 

86 0 « 

65 0, 

870 * 

flux 

25-4 

B60 « 









FLUX 

265 

660, 630. 

310, 

8 20 , 

870, 

870. • 

930, 

ooo , 

980, 

t 01 0 . 

FLUX 

7^6 

990, 940, 

91 C. 

860, 

3 CO. 

8 69, 

630 , 

790 , 

770 . 

60 0 , 

FLUX 

^ c 7 

B 30 . 640. 

870, 

8 70 , 

920, 

930, 

95 0, 

980, 

980. 

1043, 

FLUX 

->=12 

1C 50, 10 50, 

1110 , 

10 50. 

10 10 , 

1010 . 

94 0 , 

96 0, 

»20 , 

870 . 

FLUX 

r. C ^ 

620, 730, 

82C, 

S 10 , 

31 0 , 

310. 

790, 

61 0 , 

620, 

880 , 

flux 

2 6 f' 

' 9 CO • 990. 

10 10 ,' 

1 0 40, 

10 30. 

10 20 . 

1 030, 

98 0, 

980 , 

94 0 . 

F LU X 

2 6 ! 

930/ 









FLUX 

2 f ? 

SOLAR 

FLUX FOR 620101 TO 

620430 




FLUX 

?e 3 

OAT A SFL1 3/ 









flux 

7 4 6 

090, 540, 

79C , 

8 10 • 

780, 

770, 

770, 

740, 

74 0. 

750 , 

FLUX 

p * c, 

760. 770, 

74 C, 

8 2 : , 

360, 

6 40, 

870. 

94 0 , 

990. 

1 070 . 

FLUX 

06 f- 

1 1 20 . 1110 * 

1 160. 

1 1 40 . 

1 1 50, 

1150, 

1150. 

1150, 

1 09C . 

1010 . 

flux 

7 47 

10 20 . 









FLUX 

r> a o 

1100. 1030, 

1 C 10 . 

1 0 40, 

920, 

R 6 C. 

320 . 

62 0 , 

83 0, 

81 0 , 

FLUX 

•069 

620. 810. 

840, 

8 30. 

8 3 C , 

660, 

670 . 

910. 

1060. 

i C 7 0 , 

FLUX 

*>7 0 

1 1 4 C • 12 10. 

1 260. 

1 3 4 * 1 , 

1290, 

l ? 90 » 

1 36 0 , 

1220 . 



FLUX 

?7 < 

1210 . 1120 , 

1 CC C. 

3 9: , 

3 60, 

510, 

3C 3. 

770. 

790 , 

750 , 

FLUX 

->7 ^ 

760, 920, 

8 1C. 

8 20 , 

84 0. 

860, 

9 40. 

Q3 0 . 

116 0 , 

1 1 RO « 

FLUX 

2 7 7 

1270. 1230. 

1 300. 

12 0 . 

1 2 9 C, 

1 1 60 , 

117 0 , 

1090, 

1 0 3 C . 

990 . 

FLUX 

?7l 

• o 20 . 









flux 

^ 7 ^ 

, f* 60 . 8 3 0, 

6 0 0 ', 

780 • 

760. 

7.6 0, 

770. 

770 • 

780. 

8 1 0 , 

FLUX 

~ 7 A 

• 830, 930. 

1 02C . 

1 1 O , 

1110 , 

1 i i 

11 * 0 , 

110 0 , 

10 QC , 

l 090 , 

FLUX 

?7 7 

. 1120 , 1 1 ?G, 

1 C 6 0 . 

10 60, 

10 10 . 

IOC 

l^OO . 

96 0 , 

930 ♦ 

910/ 

flux 

2 f r 

5 ~,L A R 

FLUX POR 6?0 

50 1 TO- 

AT ‘O 





flu x 

7 -» C 


oTT r rY OF THE 
P00R 

8.0-26S q^ g1 ^ J 



t«LUAi> 

Parc 8 of 17 
October 1972 


DATA SFL14/ FLUX 280 



$40 . 

950, 

94 C, 

9 10 , 

870. 

870. 

830, 

840, 

870, 

91 0 ,‘ 

FLUX 

?P 1 

ft 

$00 . 

9 80 . 

960, 

9 40 • 

910. 

890, 

930, 

9 5 C , 

970. 

1 C3 0 * 

FLUX 

2^2 

ft 

1C 60 , 

1100. 

1110, 

1 1 10 , 

1120, 

1100, 

1090, 

10 3 0, 

104 0. 

1 050 , . 

FLUX 



1040 . 










FLUX 

opi ' 

ft 

9 BO . 

920 . 

' B70, 

3 50 . 

850. 

870, 

920, 

900, 

$10, 

900 , 

FLUX 

? 3 8 

• 

R 90 , 

3 40, 

090, 

8 90. 

930, 

950. 

98 0. 

97 C , 

9 B 0 * 

960 » 

FLUX 


ft 

$ 0 0 » 

900, 

860, 

8 70 « 

900. 

920 . 

93 0. 

91 0. 

91 0, 

91 0 , 

FLUX' 

?67 

• 

900 ♦ 

900 . 

90 C. 

9 00 . • 

38 0, 

860. 

38C , 

R3 r. 

800, 

810. . 

FLUX 

2 38 

6 

fl 30 . 

' 8.20. 

860, 

860, 

35 0, 

840, 

.8 4 0 . 

32 0. 

80 0. 

300 » 

flux 

2 P. 9 

ft 

790 . 

3 0 0, 

780, 

7 80 . 

740, 

760, 

740, 

74 0. 

730, 

720 , 

FLUX 

290 


730 . 










FLUX 

pci 

• 

710, 

730. 

720, 

7 30 • 

700, 

720. 

710, 

72C, 

730, 

750 . 

FLUX 

2 9 2 

• 

740 , 

76 0, 

790. 

8 30 , 

920, 

900, 

890. 

8S 0, 

33 0, 

84 0 . 

FLUX 

29 3 

• 

R20, 

800* 

790, 

7 9C , 

770, 

750. 

730, 

72 0, 

_7 2 0 , 

720. 

FLUX 

?oi 

ft 

7 50/ 






’ ' 




FLUX 

2 9 5 




SOLAR 

FLUX FOR 620901 TO 

621231 





FLUX 

p 0 6 

DATA SFL1 5/ 


r 







FLUX 

0 0 7 

♦ 

840, 

930, 

98 C, 

9 90 , 

980. 

10CC, 

1000. 

97 C , 

940. 

91 0 , 

FLUX 

2 c ft 


900 . 

930. 

92 C, 

9 50 . 

9 30, 

910. 

59 0, 

860, 

34 0. 

P4 0 , 

FLUX 

2° 9 

- o 

P 30 • 

8 1 0, 

B20. 

ft 2Ci 

840, 

340. . 

340, 

83 0, 

360 , 

900 , 

tlux 

**CC 

0 

860 , 

360, 

8 3 0. 

8 20, 

86 C. 

Q4C . 

35 0 , 

570, 

86 0 , 

93 C , 

FLUX 

ir t 

ft 

930 , 

9 30, 

9 5 C, 

9 SC. 

940, 

910, 

910, 

890. 

87 0, 

88 0, 

FLUX 

PC 2 

ft 

870, 

850 , 

840, 

8 90 , 

870. 

8 70 . 

eo 0 , 

820, 

300 , 

820 , 

FLUX 

30 3 


e 10 , 










flux 

3 04 

• 

800 , 

900, 

80 0, 

8 20, 

82C, 

830. 

840. 

R50, 

86 0, 

870. 

FLUX 

305 

e 

■8 70, 

8 90, 

93C. 

9 90 » 

qK rt , 

' 99C . 

9*9 * 

380. 



FI. MX 

if 6 


r\ « « 

A 

JK 

A ^ a 

-* "T ^ 

">"»6 

TC A , 

T A A 

TEA. 

^7A . 

PI 1 4 Y 

“> r* 7 

« 

O IV » 

* ** SU 9 

• « w 9 

LI W J « 

' * vf 



. « - * 





• 

770 * 

8 10. 

830, 

8 29, 

. 820, 

830, 

060, 

84 0, 

830, 

84 0 • 

FLUX 

7 0 ft 

ft 

780 , 

760, 

7 7 C ♦ 

7 60. 

760. 

76C . 

700 , 

830, 

940 , 

860 , 

flux 

?r c 

* 

850 . 

820 . 

790, 

7 90, 

780, 

760. 

750, 

740, 

740, 

74 0 , 

. FLUX 

3 1 o 

ft 

750/ 










FLUX 

71 1 

— 

SOLAR 

FLUX FOR 630101 TO 

•630430 





FLl)X 

7! 2 


DATA SFL1 6/ 









FLUX 

713 


750, 

760 , 

770, 

7 90 , 

770, 

770, 

770 . 

760, 

730. 

eco , 

FLUX 

? 1 * 


nio , 

780 , 

79 0, 

. 860, 

esc. 

620 , 

52 0, 

300 . 

780 . 

730 . 

r LU X 

31 8 


760 , 

750, 

740. 

7 30, 

740, 

730. 

51 0, 

30 0, 

790. 

7RC , 

FLUX 

3 1 6 


' 820, 










FLUX. 

7-1 7 


870 , 

060. 

85C, 

8 00 , 

R7C, 

Q50 . 

430 ♦ 

820, 

790, 

790 , 

FLUX 

7 \ 8 


760 , 

74 0, 

7 4 C* 

7 50, 

760, 

770, 

79 0, 

Bl 0. 

790, 

770 • 

flux 

71Q 


740. 

760, 

750, 

7 60 , 

780, 

770 , 

750, 

74 0, 



FLUX 

32 C 


740 , 

750. 

780, 

ft 03, 

82 0, 

850. 

34 0 , 

830 t 

.32 0, 

60 0 . 

flUx 

7.2 1 


780 , 

770 , 

74 C » 

8 CO, 

aoc. 

790. 

790. 

BOO, 

770 . 

770 . 

FLUX 

^72 


760, 

7 60 , 

750. 

7 50 . 

7 3 C , 

730, 

74 0 , 

73 0. 

75 0. 

740 . 

flux 

72 3 


7 30. 










flux 

724 


730 . 

740. 

740, 

7 CO, 

720, 

760 . 

800, 

01 0 , 

020. 

820 . 

FLUX 

■*25 


BOO, 

930. 

890. 

8 70, 

80C, 

880, 

870 . 

880. 

840. 

730 , 

flux 

3 2.6 


740, 

7 ? 0 » 

710, 

7 30 . 

720, 

72C . 

750, 

780 . 

780 . 

800/ 

flux 

3 27 

— 


solar 

FLUX FOR 630501 TO 

630831 





FLUX 

72 5 


DATA SFl_ 17/ 









FlUX 

72 9 


ft 20 , 

620. 

8 10. 

8 20. 

840. 

870. 

880 , 

860. 

380, 

870 , 

FLUX 

330 


e 40, 

5 70. 

89 C , 

9 50 , 

980. 

1 CCO, 

icon. 

940 . 

990 , 

91 C , 

FLUX 

**3 1 


880. 

390, 

93C . 

8 90 , 

ft 30, 

760, 

800 , 

7^0, 

3 00 * 

4.30, 

FlUX 

115 


090 • 










FLUX 

7 7 T 


840, 

3 10, 

81 C, 

7 90 ♦ 

780. 

7 70. 

340, 

900, 

930, 

090 , 

Fl.UX 

7 P 4 


1 C30 , 

10 9 0, 

1 C 70. 

10 0?. 

96 C, 

69C . 

360 , 

82 3, 

7Q0 , 

750 ♦ 

FLUX 

77 5 


8 . 0“ 266 


SSfffifi-g. 



FLUXS 
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October 1972 


* 

730 * 

720, 

720, 

7 20 , 

740. 

740. 

720, 

74 0, 

73 0. 

76 0 •" 

FLUX 

736 

• 

760. 

770, 

760, 

7 80 ♦ 

780, 

77C, 

770. 

7 7 C , 

770, 

760 . 

FLUX 

707 

• 

7 50. 

740 , 

760, 

7 7C , 

760, 

760. 

740. 

740, 

740. 

77 0, 

FLUX 

7 38 

♦ 

7 50. 

730. 

. 720, 

7 20 , 

740, 

730. 

74 0, 

730* 

770. 

84 0 * 

FLUX 

139 


6 50 » 










FLUX 

74 0 

• 

370 

370 . 

870. 

8 80. 

860, 

eec. 

350, 

01 0 . 

000 . 

770 , 

FLUX, 

24 1 

• 

7 20. 

7 30 , 

740, 

7 10 , 

720, 

760. 

82 0 , 

RCO. 

790 » 

Rl 0 . 

F LU X 

74 2 


SAD. 

. R 6 0 » 

900, 

870. 

850, 

820. 

800. 

770, 

770, 

770 • 

FLUX 

34 3 

• 

770/ 

- 









FLUX 

34 4 


^ 

DLAR FLUX FOR 

C70901 TD 

621231 





FLUX 


PAT A SFL1 3/ 




. 





FLUX 

7 & 6 

6 

730. 

7 30 . 

740, 

7 50 . 

74C, 

74C , 

78 C , 

750* 

770 . 

760 , 

FLUX 

747 

♦ 

720. 

770, 

890, 

9 80, 

990, 

1 C5C, 

990, 

970. 

1 02 0 . 

1 090 , 

FLUX 

34 4 

• 

900 • 

l 050, 

990, 

9 50 * 

860* 

840, 

730 , 

74 0. 

71 0, 

690 • 

flux 

3/0 

• 

6 00 . 

690 . 

700, 

7 10 , 

730. 

770, 

790 , 

850. 

850 ♦ 

870 , 

FLUX 

7 5 0 

* 

670 , 

84 0, 

840, 

3 60,, 

R39, 

87C . 

84 0. 

83 0 , 

630 , 

89 0 * 

'"LUX 

“*41 

• 

9 40 . 

9 6 0, 

940, 

9 40 , 

06 0 , 

060, 

330, 

R4 0, 

450. 

850 , 

FLUX 

3 5 2 

* 

P 70 . 

350 , 

3 3 0. 

8 30 , 

800, 

7C0 , 

760, 

750, 

760 . 

750 . 

FLUX 

753 

• 

760 • 

770, 

770, 

7 80 « 

81 0 , 

PIC. 

30 0 . 

B2 0 , 

86 C « 

840 ♦ ■ 

FLUX 

7 R A 


6 60 . 

36 0. 

84 0* 

8 30, 

820, 

R 2 C, 

Ri 0 . 

790. 

790 . 

790 . 

FLUX 

755 

• 

790 . 

RCO, 

7 9 C » 

7 70. 

7 6 C * 

760, 

770 , 

780 

780 . 

790 , 

FLUX 

■'56 

• 

600 . 

R 20 * 

810. 

790. 

Dt C, 

760, 

780 . 

790, 

730 , 

790 , 

FLUX 

757 


7 90 « 

770 . 

760. 

760, 

750, 

740 , 

740. 

730 . 

720, 

71 0 . 

FLUX 

*150 

• 

7 10/ 










FLUX 

7 0 9 

— 

SOLAR FLUX FOR 640101 TO 

64C4 30 





FLUX 

760 

DAT A SFL1 9/ 





. 




FLUX 

■*6 1 

• 

TOO . 

6 8 3, 

707, 

7 04, 

7 1 3. 

72 5, 

72 5, 

708 * 

7 i 0 • 

VO 3 * 

r LL> X 

^ f. ” 

• 

7 21 . 

7 3 7, 

736, 

7 31 ♦ 

'2 I , 

/ 20 . 

dv 2 « 

f 1 5 , 

rz"4 » 

7/j f> * 

F V-U a 

■ 'CO 

* 

725. 

723, 

724, 

7 20, 

70 9. 

715. 

71 l , 

749, 

752 , 

72 7, 

FLUX 

364 

• 

721 . 










C LUX 

7 65 

* 

700. 

695, 

688 , 

692. 

704, 

707, 

70 1 , 

71 2, 

699, 

703 . 

F.LUX 

■*6 6 


696. 

7 C 9 ♦ 

715, 

7 08 , 

70 9, 

7 13, 

7 2 1 » 

74 3 , 

' 739. 

74 5 * 

FLUX 

3 67 

• 

763, 

780, 

826, 

8 34, 

827, 

848, 

033, 

82 0 , 

793 , 


FLUX 

7 6 . 5 

• 

761 , 

7 39, 

725, 

7 33. 

709, 

724, 

718, 

727, 

706, 

722, 

- FLUX 

7 6 0 

• 

741 . 

763, 

7 7 3, 

7 80 • 

778, 

762, 

767, 

74 6 * 

73 6 . 

73 7, 

FLUX 

370 

• 

. 739, 

779, 

769, 

7 65, 

737, 

74C. 

749, 

755. 

749, 

780 . 

FLUX 

37 1 

• 

767 , 










FLUX 

772 

• 

773, 

753. 

768, 

7 69, 

76 1, 

75H. 

757, 

737, 

752, 

731 . 

flux 

773 

• 

7 43, 

73 1 » 

734, 

7 20 , 

719. 

712, 

724 , 

72 4, 

71 5 , 

7?\ , 

FLUX 

77 c 

• 

723, 

7 15, 

71 1, 

7 25, 

71 4, 

7C5. 

70 5. 

709. 

698, 

700/ 

FLUX 

7"*5 

. — 


FLUX FOR 640501 TO 

650831 





flux 

37 6 

DATA SFL 2 0 / 









FLUX 

777 


700, 

695, 

710, 

7 15, 

7 32, 

722. 

7? 2, 

72 9, 

722 ♦ 

715 , 

FLUX 

770 


715, 

7 09, 

699, 

6 94, 

695, 

716. 

71 2, 

72 1 » 

703, 

693 , 

FLUX 

779 


6 97 , 

6 3 3. 

690, 

6 98, 

693, 

702 , 

695, 

71 5, 

710. 

701 . 

FLUX 

700 


696, 










FLUX 

78 \ 


697 , 

700 » 

70 2, 

7 C2 , 

698, 

705, 

71 7, 

71 9. 

71 1 , 

72 5 , 

FLUX 

■*« 2 


725, 

7 10. 

724, 

7 24, 

739, 

72°, 

73 P. 

74 1 , 

724 . 

727 , 

FLUX 

7 0 3 


7 20 . 

7 t 3. 

696, 

7 02, 

699. 

6^9, 

69 7, 

69 6, 

6 <14 , 

69 5 , 

FLUX 

"1 n ^ 


6 97 , 

693, 

696. 

7C4 , 

690, 

701 . 

692 • 

7C2, 

694 • 

63 9 . 

FLUX 

7 05 


699 . 

6 91, 

687, 

7 15. 

7 1 R, 

716, 

709, 

702 . 

6 96, 

684, 

FLUX 

4 


( 35, 

6 3 2, 

686. 

6 8?, 

679, 

660, 

673. 

47 ft , 

679, 

633 . 

FLUX 

7 0 7 


682. 










FLUX 

70 5 


6R9. 

697 , 

70 1 , 

6 98. 

7 1 0, 

702, 

*06, 

69 4 , 

69 0, 

707 , 

FLUX 

TOO 


699, 

706, 

, 759, 

780, 

7 7 *•» 

748 . 

73 3. 

713, 

72 2, 

71 4 . 

FLUX 

70 0 


7 04, 

7 06, 

707. 

6 59, 

691 , 

6 80, 

69 6. 

686. 

685. 

699 , 

FLU X 

79 1 


8.0-267 


REPRODUCIBILITY QF THE 
ORIGINAL PAGE IS POOR 
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• 

702> 









•- 

FLUX 

3®2 

c 

5DL.AR 

FLUX FOR 

640901 TO 

641231 





FLUX 

3 9 3 

DAT A. SFL2 1 / 









FLUX 

-10 4 

« 

713, 

704, 

708, 

7 10 , 

703, 

7 15, 

718, 

71 9, 

724 , 

72 3 , 

FLUX 

3 C 5 

• 

730 t 

732. 

. 729, 

7 25, 

719, 

702, 

69 0 . 

690, 

694, 

695 , 

flux 

30 *, 

• 

691 • 

591 . 

690. 

6 84 , 

601. 

697. 

70 C . 

.70 5 , 

709, 

71 6 . 

flux 


• 

720. 

7 16, 

71 8 , 

7 06, 

716, 

726, 

740 , 

768, 

729, 

727 . 

FLUX 

-top. 

€> 

715, 

697. 

7 1 9. 

703, 

70 2, 

705. 

704 , 

71 8 , 

722 . 

71 9 , 

flux 

0 

• 

703 , 

■ 7J8, 

72 3. 

7 30 , 

754, 

754, 

749 ♦ 

735, 

732 . 

732 , 

flux 

400 


740, 










FLUX 

4 0 1 


736, 

733, 

7 2 7, 

721 , 

716, 

726. 

715, 

71 1 , 

704 , 

701 , 

flux 

402 

• 

7C2 ♦ 

707, 

7C7, 

7 11 , 

7 0 6 , 

703, 

737, 

733 , 

731 , 

740 ♦ 

FLUX 

4 0 ■* 

• 

720, 

7 t 5, 

699, 

6 93. 

695, 

681 . 

696, 

688 , 

710, 

71 5 , 

FLUX 

44 4 


739, 

738, 

744, 

7 37 , 

753, 

7 46, 

73 0, 

750, 

750 , 

760 , 

flux 

4 0 6 


7 70, 

74 3 . 

755, 

7 Cl . 

765. 

782 , 

778 , 

731 , 

791 , 

776 , 

flux 

4 0 6 


762, 

74 9. 

735. 

725. 

724. 

715, 

738 , 

74 7, 

751 , 

741 , 

FLUX 

40 7 

« 

759/ 










flux 

4 0 8 

C- 

SOLAR 

FLUX FOR 

650101 TO 

65C43D 





FLUX 

4 0 9 

data sflu X 1 / 








* 

FLUX 

A I 0 

• 

627, 

315, 

794, 

7 80 . 

774, 

777, 

757, 

749, 

741 . 

735 , 

flux 

4 : ? 

• 

727. 

726, 

725, 

7 20 , 

724, 

714, 

712, 

721 , 

71 5 , 

73 7 , 

flux 

4 1 2 


741 . 

744, 

734, 

741 . 

731, 

735. 

768 , 

751 . 

766 . 

736 , 

FLUX 

4 1 ? 

o 

777. 










FLUX 

4 1 4 

• 

762 • 

763 , 

764, 

732. 

741, 

741 . 

752, 

734, 

734 , 

739 , 

FLUX 

A 1 5 

• 

7 IQ , 

712, 

706, 

7 Cl . 

703, 

214 , 

71 6. 

7C 5, 

706, 

698 • 

FLUX 

4 1 A 

• 

700 , 

7 0 3, 

71 5, 

7 29. 

72 7, 

723, 

746, 

74 3, 



flux 

4 1 7 

o 

7 51 , 

74 0, 

737, 

7 *33 , 

■ 7 4 6, 

'755, 

75 6, 

7 3 4, 

71 9, 

72 1 * 

FLUX 

6 i .3 

tt 

709, 

726, 

/ 4 t. 

72X, 

r 1 V, 

/UD ♦ 

/U 11 • 

4 4 cl , 

/bj, 

MS. 

*-LUA 

a I V 

• 

* 734, 

721 , 

725, 

7 20 • 

734, 

730, 

718, 

71 4, 

717, 

71 2 , 

FLUX 

420 

« 

714, 










FLUX 

4. 2 1 

• 

711 • 

715, 

713. 

7 11, 

70 3, 

710. 

7C 3 

70 7. 

719, 

734 , 

FLUX 

4 22 

• 

741 , 

737, 

740, 

7 53 , 

755. 

751 , 

73 3, 

73 7, 

74 3 , 

73 l , 

flux 

4 5 3 

» 

7 37, 

735. 

740. 

7 16. 

704, 

700,' 

7 C 2 » 

70 5, 

71 2 , 

709/ 

FLUX 

i?i 

c 

— 

SOLAR 

FLUX FOR 

650501 TO 

650831 





FLUX 

4 25 


DATA SFLUX2/ 









■ FLUX 

4? A 


722 « 

719, 

7 1 9, 

7 09, 

702, 

71*7, 

727. 

7 34, 

738. 

735, 

FLUX 

4?7 


- 725. 

733. 

760. 

7 70. 

8 2 3, 

8 83, 

932, 

926. 

94 6. 

970 , 

C LUX 

4 2 a 


9 51 • 

445, 

e84. 

3 73, 

031, 

eoc. 

76 1 , 

765, 

758 , 

761 , 

flux 

4^9 


736, 









. 

r LUX 

4 1 n 


723 , 

758, 

774, 

8 05. 

306, 

807, 

79 5, 

807. 

R 1 4 , 

807 , 

FLUX 

4? 1 


789. 

7 34, 

79 2, 

785. 

7Q1, 

764 , 

787. 

008, 

774 , 

785 , 

FLUX 

432 


7 84 , 

807, 

829. 

807, 

31 9, 

814, 

8C3, 

7 9.7, 

790. 

796 , 

FLUX 

4 3 3 


786 . 

762 , 

788, 

785, 

780, 

812. 

34? , 

e? a* 

e4i , 

830 , 

FLUX 

A2A 


8 26. 

80 8, 

788, 

772. 

770, 

745. 

743. 

743, 

■?4 9, 

754 , 

FLUX 

4?5 


750 . 

7 39, 

732. 

7 24, 

723, 

717, 

723, 

729, 

734 , 

734 , 

FLUX 

F86 


730, 










FLUX 

4 ?-»’ 


742. 

752, 

796, 

8 07, 

785, 

811 , 

a 13, 

795. 

796. 

782 , 

FLUX 

433 


788 , 

77 9, 

767, 

756, 

7 4 4, 

7 56, 

74 2 . 

750, 

761 ♦ 

755 . 

FLUX 

t ? 0 


7 53 « 

746 , 

746, 

7 4T, 

7 33, 

735. 

76 0, 

747 , 

7 S7, 

764 , 

FLUX 

44 r 


763/ 










FLUX 

4 4 t 

c 


S OL A P 

FLUX FOR 650901 TO 

6^1231 





flux 

4 A p 


DATA SPLUX3/ 









FLUX 

4 4 1 

• 

763. 

77 3, 

779. 

7eo. 

800, 

78.3 . 

7PO, 

79 4, 

772 . 

76 7 , 

FLUX 

4 4 4 

• 

767 . 

763. 

754, 

761 . 

7 5 7, 

745, 

74 5 * 

777, 

73 .4 , 

7? 4 , 

FLUX 

'43 

• 

731 . 

717, 

72 3, 

7 66, 

7 6 2, 

774 . 

78 7, 

no*.' 

876, 

89 3 , 

FLUX 

4 4 6 

* 

C22. 

93 3. 

96 1 , 

4 75, 

4 16, 

8 51 . 

*! 3 5 . 

8? 6. 

63 0, 

30 1 , 

FLUX 

4 4 T 
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* 

757, 

745* 

754, 

743. 

733, 

718, 

720 , 

716, 

71 2 , 

72 0 , 

flux 

44 8 

P 

726, 

754, 

779, 

7 55, 

770, 

773, 

770, 

762 , 

756 . 

75 1 . 

FLU X 

4 49 

9 

769* 










FLUX 

4 5 0 

P 

776, 

702, 

798, 

7 84 , 

767, 

792. 

837, 

789, 

304 * 

824 , 

FLUX 

45 1 

9 

. 6 25, 

791 . 

757, 

744, 

74 8, 

724, 

72 6», 

73 7, 

71 6, 

70 9 , 

FLUX 

4 5 2 

— x, 

705, 

700, 

69 5, 

6 93. 

6 8 8, 

699, 

721 , 

74 9, 

71 9, 

730, 

FLUX, 

4 53 

• 

733, 

729, 

727, 

723. 

7 32, 

740, 

730 , 

74 4 , 

72 7 , 

73 0 , 

FLUX 

4 54 

• 

732, 

735, 

717, 

724, 

74 4, 

7.51 , 

*'5 9 . 

759, 

74 2, 

7?1 , 

FLUX 

4 58 

♦ 

717, 

700* 

70 3, 

6 88, 

697, 

744, 

8C 9 , 

910c 

31 9, 

792 , 

FLUX 

4 56 

• 

781 / 










FLUX 

4 5 T 


SOLAR FLUX FOR 660101 TD 

6604 30 





FLUX 

4 88 

DATA S FLUX 4/ 









FLUX 

4 59 

P 

793, 

763, 

759, 

7 73, 

77 4, 

771 ♦ 

782. 

779, 

774. 

772 , 

FLUX 

{ 6 0 


782 , 

812, 

843. 

901 . 

9 R 5 * 

1 C26, 

984 , 

1014. 

1051 , 

990 , 

FLUX 

4 6 \ 

9 

9 57 , 

9 18, 

906, 

8 89, 

854, 

627, 

799, 

781 » 

703, 

76 3 , 

FLUX 

4 62 

P 

7 54, 



„ 







FLUX 

4 6 3 

P 

776, 

76 9, 

775, 

7 90 , 

8 0 6, 

B21 , 

e2 3, 

323, 

32 9 c 

638 , 

FLUX 

4 6 4 

P 

836, 

332, 

0 3 9, 

839, 

833, 

827 . 

82 1 , 

822. 

01 1 , 

. 82 8 , 

FLUX 

4 65 

4 

£57, 

660 , 

827, 

8 19, 

793. 

831 , 

832, 

84 I , 


- 

FLUX 

4 6 6 

• 

797, 

76 7, 

758, 

7 55. 

748, 

755, 

762 , 

7 .6 4 . 

785 . 

78 6 , 

FLUX 

4f-7 

* 

7 80 ♦ 

783, 

80 C, 

R 14, 

R 7 1 , 

929, 

1 C5 1 . 

10 9 6, 

1 1 4 6 * 

1 1 1 C . 

FLUX 

4 6 R 

• 

1203, 

1051, 

962, 

929. 

9 11, 

847, 

83 1 • 

R7 6. 

961 , 

99Q « 

FLUX 

4 69 


l 1 04 , 










FLUX 

4 70 

* 

1068 , 

1 063, 

1021. 

1 0 26, 

1020, 

1042, 

1028. 

I 073, 

1 003, 

94 8. 

FLUX 

4 7 ! 

V 

939 , 

94 0 , 

93 1, 

9 10 , 

963, 

932 « 

952, 

RP 9, 

39 0 * 

935 , 

FLUX 

47 2 


9 17, 

9 3 4, 

9’38, 

1 0 37, 

10 38, 

1013, • 

96 0,' 

94 9 « 

'945, 

-93 3/ 

F LU X 

47 3 

— 

S OL a R 

rn ijv FOR 66C501 TO 

660331 






A 7 A 


^ AT ^ 5/ 









r» «i w 


• 

9 17 , 

940, 

9 4 C , 

9 25, 

8 8 6, 

875. 

999, 

8 7 8, 

37 5 , 

866 . 

FLUX 

4 76 

P 

P 93 , 

926, 

92 9, 

972, 

992. 

1 OOi , 

9 P, 9 . • 

937. 

1071. 

1155. 

flux 

4 7 7 

P 

1236, 

12 10* 

1 1 39, 

1 1 77, 

115 1, 

1123. 

1 085 . 

1 076. 

1 C 6 3 , 

1 Cl 6 , 

FLUX 

478 

P 

10 56 ♦ 










FLUX 

4 7 9 

P 

1C 48. 

1 039, 

1 026. 

1 0 2C , 

10 1 7, 

1019, 

969, 

995, 

939, 

968 c 

FLUX 

A P. 0 

9 

961 , 

9 5 9, 

96 1, 

9 69, 

94 7, 

979 , 

995, 

932 • 

969, 

94 3 , 

. FLUX 

4 p \ 

P 

935, 

96 1, 

99 2, 

1 0 55. 

104 8, 

1 C56* 

10 0 8, 

1014, 

998, 

1 007, 

FLUX 

4 8 2 

• 

*001 « 

9 62, 

993. 

1 0 48, 

1050. 

1 0 97 . 

1126. 

U 44, 

l 078, 

1 031 . 

flux 

API 

• 

1C 90 , 

10-2 7, 

1004, 

996, 

10 11, 

10 26. 

1012, 

10 13. 

10 15, 

1018. 

FLUX 

4 P. 4 

• 

1037, 

1065, 

1 149, 

1 2 06 « 

1260, 

1 276, 

1 233, 

13 4 2, 

1 3?9, 

1 230 » 

FLUX 

4 8 8 

• 

1246. 










FLUX 

4 8 6 

• 

12 59, 

1196, 

1 162. 

1 1 ec . 

11C5, 

1 C6C , 

1015, 

977, 

064 « 

94 3 . 

FLUX 

4 p 7 

• 

925, 

928. 

932. 

928. 

937, 

951 . 

968. 

975, 

1 COO, 

1016, 

FLUX 

4 8 8 

9 

1 C27, 

1055, 

1 147. 

1 222. 

1263. 

1 302, 

1334, 

132 6. 

129a, 

1261, 

FLUX 

4 pg 

P 

1209/ 










FLUX 

A Q C. 

—— 

SnLAR 

FLUX FOR 660901 TD 

661231 





FLUX 

4 0) 


DATA S F LU X 6/ 









FLUX 

492 


1166. 

10 6 3. 

1 03 2. 

10 19. 

1 CO 5. 

979, 

959, 

962, 

95 3 ♦ 

O? O , 

flux 

4 0 3 


566, 

10 0 3, 

1024, 

1 0 74, 

1120. 

1 246, 

129 1. 

1 42 6, 

14 66* 

1 460 . 

flux 

4 06 


1372 . 

1115. 

1 275, 

12 60, 

1 1 3P» 

l 094, 

1 329, 

O TO , 

996. 

957 , 

flux 

4 0 5 


1C 14 , 

10 20, 

103 2. 

IOC*. 

1000, 

t Cl 9, 

10 3 1, 

99 4 , 

1035, 

1 065. 

FLUX 

4 0 8 


1C 98, 

’14 8, 

1228, 

1 2C3. 

1 20 6. 

l 203. 

12 7 5, 

l 1 35. 

1136, 

12*1. 

FLUX 

4 C 7 


1209, 

1198, 

1111, 

10 61, 

ICC 8. 

977, 

92 0 . 

94 1 , 

997 , 

• 957 , 

FLUX 

4 0 8 


971 , 










FLUX 

A O 


o 46 » 

067. 

93 1. 

9 17, 

R79, 

l C47. 

It 34 , 

1169. 

li7P. 

1 219, 

Fl.UX 

f -f r 


12 61 , 

1 2 6 P . 

1 26 A, 

i 2 40 , 

1 22 

12 13. 

117 2. 

113 4. 

Ill' 1 , 

110 3, 

FLUX 

*■- £■ 1 


1107, 

1 1 6 6 « 

1 19 7, 

1 l 53. 

112 7. 

1 073 . 

nil, 

13 4 1. 

0 90 , 

94 6 , 

FLUX 

*"0 3 


922 . 

951 , 

999, 

10 48, 

1 l 0«. 

1 1 56 . 

117 7, 

1 2 3 7, 

14 6 2. 

1873, 

F LU X 

3 
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c- 


c- 


c- 


C-- 


1623 , 

1576, 

i 555, 

1 4 95, 

1449, 

1 351 , 

1249, 1112. 1123. 1076* 

FLUX 

*■ 0 4 

10 65. 

10 55. 

1 106, 

1 1 05. 

1116. 

1 l 09. 

1096. 1075, 1093. 1151. 

FLUX 

FLUX 

Ff/S 

506 

1205/ 

SOLAR FLUX FOR 670101 TO 

DATA SFLUX7/ 

670430 


FLUX 

flux 

f 0 7 
50 3 

1244. 

14 30, 

1540, 

1 607. 

168 2, 

1 605. 

1536. 1420. 1447. 1456. 

FLUX 

? 0 
c 1 c 

1299. 

1391, 

1 3 B 1. 

1 3 92. 

12 6 6* 

1 202, 

1169, 1174. 1164, 1270. 

FLUX 

1282. 

1 399, 

1488, 

14 68, 

1427, 

1 543, 

1533, 1562. 1582, 1590, 

FLUX 

FLUX 

51 1 

512 

1564 . 

1516. 

14 35. 

1 387, 

1 3 7 3* 

1468, 

14 88, 

1625, 1433, 1459, 1405. 

FLUX 

r> i 3 

1 337 , 

13 2 9, 

1 30 C. 

1 2 92 . 

1264, 

1 249, 

1222* 1242, 1210, J. 286, 

FLUX 

5 14 

1 ? IB . 

1460, 

1 49 2, 

1622, 

1595, 

1 733, 

1767, 1802, 

FLUX 

r - 1 5 

1942. 

1 978, 

196 4, 

2 0 59, 

1792, 

1 7 74, 

1638, 1561, 1579. 1484, 

flux 

516 

1416. 

1343, 

129 1, 

1 2 72 * 

1324, 

1321, 

1326, 1322, 1360. 1404, 

FLUX 

1 ? 

1472. 
. 1676. 

149 5. 

1 557, 

1 6 19, . 

169 2,- 

1639. 

1620. 1607, 1784, 1758. 

FLUX 

FLUX 

C 1 5 
51 O 

, 1 5 86 . 

14 10, 

1 333, 

1 2 50, 

.1 2 2 1 * 

1190. 

1262. 1357, 1333. 1303, 

FLUX 

c 2 C 

, 1311, 

1 2 5 3 . 

1 263, 

1 3 26, 

-12 4 1, 

1 261 , 

1259. 1287, 1267, 1271, 

FLUX 

5 21 

> 1340, 

13 15, 

1 2B0, 

1 205, 

132 9, 

1 254, 

1292. 1351. 1375, 1353/ 

FLUX 

c ??. 

SOLAR 

OAT A SFLUX3/ 

FLUX FOR 67 C 50 1 TO 

670831 


FLUX 

FLUX 

5 2 3 
5? A 

► 1266. 

13 19, 

1 28 3, 

1 2 53, 

1291. 

1 228, 

J197, 1169, 1136, 1094. 

FLUX 


, 1 C 61 . 

1 09 7, 

1 073, 

1 0 66, 

1110, 

1131, 

1154, 12 48, 1356, 1 4 5 J , 

FLUX 

526 

t 1603. 
* 1754, 

1327, 

1 94 C. 

20 C9. 

21 0 7, 

2189. 

2138, 2026, 1383, 1774, 

FLUX 

FLUX 

5 2 7 
r 2« 

* 1746, 

1 5 30. 

1 50 4, 

1484, 

1387. 

1-305, 

1191, 1101. 1037, 971, 

FLUX 


, 969 , 

9 65 i 

coo, 

1 0 i 

10 7 2, 

1119, 

112 0. 1 } 6 4 , t.190, 1219, 

flux 

tZ -3 

4 O 

* -» fS f. t 

t 7 *3 * 

% 2 z * 

% T 1 

j2?5 ; 

.Tin ’ 1 2 6 i 132''. ; 1261 j 

P4jj y 


, 1250, 

12 5 7, 

1 296, 

1 272, 

1237, 

1 166. 

1160, 11 18, 1097, 1 C5P , 

FLUX 

5 32 

, 1C 71 , 

10 61, 

1130, 

1 2 24 , 

1276, 

1 30! . 

1296, 1213, 1286, 1355. 

FLUX 


0 1402, 

• 1 B 8 4 » 

1 5 24, 

1 618, 

1 764, 

1955, 

1 999, 

2132. 2131 . 21 57. 2116, 

FLUX 

FLUX 

c 

• 1766, 

1667, 

l 635. 

1 4 93, 

1 554, 

1 554, 

1502, 1434, 1412, 1367, 

flux 

«; 7 ^ 

• 1362, 

I 339, 

1 375. 

1 3 CO . 

1274, 

1 329. 

1433. 1571, 1723. 1729, 

FLUX 

c 37 

• 1768. 

. 1657/ 

1 78S ♦ 

1 78 2, 

1 6 59. 

1708. 

1720. 

1712, 1699. 1727, 1640, 

FLUX 

FLUX 

c 38 
5 3 9 



SOLAR 

FLUX FOR 670901 TO 

671231 

FLUX 

c 40 


CAT A SFLUX9/ 


1605. 

1 o66* 

1 470. 

1 4 C9, 

1 307, 

13 38. 

1284, 

17 3 9, 

1315, 

l 336 . 

1318, 

1 3 1 7. 

1 276. 

1 2 B0 , 

1 30 4, 

1 264, 

1267, 

1207, 

1277 , 

1 306 . 

12 66. 

124 6. 

1 230, 

1 3 19. 

13 4 1, 

1 344 . 

1373. 

1 346, 

1317, 

1 31 7. 

1397 , 

1350. 

1315. 

1 2 <59, 

1257, 

1 299, 

1 250. 

12 15. 

1221. 

1 273. 

1 365 , 

1 354, 

1 30 3, 

1 2 73, 

122 6, 

1 1 P0 » 

117 3, 

1133, 

1193. 

1 31 2 . 

1301 . 

1373, 

1 394, 

14 13. 

14 2 1, 

1 482 , 

1611, 

1770, 

1634 , 

15 95. 

1 4R6 . 
14 03 « 

14 09, 

1 375, 

1 3 05. 

1210, 

1 196, 

113 1, 

112 8, 

1111. 

1173, 

1241 , 

1327, 

1 34 7, 

,1 3 69, 

1 4 79. 

1510, 

1546, 

1 5 6 9, 

1667, 

1 660 . 

16 14. 

1594, 

1 566, 

1 S 26, 

1547, 

1579, 

1550. 

1572, 

1 503, 

1 4 4 4 . 

1400 , 

1115, 

1 205. 

J 203, 

1 2 1 6, 

15C3, 

1276, 

l 2 °6 , 

1 30'“', 

1 277 . 

1366. 

13 9 1. 

1 4 3 C » 

15 34, 

1643. 

i a 1 .3 , 

2020 . 

2124, 

2CS4 , 

2CI 5. 

1980 • 
1 526/ 

IS 23, 

1 640, 

1 5 29, 

1 594, 

1 653. 

1770, 

1841, 

1765, 

I 589 , 


... sOlAR FLUX FOR 6M0101 TO 600430 

DAT A SFLJ 10/ 

1714, 1 7 1 B , 179 3, 18 2 3, 1912, 2097, 
2C25, 1509, 1972* 1 8 70* 1766. 1808, 


2219, 

1574, 


2302. 
1 4R5. 


2220, 

14 16, 


2 C 9 3 • 
1373, 


FLUX 
FLUX 
r LUX 
FLUX 
C LUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
FLUX 
F LU X 
FLUX 
FLUX 
FLUX 
FLUX 

flux 


4 \ 

t£i 2 
r 4 3 

c a a 

c 4 5 

c a 6 
r 47 
c 4 B 
*■ 4 O 
f. f.Q 

Ff. 1 

c F 2 
K «; T 
f .?4 
8 5 5 
r 8R 

5 *= 7 

e F q 
FRO 


REPRODUCIBILITY OF THE 
ORIGINAL ’PAGE IS POOR 
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1325 « 

13 5 7, 

1 379, 

1 4 86. 

1601* 

1 74 0, 

18 50, 

2130. 

2207, 

2 291 *• 

FLUX 

e 60 


2391 , 










FLUX 

i 


2541 . 

25 30 , 

2443, 

2 2 03, 

19 14, 

1 722, 

1 642, 

1515, 

1517, 

1 557 ♦ 

FLUX 

= 67 


15 57, 

159 i , 

149 1, 

1 4 57 . 

14 13. 

14 2.5, 

1 306, 

1 352, 

1 375, 

1 3 86, 

FLUX 

c 67 


14 Q5» 

15 13, 

1 56 5. 

16 46, 

1774, 

1 839, 

1757, 

170-7, 

1 574 , 


f LUX 

= 64 


lf>70; 

1 574, 

1 00 8. 

1 3 65. 

13 78, 

1 360, 

1314, 

1261. 

1223, 

1 2V 1 . 

flux 

5 65 


1293, 

1 3C4, 

127 8, 

1 279, 

1259, 

1 282 . 

1352, 

-132 2, 

1301, 

1 2 96 « 

FLUX 

f 66 


1400 , 

1422. 

1 455. 

15 4V, 

1560, 

1 568, 

1592 . 

1 57 3 , 

1 562 . 

160-3, . 

f LUX. 

c 6 7 


1553, 










FLUX 

r 6 8 


143R, 

144 1, 

1371, 

13 17, 

1291, 

1 251 , 

1247, 

1307, 

14 11, 

1 428, 

FLUX 

= 6-° 


1284 , 

1427, 

14 19, 

1 3 83, 

1400. 

1410, 

1322, 

1 277, 

1253, 

1 224 , 

FLUX 

6 7 C 


12 34, 

11 56, 

1117. 

1 1 75, 

119 9, 

114 3, 

1191, 

1284, 

1280, 

1328/ - 

FLUX 

= 7 1 

— 

SOLAR 

FLUX FOR 630501 T3 

600831 





FLUX 

r -?2 


DAT A SFLU 1 1/ 









FLUX 

e 7 3 


1448, 

14 3 2, 

1 563, 

1 5 45, 

1 5 6 C , 

1485, 

1 4 5 4, 

14 16, 

1 39 5, 

1 397 . 

FLUX 

57 


1235, 

1273, 

1 203, 

1 382, 

14 18, 

1 507, 

1 665. 

1 784 . 

18 53. 

1 936 , 

FLUX 

= 7 = 


19 46, 

1903, 

1 857, 

1 8 26 ,' 

1 3 1 C , 

1771 , 

1 709, 

15 01. 

1509, 

1513. 

FLUX 

F 7 6 


1489 , 







• 



FLUX 

= 7 7 


15 20 , 

14 54, 

1438, 

1 4 40. 

1383, 

1 455, 

152 2, 

1 54 6. 

1490 . 

1 479, 

FLUX 

570 


1465 , 

14 84, 

1434, 

1 395, 

1 397, 

1 362. 

1 396, 

1432 , 

1475. 

1515, 

FLUX 

c 7 O 


1572. 

154 6, 

1 63C. 

1 5 75, 

1540, 

1 4 62 , 

1 47 6, 

14 2 8, 

1391, 

1 359 , 

FLUX 

c p 0 

« 

1283, 

120 3, 

117 2, 

1 1 60 . 

1194, 

1201. 

1 36 9 . 

14 7 1, 

1536 , 

1 570 , 

*" LUX 

CL J3 ] 


1628, 

1561, 

1 556, 

1550, 

1479. 

14 55, 

1436, 

13 52, 

1 353, 

1 339, 

FLUX 

c. p 2 


12 30. 

1 390 » 

146 1, 

1 527, 

158 2, 

1 544 , 

14 0 8, 

1436, 

1443, 

1 306 , 

FLUX 

cot 


1347, 










flux 

= 04 


12 42, 

1 342, 

14 0 9. 

1 3 55* 

1359, 

1 4 60, 

1 39.0, 

14 1 

1467. 

i 466 , 

FLUX 

5 8 5 


1507, 

16 16, 

1 70 8. 

18 51. 

1857, 

l 7 °C , 

1602 , 

1 69 8, 

1590, 

1 599 , 

FLUX 

= 8 f-. 


1586, 

1538, 

1 377, 

1 308. 

1242, 

1160, 

114 5, 

1194, 

1217. 

1 255 , 

FLUX 



1235/ 










FLUX 

= 00 




SOLAS 

FLUX FDR 630901 TO 

681231 





flux 

C ^ O 


OAT A SFLU 12/ 









FLUX 

C c Fi 

• 

1295, 

1 34 2, 

■ 1 428, 

1 4 32, 

1396. 

1 360 , 

14 1 1 , 

1 4 9 4, 

1494, 

I 562 , 

FLUX 

*• 9 1 


1525, 

1 560. 

150 6. 

1467, 

13 57, 

1 220, 

1315. 

1287, 

1273, 

1 274, 

FLUX 

c c 2 

a 

1336, 

1275, 

1 268, 

1 4 30, 

1581. 

1 69C. 

15 7 0. 

1 5 02. 

1540. 

1443, 

FLUX 

C C "7 

• 

1365, 

1 36 3, 

1 452, 

.14 61, 

14 79, 

1453, 

1 46°, 

1 4 1 6, 

1 373, 

1 34 6 , 

flux 

= C £ 

♦ 

1339, 

136 8, 

1 27 2, 

13 21. 

1 370. 

1 372, 

1425. 

14 nr,. 

1537, 

1 555, 

flux 

t ^ C 

• 

*1633, 

164 8, 

1 670, 

17 33, 

17 17, 

1725, 

1720, 

1710, 

1911, 

l 63 9, 

FLUX 

c r, f. 


1595, 










FLUX 

c: G 7 

• 

1534. 

15 15, 

1 46 1. 

1 4 03, 

1329. 

1314, 

1291. 

1331, 

1 354 , 

1 352 , 

FLUX 

c c 0 

• 

1326, 

12 9 3, 

1315. 

13 13, 

1 3 3 5, 

1 276. 

1405, 

1400, 

14 13, 

1391, 

FLUX 

C c c 


13 38, 

13 10, 

1 32 2. 

1 342, 

1353, 

1352, 

1341, 

1296. 

1282. 

1 206 . 

FLUX 

*00 

• 

1402. 

1 499, 

1496. 

1 4 74, 

1466. 

1429, 

140 2. 

14 10, 

IV 56, 

1 400 , 

FI UX 

a «*• , 

• 

14 36, 

1390. 

1315. 

1 3 43, 

134 1, 

1270, 

1 3D2. 

1339, 

14 19, 

1 447, 

FLUX 

? 

♦ 

1471 , 

1 4 7 3, 

1 46 3* 

1 540 , 

15 53, 

l 5 4 0 * 

1 63 5, 

15 0 7. 

147 2 , 

1 44 2 , 

FLUX 

F 0 7 

* 

1396/ 










FLUX 

60 4 

— 


SOLAR 

FLUX FDR 6°0 1 0 1 TO 

6904 39 





FLUX 

* t* « 


DATA SFLU 1 3/ 









FLUX 

0 C 6 


1399, 

14 2 1, 

144 1, 

1 545. 

162 5. 

l 709, 

1330. 

1831. 

183 3, 

1 693, 

FLUX 

A r 7 


16 85, 

163 1. 

1-57 2. 

1 533. 

154 1. 

l 5 2 3 . 

149 1, 

1 493, 

1316, 

1 28C , 

FLUX 



13 19, 

13 39, 

1 240, 

1 3 C8 , 

134 1. 

14 22, 

1 31 5, 

1 296. 

1292. 

1 <_ 6 1 , 

FLUX 

f <* o 


1264 , 










flux 

0 1 r 


1295, 

1 3 JO , 

139 1. 

1 3 78, 

1 3 09, 

1 30F-, 

1 90 3, 

1 .34 3 , 

1 333 , 

1 296 , 

F LUX 

A T 1 


1209, 

12 4-5, 

1 26 3. 

125', 

1240. 

i , 

1343. 

1 ’ 94 . 

1 50 0, 

1 591 , 

FI UX 

f 1 3 


16 9 2, 

184 7, 

20 14, 

2 C 5 3 . 

20 71. 

1947, 

19 7 1, 

1 00 5. 



FI UX 

r i t 


1 6 86 • 

1 520, 

147 8. 

1 4 74, 

1 3 «-•<?, 

1 804 , 

1 38 ’t , 

1 37 3 . 

IV 1 0, 

1378, 

F LUX 

F ■_ ; 


1 3 60 . 

13 3 5. 

1 340, 

1 3 4 : . 

1 6 1 «, 

1 740, 

200 1 . 

2 1 C ° , 

2 3 0 5, 

2 13 7. 

FLUX 

* < P 
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2209 • 

2225, 

2056. 

19 64* 

1 Bi 1, 

1912, 

1 777, 

1775. 

131 9, 

1 82 9 , 

flux 

f 16 


19 55, 










FLUX 

617 


1987 , 

19 14, 

1690, 

1 773, 

1757, 

1 626, 

154 2, 

1476. 

14 3 8, 

1 489 « 

flux 

61 R 


1 8 0 5 , 

1 555, 

1725, 

1 7 94 . 

13 12, 

1671 . 

1547. 

116 6, 

14 64, 

14 93, 

FLUX 

6 1 9 


15 72, 

1170, 

l 44 1, 

1 4 47 , 

1477, 

1 4 37, 

1350, 

134 6, 

12 82, 

1291/ 

FLUX 

f 20 

- 

-• 

S HL A R 

FLUX FOR 6905 

01 TO 

690831 





FLUX 

6 2 1 


DATA SFLJ1A/ 









flux 

622 


12 50 , 

1270, 

13 19, 

1 3 55, 

154 1, 

1 382, 

1298, 

1 385, 

1 354 . 

1 377 , 

FLUX 

^23 


1501 ♦ 

1603, 

1 54 1, 

1 577. 

1 53 8, 

1 554, 

1641, 

162 4, 

1576, 

1 500 . 

FLUX 

67 4 


1707, 

17 7 4, 

1723, 

17 14, 

1685, 

1 637, 

1535, 

14 32. 

1226, 

1 167, 

FLUX 

62 5 


1119, 










FLUX 

f 26 


1-1.33, 

12 1.2, 

1 334, 

1 5 90 » 

1773, 

1964, 

2222 * 

2384, 

2 35.8, 

2435, 

flux 

62 7 


24 66, 

2367, 

2237, 

2225, 

2C05. 

1 747, 

1572. 

15 3 9, 

1470 . 

14 4 9, 

FLUX 

f- 7 3 


1397 . 

1331, 

1316, 

1 2 89, 

1 20 2, 

l l 72, 

114 2, 

1 1 «3, 

12 3 8, 

1 363, 

FLUX 

F 29 


1*92. 

1621, 

1 675, 

16 52. 

1666, 

l C52 , 

1667, 

1 652. 

1658, 

1 64 4 , 

FLUX 

6 3 0 


1581 , 

15 14, 

1451. 

1 343, 

1 265. 

1 261 . 

1242. 

1199, 

1181 . 

1154, 

FLUX 

6 31 


11 57, 

1151, 

1165, 

1 1 67, 

1 ! 73, 

1 1 92. 

1263, 

1351 , 

1371, 

l 470, 

FLUX 

632 


16 70, 



• 







r LUX 

62 3 


1757, 

1925, 

1 QQ 8* 

1 9 2R, 

1 377, 

17 19, 

16 3 1 , 

1503, 

1455, 

1 393 , 

FLUX 

6 .7 4 


13 59, 

1 2 86, 

123 1, 

1 1 75, 

l 1 55, 

1123, 

1079 , 

1052, 

1 0 3 9, 

1 09 5 , 

FLUX 

62 5 


1167, 

12 10, 

1 332. 

1460, 

1456, 

1564, 

1 678 , 

17 15, 

1 ^76 , 

1 696 , 

» r LU* 

6 3 6 


1638/ 










FLUX 

6 3 7 

- 


S OL A R 

FLUX FOR 69090 1 TO 

691231 





f LUX 

63 R 


DATA SFUJ15/ 









FLUX 

63 9 


. 1563 , 

1552. 

1517. 

15 05. 

1332.’ 

1 357, 

1283, 

1241, 

11 73, 

1166, 

flux 

64 0 


1 1 90 , 

1 207, 

1312, 

1 2 58, 

1 3 53, 

1342, 

1 333. 

1 34 4, 

13 15. 

1 365 . 

FLUX 

6 a \ 


1373 » 

1105, 

1455. 

i d r~7 _ 

1052, 

1 53°. 

1 81 3 . 


J TOl , 

t 0 # 

FLUX 

64 2 


rs 

9 •* 

♦' 4 -“I rr 

t -t ^ 

< 6 A 

' 4 -> 

1 A C* 8 

1 r f 

1 A , *, 

, n <c *» 

(r t i i v 

C f. 


A v M > f 




A "» V / V 

* ** ^ V T 

A W « 

« •> w A t 

<•'**•* 

» — • — < » 




1301 , 

12 80. 

1 243, 

1191. 

1 1 77, 

1154. 

1223, 

12 8 8, 

1453, 

1619, 

r LUX 

64 4 


•1770, 

136 2, 

1931, 

20 45, 

2040, 

2046, 

200 8, 

1896, 

1725, 

1 61 7 , 

FLUX 

6 4 5 


1539, 










• FLUX 

64 6 


1394 . 

13 8 9, 

l 267, 

1 2 56, 

1 .30 0, 

1319, 

1358.' 

1304, 

1277. 

1 228, 

flux 

f 47 


1220 , 

1 223 . 

1 266, 

1341, 

1379, 

14 55, 

160 1, 

1772, 

1 352 , 

1 839 , 

flux 

6 48 


1982, 

2053. 

20 95. 

20 07 . 

1657. 

1 753, 

1 72 3, 

1568, 

14 15, 

1 365 . 

FLUX 

64 O 


1 302, 

13 15, 

1317, 

13 89, 

1333, 

1234, 

1 207, 

112 1. 

116 1. 

114 8, 

flux 

65 0 


1179, 

1223. 

l 296. 

1 327, 

1359, 

1 369, 

i-,4 i , 

144 1, 

1 472 . 

1 54 2 , 

FLUX 

6 5 1 


16 0 3, 

15 3 0. 

1 563, 

1 5 29. 

1536, 

15 10. 

1469, 

1 490, 

1534, 

1 579, 

Fl.UX 

6 5 ^ 


•1518/ 










FLUX 

65 3 

- 

— 

SOLAR 

FLUX FOR 7C01 01 TO 

700430 





FLUX 

6 54 


DATA SFLU16/ 








• 

FLUX 

*58 


1 509* 

1 44 5, 

137 1, 

1 3 15, 

1265. 

1 1 76. 

1130, 

1133, 

1196. 

1 345, 

FLUX 

656 


1601, 

17 16, 

1729, 

17 15, 

1800, 

1743, 

1 80 6, 

1794, 

1 753, 

1 684 . 

FLUX 

6 57 


1770. 

16 05. 

1 534, 

1 4 26, 

1495. 

1 564 , 

1630, 

1 62 0. 

163?. 

1 54 6. 

FLUX 

r 53 


14 34 , 










FLUX 

6 5 9 


1346, 

1331, 

1 237, 

1154, 

1210. 

1319. 

1 394 . 

1526, 

1541, 

1 703 , . 

FLUX 

66 0 


1843, 

20 1 0, 

1976, 

1 9 62, 

20 1 6. 

1 933, 

1 939, 

1 977, 

1 95 5 , 

1 965 ,. 

flux 

66 1 


19 11. 

13 3 0. 

1839. 

1 8 59, 

1 796, 

1783, 

1 769, 

1741, 



TLUX 

662 


1 757 , 

1 730. 

1 67 3. 

1 6 5.3, 

160 3, 

16 78, 

1684, 

1 7? 3, 

1644, 

1 533 , 

FLUX 

*6 3 


15 63, 

164 4. 

1 524, 

1 4 73. 

1440, 

1 390, 

1337, 

13^5, 

1 302. 

1411. 

flux 

66 4 


1 A 97 , 

1509. 

1 649, 

16 58, 

1672, 

1 664, 

1592. 

1 533, 

1531 , 

1 494, 

FLUX 

665 


1493. 










FLUX 

6 6 6 


16 0 8, 

1671, 

1635, 

1 7 C A , 

1794, 

1929, 

1934 . 

2 0*1. 

2185, 

2 247 , 

r LUX 

6 6 7 


2t 64 , 

1 9 d t> « 

1 053, 

17 2 1. 

16.36, 

1 

14 30. 

14 10, 

1 '•57, 

1312, 

FLUX 

6 6 R 


1263, 

12 86, 

130 1. 

1 3C1 , 

1 34P, 

1 3 5 3, 

1 33 0. 

1466. 

15 6 1, 

1 53 3/ 

FLUX 

f 6 9 

- 

— 

S OL AP 

FLUX FOR 700501 T3 

700831 





FLUX 

670 


OAT A SFLU 1 7/ FLUX , 7 , 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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1 595, 

1607, 

1635, 

1 623. 

1679, 

1633, 

1624, 

1567, 

1 54 9. 

1620,- 

FLUX 

672 

1762, 

1 SO 3, 

193 1, 

1969, 

2063, 

2 0 60. 

1970, 

1 94 6, 

1 974 . 

1 939, 

FLUX 

6? 3 

1749 . 

1 703* 

1637. 

16 26. 

1 606, 

1 628, 

1552, 

15 3 3, 

18 8 5. 

1 637 , 

FLUX 

67 4 

1652, 










FLUX 

7 78 

14 56, 

1 4 1 B, 

1 334, 

1 3 17, 

1329, 

1 300, 

1 34 5 , 

1 34 2, 

1382. 

1 459 , 

FLUX 

f 76 

1695, 

17 17. 

2C03, 

2 0 74 , 

20 92, 

1 9R6. 

1906, 

18(8, 

1 751 » 

1 633 , 

FLUX 

67 7 

1606, 

150 1, 

1 437, 

1423, 

1 493, 

1514, 

1 60 0 . 

1 6C5, 

1600. 

1 74 8 , 

tlux 

676 

l 799 , 

1 390 , 

t 94 6. 

1 9 5G , 

19 10. 

l 864, 

1 66. 3 ♦ 

1604, 

14 84 , 

1 4 3 8, 

FLUX 

F 79 

1 377 , 

•1354, 

1 30 7, 

12 63, 

12 19. 

12 14, 

1 2 5*9, 

1310, 

1358, 

2 364 , 

r LUX 

* ec 

1506, 

1638. 

1587. 

1 6 40, 

1 890, 

1 763, 

13 5 9. 

182 1, 

1610, 

1561, 

FLUX 

6 8 1 

14 15, 










FLUX 

6 82 

l 340 , 

1 2 85, 

1279. 

1 2 74, 

1 284, 

12 50. 

1282. 

1318, 

1383, 

1 373 , - 

FLUX 

68 3 

1272, 

1 36 9, 

1497, 

16 7C. 

1691 . 

1 625, 

1516, 

1490, 

1454, 

1 436 . 

FLUX 

6 8 4 

1428, 

14 17, 

146 2, 

1 4 02, 

1 366. 

1 357, 

1972, 

1416, 

1487, 

1 4 90 , 

FLUX 

6 8 5 

15 45/ 









. 

FLUX 

6 86 

— 

SOL AR 

FLUX FOR 700901 TO 

701231 





FLUX 

f 8 7 

DATA SFLU18/ 


* 







FLUX 

6 8 8 

1541 , 

1567, 

i 632, 

1 6 34 , 

162 3, 

1615, 

1 64 4 . 

1569, 

1 572 , 

1 439 , 

flux 

f p. e 

13 44, 

1261. 

1201, 

12 19, 

1 1 80, 

1184, 

1169. 

12C 7, 

1 347, 

1469, ' 

flux 

C Q 

1494, 

1552, 

1616, 

1 5 60. 

1 558, 

1559, 

1450, 

144 5, 

1387, 

1 34 7 , 

FL UX 

F. O 1 

1287, 

1 254, 

1 260, 

1 373, 

1345, 

1 280, 

1 333 , 

142 0, 

1-449, 

1 476 , 

FLUX 

69? 

1428. 

1 354, 

1 3 1 8, 

1 3 49, 

140 2. 

1340. 

1315. 

13*5, 

1390 . 

1 372 , 

FLUX 

6 9 3 

1365, 

1 350 . 

1 4 9 C, 

16 12, 

1656, 

1 871 , 

191 8, 

190 3, 

1 .8 9 0 , 

1 752 , 

FLUX 

6R 4 

1686, 










FLUX 

F C c 

1633 . 

1591. 

1 532, 

1 4 83 , 

1 475, 

1 4 98, 

1806, 

1411, 

14 19, 

1 478, 

FLUX 

F. Of, 

15 56, 

1551 . 

179 1, 

l 6 64, 

2000, 

1 935, 

1341, 

1931 . 

1 855, 

1 73 7 . 

•"LUX 

6°7 

1 6 33 . 

1 542. 


1 8 39, 

1279, 

1293, 

1951, 

1 4 H 9 » 

14 84, 

i -52 6 , 

FLU* 

6 v A 

1 4 t>4 , 

14 8 4, 

1481. 

15 40, 

19 19, 

lh/b, 

lobb, 

16 7 3, 

17 15, 

1 709 , 

flux 

^ u 

17 26 « 

1784, 

1 643, 

1 5 46, 

154 1, 

1 467, 

146 3, 

15 16, 

1 524, 

1556 , 

flux 

7C 0 

1 4 63 , 

13 6 3, 

13 2 1, 

i 244, 

1240. 

1223, 

119 8, 

1 1 7 3 • 

12 3 4 , 

1 290 , 

FLUX 

7 C \ 

l 333/ 










FLUX 

7 C 2 

SOLAR 

FLUX FDR 710101 TO 

710430 





flux 

7 c 3 

DATA S F L'J 19/ 









FLUX 

7 A 

1305, 

1 34 S . 

1 347. 

14 0 2. 

146 1, 

1 469. 

1502. 

1491, 

1528, 

1521. 

FLUX 

7 0 5 

1490 , 

1505, 

1 48 1, 

15 29, 

1537, 

1 564, 

1 553* 

1603, 

1 65 B , 

1 692 , 

■ flux 

70 6 

17 87, 

1306, 

1 829. 

1 7 70 , 

1686, 

1 649, 

1 667, 

1 662, 

1607 . 

1 63 0 . 

FLUX 

707 

17 01, 










FLUX 

7 0 8 

1 6 56 , 

150 5, 

1 547, 

l 4 es. 

144 7, 

14 37. 

1334, 

1232. 

1 1 C 4 , 

1 095 , 

FLUX 

7 C_9 

1C 97 , 

1 1 C 5 , 

1 132, 

1 1 45, 

117 1. 

1 298. 

1326, 

1304, 

1385, 

1 362 , 

FLUX 

71 C 

1361 , 

1 4 3 5, 

1432. 

1 4 78, 

1464. 

14 32, 

1 400 . 

1366, 



FlUX 

7 1 1 

1292, 

1258, 

12 17, 

1 1 60, 

1137, 

1091 . 

1052. 

104 0, 

1045, 

1 070 , 

FLUX 

7 1 2 

1095, 

1153, 

1125. 

1 1 17 , 

110 3, 

1 1 45, 

116 1, 

114 2. 

1091, 

1 C63 , 

flux 

7 1 3 

1 1 26, 

1124, 

1 C 8 2, 

1 0 70, 

1083. 

1078, 

1035, 

1 C 6 2 • 

1034. 

1009. 

FLUX 

71 4 

10 29, 










FLUX 

7 1 5 

1C 05, 

1076, 

1090. 

1 0 77, 

1083. 

•10 73, 

1132, 

110 1* 

10 09, 

1 09B . 

FLUX 

71 6 

1241 , 

1297, 

1 396, 

1 4 1C, 

1 4 0 C, 

1 3 96, 

1399. 

1 372, 

1 *84 , 

1 36 B . 

FLUX 

71 7 

12 89, 

120 5. 

l 175, 

10 91. 

10 6 0. 

10 48, 

101 7. 

975, 

956, 

948/ 

FLUX 

7 1 8 


SOLAR 

l"LUX FOR 710501 TO 

7 10831 





FLUX 

7 1 9 

OAT A S r L U 2 0 / 









FLUX 

7 2 0 

953 . 

996, 

1062. 

1 1 26, 

117 9. 

1256, 

1311, 

I 32 7, 

1303, 

1 35B , 

FLUX 

7 2 1 

1 3 53, 

' • 3 0 2, 

1 250, 

1 2 23, 

1180. 

1161* 

112 3, 

1112. 

10 9*. 

1 06 0 , 

Fl.UX 

7 ,7 n 

1C 20 , 

0 34, 

S9 7, 

8 89, 

9.7 3, 

937 , 

1039, 

I C 7 0 ■ 

1 085, 

1103. 

FLUX 


1 1 16, 










FLUX 

7 24 

1 1 Ci , 

10 83. 

1 C 7 8 » 

10 72. 

1062. 

1C 50. 

10 15, 

1 01 *. 

1009, 

975 , 

Fl.U* 

7 ? 5 

9 60 , 

93 3, 

9 17, 

9 40 , 

9 1 3. 

° C 5 , 

93 1, 

9 54, 

94 6, 

94 2 , 

FLUX 

7 2 6 

052 . 

4 34. 

94 9, 

1 C 5.3, 

1 1 C 1. 

1189, 

1225. 

131 1 , 

14 11, 

1 4B 3 , 

FLUX 

72 7 
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c 


c 


c 


c 



1451 , 

1 3 94, 

1305, 

1 347, 

1 34 6 , 

1 27C, 

1225, 

1167, 

1 077, 

1 055 , 

FLUX 

728 


IC67, 

1096, 

1112, 

1 1 29, 

12 56, 

1 253, 

12 15, 

1210, 

1 ? 6 9 , 

1180,' 

flux 

"*2 9 


1136, 

1157, 

1213. 

1345. 

12 14, 

12 23 , 

1 2 90, 

1 1 67 * 

1143, 

1163, 

flux 

7 7.0 


l 1 32 , 










flux 

731 


1097 , 

1292. 

1064, 

10 64, 

1069, 

10 80, 

10 2 6, 

1086, 

1121, 

10 97, 

FLUX 

7 32 


1047 , 

102 1, 

10 19, 

1 C 07, 

97 3, 

988 . 

1036, 

1 1 05, 

1262 , 

1411. 

FLUX 

72 3 


1503. 

15 12. 

I4 86, 

1 5 76,, 

14 35. 

l 3es, 

1 253 • 

1236, 

112 0. 

1 033 . 

FLUX 

7 74 


963/ 










FLUX 

*7.35 

— 


S 0_ A R 

FLUX FOR 710901 TO 

71 1 231 





FLUX 

*736 


DATA S f'l U 2 1 / 





- 




FLUX 

7 3 7 


903, 

90 1 . 

925, 

926 , 

95 2, 

1016, 

1073, 

1 035, 

9 83, 

918 , 

FLUX 

7 38 


8 93 » 

9 16. 

9 8 9, 

.1 C 81 , 

1 1 35, 

1 1 25, 

1.1 65. 

116 6, 

113 1, 

1103, 

flux 

730 


10 92. 

1103, 

1 0 8 1, 

1 0 6 3, 

1092, 

1 1 19, 

116 6, 

1 1 66. 

n * 8, 

1169, 

flux 

7 AC- 


1146, 

114 2, 

1 134, 

10 91. 

10 6 3 , 

1 C24. 

983, 

9.81 , 

9 95, 

954 , 

FLUX 

74 1 


945 » 

94 9, 

9 1C , 

B99, 

3 9 «, 

652 » 

94 7 , 

99 1 , 

IC98 . 

1156, 

c LUX 

74 2 


1193, 

12 2 2,, 

1 239, 

1 2 57, 

1243, 

1 193, 

1161* 

1105, 

10 51. 

1 075 . 

flux 

74 3 


1062 , 










FLUX 

■7 4 4 


1095, 

1117. 

l 152, 

1128,. 

1 160. 

1 055. 

10 4 6, 

1 007, 

1016, 

1 027 , 

FLUX 

74 s 


1C 46, 

12 26, 

1033, 

1 C 21 , 

10 11, 

1 0 4 7. 

1 084 , 

1041, 

1 0 7 6 , 

1 l 7C « 

FLUX 

*74 A 


1149, 

118 8, 

1 204, 

12 16, 

1217, 

1 2 r 3 . 

17 8 1, 

1256, 

1172, 

114 1, 

FLUX 

7i 7 


1169, 

1094, 

1 C 9 7 , 

10 62 , 

1117. 

1116, . 

1130, 

114 7, 

1212. 

1 224 , 

FLUX 

74 8 


1222, 

1 240, 

1 1 07, 

1 1 85. 

117 3, 

1 1 76, 

1 T1 2 , 

1 34 6, 

1-34 4 , 

1 352 , 

FLUX 

74 0 


1 357. 

1 3 9 2, 

1 329, 

1 2 94 , 

1268, 

1 202, 

1202, 

1132, 

112 7, 

112 4, 

FLUX 

70C 


1 C 63/ 










FLUX 

7 5 1 

— 

SOLAR 

FLUX FOR 72C101 T3 

7 2 C 4 30 





FLUX 

7 52 


DAT A SFLU 2 2/ 









FLUX 

V q 3 

• 

10*7, 

1731, 

OQ 

Q 79 , 

991? 

1031, 

Q95 , 

OOft. 

3A T , 

9? 3 , 

F'l UY 

7 f. A 

t 

“PCO t 

■ ’ * rvo ^ _ 

l 'Ono . 

* /v c^- j 

1‘1 5 * 

■ 1 1 - . 


t ( /in. 

t ICO, 

* r> -> r> . 

C) Iiv 

*7 C C 

• 

12 79* 

12 32, 

1 363, 

1 372, 

1318, 

1 2 , 

1189, 

1 1 95, 

116 1, 

1129, 

flux 

7 5 6 

• 

1119, 










flux 

757 

• 

1067, 

1065 , 

1 048, 

1 0 26, 

10 2 6, 

986, 

102 7, 

1043. 

1 063 , 

1136, 

flux 

•*58 

• 

1184, 

1 2 39, 

1262, 

1 3 67, 

1 4 53, 

16 32, 

16 8 2, 

1544, 

1 906 , 

2 025 , 

flux 

7 59 

c 

1896. 

1 304. 

•1 756, 

1 6 42, 

1619, 

1 453, 

1 * 0 3 » 

I 7 3 2, 

1305, 


flux 

7*r- 

* 

1255 » 

12 97 , 

1311, 

1 371, 

140 3, 

1 4?7, 

14J3. 

14 16, 

1374 . 

1 325. 

FLUX 

78 1 

• 

1349 » 

1 2 85. 

1 293. 

1 2 97 , 

135 2. 

1 320. 

1 33 3, 

13 19, 

1310, 

1 352 , 

r LUX 

762 

• 

1358 , 

13 12. 

1 400. 

1 2 66, 

1 1 64, 

11C5, 

10 4 1, 

1011, 

965, 

903 , 

FLUX 

7 C 3 

• 

9 57, 










FLUX 

7 f- i 

• 

960, 

97 3, 

98 1, 

1C 10, 

1 0 53, 

1181, 

17 13, 

1238, 

1 305, 

1303, 

FLUX 

76 6 

• 

1298 . 

12 83. 

1254, 

1 2 SO, 

126C. 

1 243. 

12 0 7, 

1157, 

1154, 

1113, 

FLUX 

7 88 

• 

1069. 

10 9 4 , 

1 084, 

1102, 

1116, 

1 059, 

10 9 0, 

1 0 3 2 , 

9 56, 

970/ 

FLUX 

7*7 

— — 

— 

sn_ A R 

Flux FOR 720501 TO 

7 2CP. 31 





flux 

7 f 8 


DATA SFLU23/ 









FLUX 

7*0 

* 

950 ♦ 

94 9, 

977, 

1027, 

1087, 

1 176, 

1209, 

1 2 8 8, 

1330. 

1 393, 

FLUX 

770 

• 

1403, 

1 > 3 6 , 

1 6 1 C, 

16 2 8, 

16 .6, 

16 18, 

1693, 

1655, 

1567, 

1 523 , 

r LUX 

77 1 


14 82 , 

14 33, 

1 352, 

1 3 5 5, 

1273, 

116 3, 

1143. 

1108, 

1162, 

1168. 

FLUX 

772 

* 

1225, 










FLUX 

7 73 

• 

1282, 

1 3 0 0, 

1 37 5, 

14 95, 

1 64 B, 

1691, 

1 52 7, 

1502, 

1*91 . 

1 395, 

flux 

774 

• 

1 4 32 ♦ 

1 4 C 7 , 

1 389, 

13 65, 

1 7 Q * , 

1*77, 

l V 7 i , 

1490, 

1 4 3 2 , 

1425, 

FLUX 

7 75 

• 

1390 , 

13 5 1. 

1 30 7, 

1 28-. 

12 65. 

1 70'*, 

1 M 9 * 

127 8 , 

1 3 2 4 , 

1 74 5 , 

FLUX 

77 * 

4 

13 30 , 

17 7 0, 

1 299. 

1 * 67, 

1 5C2, 

1*61, 

1432. 

1 367, 

1771, 

1217, 

FLUX 

7 7 7 

* 

1236. 

1 1 93 , 

1 199. 

1 l 9-. 

1 1 76, 

1151. 

114 6, 

1 0 8 9 , 

1059, 

l 1 OQ , 

FLUX 

7 7 A 

• 

1117, 

1116, 

1 C 9 o . 

1 0 95, 

1 1 2 « , 

1 2 0/ , 

1272, 

1 3 3 3. 

1791, 

14 12 , 

flux 

7 70 

• 

15 07, 










flux 

7 q r» 

• 

31 *0/ 










Ft UX 

76 t 

■** "■ 

SOLAR 

FLUX FOR 720901 TO 

771231 





FLU X 

7 8 2 


DAT A S 

FLU 24/ 









FLUX 

7 0 3 
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• 122*0/ 






FLUX 

a 

SOLAR FLUX 

FOR 730101 

TD 

730430 



flux 

78^ 

DATA SFLJ25/ 






FLUX 

72 A 

• 120*0/ 






flux 

787 

SOLAR FLUX 

FOR 73050 1 

TO 

730831 



FLUX 

7 H 

DATA SFLU25/ 






FLUX' 

789 

• 123*0/ 






FLUX 

700 

SOLAR FLUX 

FOR 730901 

TO 

731231 



FLUX 

79 1 

OATA SFLU27/ 






flux 

792 

• 122*0/ 






FLUX 

*7 0^ 

CALL AO-LUX { NARCS* MFL UX % N FLU XS 

« SFLUX,nEGYMDtENDYVD) 



FLUX 

7Q4 

DATE LAST SOLAR FLUX VALUE 

720731 



FLUX 

7oq 

RETURN 






FLUX 

-?C6 

END 






FLUX 

797 
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FMODEL 

DESCRIPTION . 

FMODEL is a BLOCK DATA routines which contains the 
geopotential model information. 

The storage of the spherical harmonic coefficients, 

and S^ m , is of particular note. Because for physical 

reasons m < n, the set of C and the set of S each 

nm nin 

require only half a column more than half the matrix. To 
conserve storage, both sets of coefficients are stored in 
the same matrix. This storage algorithm is illustrated in 
Figure 1 for the case of 30 x 30 model used in GEODYN. 
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The matrix CS (30,33) containing the coefficients C nn and S^, 



n 31 -N 

■n 33 -M 


o 

n p 
rt era 
o a 
cr 

0 K) 

H 

O 

I- Hi 
CO 

"vj -J 
to 


S coefficients 
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/ 

NAME 

Fkcjd&l 


PURPOSE 

ELCCK DATA STORAGE 
SPHERICAL HAUkCNIC 

OF THE COEFFICIENTS OF THE 

expansion of the geo potent i al 

COMMON BLOCKS 

FMQDEL 



REFERENCES «GECCYN SYSTEMS DESCRIPTION* 

VOLUME: 1 - GEOCYN DOCUMENTATION 


DAT* 

CATa 


FMOO 
PHOD 
F MOD 
F M 0 1 ' 
FMOD 
FMOO 
FMOO 
FMOO 
FMOD 
FMOO 
FMOO 


ELCCK DATA * FMQE> 

IMPLICIT Nl AL * £( A-H, O-Z ) _ - FMOD 

CCMKCN/r MJDut / INDE X 1 • INDEX 2 , 1 NDE X 3 » IND&X4»CS01( 30 J , C 50 2 { 30) » C S 03 ( 2FMOD 

• 0 ) * CS 04 l 3 0 } * 

• CSC; t 30) .CSC 6 ( 30 ) . CS07( 30 ) , CSCE( 30 > ,CS09 ( 30 ) .CS1 0 ( 30) t CS 1 1 ( 30 > * 

• CS l 2( 30 ), CS 13 t 20 1 , CS 14( 30),CS1£(30) .CS1M 30) ,CS 1 7 ( JO) ,C5 l 3 ( 30 ) • 

• C51 *( 30) , C b 2 0 ( SO) » C 5 2 1 ( 3 0) . C S 2 2 ( 30) , C S 2 3 ( 30) » C 5 2 4 ( 3 O ) *C525(30) • 

• CS2fc( 30) , CS27< 30 > , CS2ti( 30) ,CS29( 30) ,C530( 30) ,C S 3 1 < 30) »CS 32(30) * 

• CS2 3 0 ) , MlU;L 1 1? ) 

A if ^ L » ti MuDtL 

DATA MODEL/6HSAO 1569, 8H STANDAR»OHC EARTH » 3H • 

• ' 3H , 6H * 8H »8H / 

INDEX1 f 1 NCFX2 i 1NDSX3. IN0EX4/23 iA.23,A/ 

CS0 1/ 

v «„ *\ 08 26 3 00- 02. 0.2 5 3 -3 00 C- 0 5, 0. 150 3 0 00-05, 0* 2 30 0 000-06 . FMOD 

5C2000D-0O , C ,35200000 - C6 , 0. I 1 9000 006 . 0. t 000000-05 , 9. 3 3400 00-09 « F‘MUC 
-•2C200OO-0c«C*4?00OQOD-07«0* t 23COOC— 06»0« 73000QD— 97*0*1740000— 06.F MOO 
-• 1 37 OOOD-Oo. -*6699995D- 07, 0. 2 31 OOOC-06, 0 * 2 1 5 0 00 L>-0 6 , 0 . 5 00 0 0 00-0 8 * F MOO 
-* 1 4*» 0003-06 , C .0 *0*0 ,0*0 *0*0 .FMOD 

0*0 , C'*0 *0*0 *0*0 *0.0 /FMOD 

DATA C50 2 / FMGD 

0,0 «C*0 * 0* 212763C-0S , - • 502693D-06 , -.460 35 3D-07 ,fmQ0 

- .77o«s01 3-?07 . C *176701 OD - 06* 0. 2 14773C-07 , 0. 5931 990-07 , 0 .69521 50-07 .FMOO 
0. 2£V 153U-U6,- *260 16900-07, -.3C5263C-07 1 2 1 3 47 3-0? , - . i 0 20 2 80 — 03 , FMOO 
-* l 17 lo3J-07. C .0 .0.0 »0, 0 .0.0 » FM °° 

0*0 *C#0 *0*0 *0*0 *0*0 *fmgd 

* C • 0 ,0.0 *0*0 *0.0 . /FMOD 

CSO 3 / FMOD 


O 
0*0 


DATA LUO 

q, 0 * c • 1 5 5752 OD- 05, 0*3 CA 690 C— 06,0*73543 9D -07 ,0*991820 D— 0 7 « FMOO 

0*6c20‘UD~0o,C* 281 93400- 07 . 0 • 3 955 6 7 C-0 8 , 0 « 4 6 2 2 9 30-0 9 . - • 1 3566 OD-O 3 , FMOD 
O'. 2S3 luOD-Oc, C .1 2 537003-03 , - . 192671 C-08, 0* 1 170990-08, -• 1 4 7706D-0 Q * FM 
0. C 39 345D-09 . C .0 . C. 0 *0*0 -.0.0 

0.0 * C • 0 , 0*0 * 0*0 * 0.0 

0,0 ,C.0 *0*0 *0.0 *0.0 

CATA CS04/ 

0 , 0 , c *0 . 0.9S6990C-07. 0.5912970-07*-. 142322D-C7.FM0C 

0.57751 S3 -0 S, C. 2d 5732 OD- 08 , 5 60 7 60 0- 09, -*72^0300-09, -• 1 36 1 1 70 -0 9, FMOD 
2 jl 7/oP-O 5 , C .2 1 7 4 3 3 OD- 0 5* C • 7 29 3 6? C- 1 0 , 0 • A 1 

. 0.0 
• 0.0 
• 0.0 


D 

, FMOD 
. FMOO 
/FMOD 
FMOD 


— • £ 7047 vD — 1 0, C .0 

, 0* 0 

0.0 * C • 0 

.0.0 

0.0 *0.0 

, c.o 

CATA C60S / 



14 

15 
1 6 
17 

1 5 

19 

20 

2 1 
22 

23 

24 

25 

26 
27 
2 6 

29 

30 

31 

32 

33 
3 A 

35 

3 6 
37 

36 
39 
AO 

4 1 

42 

43 

44 

45 

46 

47 
6 0 
A O 

5 0 


0.1 73795D- 

1 0 i FMOD 

5 1 

0.0. 

.FMOD 

52 

0.0 

.FMOD 

53 

o 

* 

o 

/FMCG 

54 


FMOO 

55 
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© O a 0 * C 

• 152714 3-1 1 .- 

• ■”• 1*4 l J 1 0 — 1 O i * 

• 1 22 1290-1 1 . C 

• 0 * 0 i 0 

*0.0 ' * c 

CAT A CSOo/ 

• 0 o 0 • c 

• — « 1 7 0 c 3 o 5 — 0 • » ♦ — 
•0*1253 9 73 -11 ♦ C 

• ~* 3 174020-1 2* 0 

• 0 a 0 . a C 

c 0 o 0 i C 

DATA CS 07 / 

« 0 * 0 i c 

e 0 « 2Cb 6370- 1 C 

• 0. 1 h 7 79 o3 — 1 2 , - 
•—•2657570— 1 3| C 


0 . 0 
0.0 
DATA 
0 . 0 
0 . 0 


CSOo/ 


. l. 

♦ c 


. c 

. 0 

« 0 « 1 C7 c7 JO — 1 3 » C 
*0. 2 22 J 6 1 D — 1 A , C 
*0«0 » 0 

. 0.0 * 0 

DATA C50‘>/ 

• 0 * 0 » 0 

# 0 o 0 ♦ 0 

*0*3C74513-14.- 
• 1 1 1 1 C 


• 0.0 
• 0*0 
DATA 

• 0. 0 

• 0 « 0 


CS1 0/ 


•0*7 22 5520-1 5. - 
• 0 . 1 31 79 JO — 1 7 • C 


0.0 
0 . 0 
data 
0.0 
, 0.0 


CS1 1/ 


• -•111 3393-1 5. - 

• — * 2 24 O 1 OD “1 b» C 

• 0.0 i C 

• 0 . 0 . 0 

DATA CS 12/ 

• 0.0 a 0 

•0.0 aC 

• 0* 2 35 41 00- Iba- 

• 0 • st** 2 1 70- 2 0 . C 

• 0.0 i c 

.0.0 • c 

DATA CS 1 3/ 


4 1 8 9 00 00- 
1 3o4V 1 03- 
O 
0 
0 


30 7 99 7 00- 
622 l -:203- 
0 
0 
O 


179*0290- 
5659 74 OD- 
0 
0 
0 


205249 90- 
32 2 1 * 5 03- 
0 
0 
0 

0 

0 

1 2848800- 
0 
0 
0 

0 

0 

761 CO 500 * 
0 
0 
0 

0 

0 

55449300- 

0 

0 

0 

0 

0 

19 7-OS 500' 
0 
0 
o 


♦ 0. 0 . - 
09* 20071 3 009 ♦ 0 

1 U .-.4 65 564 O 1 1 , 0 

•C.O .0 

a C«0 , 0 

• 0*0 . 0 

*0.0 .0 

12,-. 102 6 8 6 C- 1 0 a - 
12*0.1 7B209C-1 1 a - 
a Co 0 *0 

*0.0 *0 

.0*0 f 0 

*0.0 * 0 

■ 1 0 . 1 50544 Ol 1 . 0 

13*-. I 2* 7732- 12,0 
. C * 0 .6 

‘. 0.0 * 0 

* C . 0 .0 

• 0.0 t 0 

11,0.175356012.- 
1 4 * 6C 01 04 C- 1‘4 . 0 

*0.0 *0 

• C. 0 i 0 

. C e 0 f 0 

*0*0 .0 

* — • 9 8620701 3* 0 
- 15 *-.4 7029001 5,- 

* 0 * O * 0 

* C. 0 .0 

.0.0 « 0 

.0.0 *0 

* 0.0 « - 

-16.-. 2 75137 C— 16* 0 

(C.O ■ 0 

• C . 0 » 0 

• 0.0 » 0 


1683)00 
4665*20 
1 4 1 A54D' 
O 
0 
0 


623361 D- 
34 i 4 4 4 0- 
0 
o 
o 


3193510- 
1 376 520- 
0 - 
0 
0 


96 1 5 190- 
8 3o6 6 53- 
0 
0 
0 


7635040- 
1 64 5243- 
0 
0 
0 


63551 DO- 
2570420- 
0 
0 
0 

0 

0 


-0 8* - * 2076390 
-10 ,-.2 8 379 10 
■ 11 , 0.1984910 
• 0.0 
. 0.0 
. 0.0 

.0.3100690 
•12, -.4966 5 OD 
-1 2, 0. 30468-00- 
* 0.0 
. 0*0 
t 3 • 0 

. 0.0 

-12,- ,2254840- 
•13, 0.4 64651 D- 
" . 0*0 

. 0*0 

. 0.0 

. 0.0 

-13.0.46261 60- 
-1 5. 0.55 91 270- 
. . 0.0 
. 0 • 0 
.0.0 

. 0*0 

- 13 . 0 . 547126 D- 

-1 5. -.3395210- 

.0.0 
. 0.0 
. 0 . 0 

. 0.0 

- 14 . 1 273990- 
-16 , 0.5918250- 

i 0.0 

. 0.0 

• 0*0 


. 0.0 

. 0.5142540- 


-0 3. 8*100 

-10. 8'. -no 

-11, FMOD 

• FMOO 
.FMOO 
/FMOD 
. FMQO 

-09. FOOD 

-l 1 ,FMLir. 

- 12 , FMOD 

. F MQC 

• F ‘•‘.CO 
/FMUD 

FMCO 
. F'^OC 
-12. FMOD 
-13, FMOD 
. FMOD 
.FMOD 
/FOOD 
FMOD 
. FMOD 
-13* fmjo 

-14 .FMOD 
. FMOD 
. FMOD 
/F MOO 
FMOD 
,FMOD 

- 1 4 .FMOD 

- 1 5 .FMOD 

. FMOC 
.FMOD 
/FMQO 
FMOD 
. F MOO 
-15, FMOC 
1 7 , FMQO 
. FMOD 

• fmoo 

/FMOD 

FMQO 
. FMOO 


5 C. 

5 7 . 

5 8 
5 ° 
60 ' 
61 

4 2 

6 3 
6 *■ 

6 5 
6 6 

07 
0 8 
69 
7 0 

71 

72 
^3 
7 4 

75 

76 

77 

7 w 

79 
■30 
01 
82 
-3 3 
6 4 
3 5 
36 
87 
38 
09 
90 
9 1 

92 

93 

9 4 

95 
9 C 
97 
95 
99 


, 0 . 965 3 66 D- 

- 1 7 . 0 . 254 S 07 D- 

17 ♦-• 4522 1 10 - 

1 0 .FMOC 

100 

. 0 , 0 

• 0 . 0 

o 

ft 

o 

ft- 

.FMOO 

101 

• 0 . 0 

. 0 . 0 

* 0.0 

. FMQC 

102 

* 0 . 0 

• 0 * 0 

* 0*0 

/FMOC 

FMOO 

103 

10 A 

• 0 * 0 

. 0.0 

ft 

O 

• 

O 

• FMOO . 

105 

. 0.0 

. 0.0 

• 0.0 

.FMOO 

106 

* — .4 452460 

- 10 , 0 . 1318340 - 

1 8 . - . 6259060 - 

1 5 . FMOC 

107 

• 0.0 

• 0.0 

. 0.0 

. FMOO 

105 

• 0.0 

ft 

O 

• 

c 

. 0*0 

♦ FMOO 

109 

. C.O 

* 

o 

• 

o 

. 0.0 

/FMOD 

1 1 0 
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« O* 0 i 0*0 


, C * 0 

,0.0 *0.0 

• FMOC 

1 1 2 

.0.0 * 0 o 0 


♦ C. 0 

,0.0 ,0.0 

,FMOO 

t 1 3 

.0*0 , -.17421700- 1 0 

, - . 2 £>:- 33 2 C-2 0 

, 0. 6693740-20 , 0. 194 5 l 3 0-2 0 

• FMOD 

1 1* 

• b* lO46t>5D-2 0, C .2 56 I 27 00- 2 0 

. C. 1 6 52 32 C- 2 l 

, o. 4640570-2 1 .0,0 

, fmod 

l l 5 

« 0 « 0 , 0,0 


, C . 0 

,0*0 *0.0 

.FMOD 

116 

*0*0 * 0 • 0 


, C * 0 

,0.0 i 0,0 

/F MOO 

l 1 7 

DATA C5 14/ 




FMOD 

11C 

*0*0 • 0 « 0 


4 C . 0 

•0.0 i 0,0 

♦ FMOC 

\ 1 5 

• 0*0 ". « C o 0 


♦ 0*0 

,0.0 ,0.0 

, FMOD 

120 

*0*0 * C • 0 


,-.2571930-19 

♦ 0* 3 7 62 57 0-20 ,-.753 1 3 50-21 

, FMQO 

121 

•0.2J7411D-21 . C.6 24 1005D-22 

, 0*46741 2 C- 2 3 

, 0. 1533330-22 .0* 1 27350D-22 

.FMOD 

122 

g 0 • A 00 20 50 — 2 'm > C • 0 


, 0. 0 

,0.0 , 0.0 

, FMOD 

123 

#0*0 » C o 0 


, 0.* 0 

•0.0 *0.0 

/fmod 

124 

DATA C S 1 5 / 




FMOD 

125 

• 0*0 * 0 • 0 


• OeO 

*0*0 *0*0 

, FMOD 

126 

• 0 c 0 » C « 0 


» 0.0 

*0*0 *0.0 

,FMOD 

127 

• 0*0 » C • 0 


,0,0 

,-.7133420-21, 0.3223770-22 

, FMOD 

123 

* — . 5 iyl290-23»— * 36 2 

91 500- 23 

,-.2259 9 30-23 

15 06 020-24,0. 15739 30-24 

, FMOD 

129 

• 0*3372160 -'24. -.23 1 

57 900-2-3., 0.0 

,0.0 ,0*0 

, fmod 

130 

• 0*0 *c*o 


. 0,0 

,0*0 . *0.0 

/FMOD 

131 

DATA CS 1 6 / 




FMOD 

l 32 

• 0*0 • C .0 


.0*0 

.0*0 ,0.0 

, FMOD 

1 33 

• 0 a 0 *0.0 


* C * 0 

,0.0 .*0.0 

.FMOD 

1 34 

• 0* 0 *0*0 


.0*0 

,0.0 . ,0.701751D-24,FMOD 

1 35 

* — •21791 10-23, C *0 


* 0 * 0 

,0.0 ,0.0 

• fmod 

1 36 

• 0*0 i C eO 


• 0. 0 

,0,0 *0*0 

. FMOD 

l 37 

• 0*0 * C *0 


, 0* 0 

*0*0 .0.0 

/fmod 

l 3C 

DATA CGI 7/ 


. 


FMOD 

1 39 

* 0 » C *C*0 


* 0 o 0 

t 0,0 0 • 0 

. FMOD 

140 

• 0# 0 *0*0 


• OeO 

.0.0 *0*0 

, F 0 D 

14 1 

• 0 o 0 » C • 0 


• 0.0 

,0.0 , o. 1 36 64 6u-2 ■+ 

, r Muii 

i *> / 

• — c A c 7 5 6 A- D - 2 A , C *0 


• c. 0 

,0,0 ,0.0 

, FMOD 

143 

• 0* 0 - ,0*0 


• 0 « 0 

*0,0 ,0.0 

» FMOD 

144 

• 0*0 » 0,0 


• 0.0 

,0.0 , 0 • 0 

/FMOC 

145 

CATA C 5 1 li / 




FMOD 

1 4 6 

• 0*0 , C * 0 


, C « 0 

*0.0 ,0.0 

.FMOD 

147 

•0*0 ,0.0 


• 0. 0 

,0*0 *0.0 

.FMOD 

1 4 P 

• 0*0 , C • 0 


, 0. 0 

,0*0 , 0.703607D-25 ,FMQD 

14 9' 

• -•71 6 c26D- 23, C • 0 


* 0. 0 

,0.0 *0.0 

.FMOD 

150 

• 0*0 , C • 0 


• C. 0 

,0.0 ,0.0 

t FMOD 

15! 

*0*0 ,0*0 


, 0 o 0 

, 0 • 0 ,0.0 

/FMOD 

152 

CATA CS 1 9 / 




FMOD 

153 

•0*0 ,0*0 


.0.0 

« 0. 0 ,0*0 

, FMOD 

154 

• 0* 0 ,0*0 


• 0. 0 

, 0. 0258010-25, 0* 1 99 436D - 2 6 , FMDD 

1 5 5 

• -• 22cicA9D-2 4 , - .79 1 

956 00 — 2 A 

, -.3974340-23,0. 6166710-23.— .1596120-22, FMOD 

156 

7 C9307D-2 2. - .17709600-21 

, 0.0 

*0.0 ,0.0 

»FMOD 

157 

•0*0 , c.o 


• C.O 

,0.0 0.0 

.FMOD 

15 5 

• 0*0 , c.o 


i 0. 0 

,0.0 ,0*0 

/FMOD 

159 

DATA C S20 / 




- FMOD 

160 

• 0.0 * C • 0 


• 0. 0 

,0.0 ,0.0 

, FMOD 

16 1 

•0.0 ,0.0 


« 0. 0 

,0.0 1 76520D-23tFMOD 

162 

*0. 7 2o91 oD-2 3. - .29 1 6 4 l 00- 22,-. 309401 C- 22,0.1000150-2 3, 0.133 41 fiD-2 

.FMOD 

163 

• 0*0117 00 0- 22. C. 3 31730 00 - 2 0,0,27 3 13* C- 19, 0.0 ,0.0 

, FMOD 

164 

• 0.0 ,0.0 


, 0.0 

,0.0 ,0.0 

.FMOD 

165 

•0*0 ,0.0 


, c.o 

,0.0 ,0.0 

/FMOD 

tec 

DATA C521 / 




FMOD 

167 
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ORIGINAL PAGE IS POOR 


8.0-280 



FMODEL 
Page 6 o£ 7 
October 1972 


• o o o 

• O » 0 

• 0*0 

•0« 1270283-20 

.0*0 
• 0*0 

DATA C522/ 

« 0 • 0 
• 0 « 0 
• 0*0 

* 0* 1 606o?3-i o 
o 0 • 0 

• 0.0 

DATA C323/ 

• 0*0 
c 0 • 0 

• Oft 0 

• Oft I IV t c 10 - 1 v 
•-* IC7560D-1 5 

• 0*0 ' 

C AT A CS2 4/ 

• 0. 0 

© 0 • 0 

• 0 c 0 

• 0.7 I4353D-1 7 

• 0 • 1 lo 1300-1 5 

• 0 e 0 

DATA C S 2 5 / 

• 0 * 0 * 

• Oft 0 

« 0 ft 0 

• — •’ 1 24 1520-1 5 
•-*£125770-14 

• 0* 0 

DATA CS2 5/ 

• 0.0 

• Oft 0 

• 0.0 

• Oft 201 3260-1 4 

• 0. 2693753-1 3 

• 0 o 0 

DATA C*27/ 

• 0*0 

• Oft 0 
« 0. 0 

• - * 7 1,7 o24 D — 1 3 

• 1 39 03 1 0- 1 1 

• OftO 

DATA CS2d/ 

ftO.O 

• 0 • 0 

• 0* 0 

• Oft 1 753000-1 3 

• - » C* £ 6 4o8D- 1 1 
•-• 1 4701 50— Oc 

DATA CS2 9 / 


0.0 
0 *0 

- ,57 1 2OA0D- 

- .30730300- 

C .0 

C .0 

0.0 
0.0 
0 oO 

- ,33665200 
0 ■ 0 
0.0 

0*0 
0*0 
0 *0 

- *2 0446990 
C * 0 

0.0 

0.0 

0*0 

0.0 

C .479 1 48 33- 
C *7 1 1 26 630- 
0.0 

0,0 
C • 0 
0 .0 

- .37062600- 
0 , 1 37 C 9000* 
0.0 

C«0 

CftO 

0.0 

0.63636283- 
- .242 04700- 

C ftO 

0.0 

0*0 

0.0 

- ,5757 l 190- 
0 .290 06 5 90- 

c.o 

0.0 

0*0 

0.0 

-.30706003- 
C .34 3 16 2 00- 
C.O 


22 

19 


- 1 3 


- 17 


1 6 
l 4 


1 5 
l 3 


1 5 
1 2 


1 3 
1 1 


1 2 
I 2 


0,0 tOftO * 0.0 

0.0 .0,0 .0*0 

0,1 20077C-2 ! , 0* 1051360-2 1 ,-©2456953- 
0,1 E 33570-18, -•5166110-18*0.0 
C.O .0.0 .0,0 

C*0 • Oft 0 • 0. 0 

0 • 0 • 0 . 0 *0.0 

OftO ,0.0. * 0.0 

0.0 ,0.0 • ,-.5035170- 

0. 7723 59 01 6.-. 21 2001D-17»-.6231 toD- 

0« 0 ,0.0 . 0.0 

0.0 *0*0 ft 0*0 

C.O ftO.O .0.0 

0. 0 *0.0 • 0 o 0 

0,0 .0.0 ,-*5695270- 

1 17861 C-l 7,0, 14431 1 D-l 7 , - . 1 79 3360 ■ 

0.0 ,0*0 ,0*0 

C« 0 ,0*0 ,0.0 

CftO »0ft0 .0.0 

C.O ftO.O ,.o»o 

OoO . ,0, 0 , — ,1556333- 

C. 1 1561 5C-1 5. 0. 10 36 5 30-1 5,- .5 1 1 56 2D- 

C.O ftO.O .0.0 

0.0 * 0 • 0 * 0 ft 0 

OoO 0 ft 0 ■- .* 0 0 

0*0 , 0,0 eOftO 

0.0 ftO.O •-•511UOUU- 

-*227341 C- 1 5,0, 749597D-15»-,8094260 
O. eel G29C-1 3, O, 0 ftO.O 

0*0 ft Oft 0 ftOcO 

CftO *0*0 * 0 • 0 

CftO ,0*0 • 0 • 0 

0.0 ,0.0 » Oe 2465660 

-.411635 D— 10, 0.22161 00-13 ,-.57562.50 
0*4 546 7 2 C- 1 2,-. 125606D-1 i ,0.0 

0« 0 * 0« 0 ftO.O 

0.0 • 0 « 0 i 0*0 

0*0 • 0 « 0 (0*0 

0.0 ftOftO •— .1976000 

C. 894 2 01 D-l 3 • 1 5 8 3 30 D- 1 4 , 0 . 2 7 1 84 2 D 
0.7 24 1 90 C- 1 1 , 0. 70 8604 0-1 l *-.l 74 16 60 
0*0 .0*0 .OftO 

0.0 ftO.O .0*0 

0.0 «0«0 .OftO 

0.0 .0.0 .0.2314400 

-.6 £07 4 6 D-l 2 ♦ 0. 1 1 34590-1 1 . 0.525V 730 
0.1 I 1560 0-10, 0.3464750-10. -.42100 50 

0«0 ftO.O *0.0 


« FMOD 

ft^MOO 
2 0 * F MOD 

* FML3D 
« FVOO 
/FMOD 

FMCO 
» F MOO 
, F MOD 

19, F MOD 
17 . FMOD 

• FMOD 
/FMOD 

FMOD 
.FMCO 
, FMOD 

20 , FMOD 
16 , FMOD 

, FMOD 
/FV.CD 
FMOD 

* FMOD 
t FMOD 

1 6 » FMOO 
•16 . F MOD 
, FMOO 
/FMOD 
FMOD 
, FMOD 

• F h'.ljC 

-l / « i- Mt,’U 

-15, FMOD 
.FMOO 
/FMOD 
FMOD 

* FMOD 

• FMOD 
*15. FMOD 

• 1 3 , FMCJD 

• FMOD 
/FMOD 

FMOO 
« FMOD 

♦ FMOD 

• 1 3, FMOD 
-13, FMOD 
-1 0 , FMOD 

/FMOD 
FMOD 
. FMOD 
, FMOD 
-1 2 , FMOD 
-1 i .FMOD 
-09 » F MOO 
/FMOD 
FMOD 


I 6 fi 
16V 

l^O 

171 

172 

173 

174 

176 

177 
17 V 
179 
1 ?C 
in 
162 

183 

184 

1 8 5 

186 
1 87 
12? 
i-3 c ; 
19 0 
191 

19 2 
193 
ION- 
ICS 
196 
i v 7 

1 vo 

199 

200 

20 1 
202 
202 

20 4 

205 

206 

207 

208 

209 

210 

21 1 
21 2 

213 

214 

2 15 
216 

217 

218 

2 1 9 
220 

22 1 
222 
223 
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• o.o 

* 0,0 

* 0*0 

• p. 9 30b 7 70“ 1 1 

• — * 4 ? 3 ^ 7 l * Tk '— 1 0 

• O. 6»033 iO - 0 9 
C ATA CS30/ 

• 0 . 0 

« 0 c 0 
• 0*0 '■ 

•-. 1 232330-1 0 

* — • -3 2424oJ> — 0-9 
#*•*• ?coid 3^-*0 3 

DATA CS31 / 

* 0 » 0 
• 0 * 0 
• 0.0 

(“♦£239300-0 9 

• — * 0 c J 4 3 " Oo 

• — * 5 c7 c 2 » 3 — u 7 
C A T A C3J2/ 

• 0*0 
• 0.0 
« 0 « 0 

• 0* 2C-t02bD — 07 

• - .6202330-07 


C.O *0*0 .0*0 .0*0 .FilOD 22 A 

C.O .0*0 ,0.0 ,0*0 » FMQO 22 3 

0.0 ,c.0 ,0.0 ,0*A?01€ 10-11 .FMOD 2?^ 

- ,6 00 4 06 90- 1 1 , 0. 1 33*59 C-l 0 • 69 1 0 34 D- 1 1 , 0 *2 2 3 7 0 70- 10.FM00 ?2 7 

C .o r. 60 V A 99- 1 O , 0« 9 ?234 A c- 1 0 • 24 l 6 70 0-00 • 1 526S6D-03 , K MOD 220 

C « 7 1 o 8 5 6 *3 O- 0 3 « C . 0 ,0.0 ,0.0 /f won 229 

FMOD 2-30 

C.o ,0.0 ,0,0 ,0.0 ,FMQD 231 

C * 0 ,0,0 ,0*0 .0,0 ’ tFM3D 23 2 

0.0 , C. 0 • .0*0 , 0.559396D- 1 0, F mO 233 

C .30 AC 8702- 1 1 » - * 0 £ 5 3 SA O 1 0 , 0 • 2 0 406 60 -O 9 » - ■ o CA 6b 0D- 09 , F MOD 2 3^ 

- .89 309 2 90- 09 , 0, 1 r 2660 t-09 , - • 3 3 02 i CO- 0 9 , 0 . 7 2 3 271 D-09 .FMCtl 23b 

- .9 2A 329 39- 00 . 0* 1 59460 C-00, 0. 0 . 0.0 /FmCO 238 

FMOli 2 37 

C.O ,0.0 .0*0 .0.0 , FMOO 2 36 

c,0 ,0.0 .0*0 ,0.0 .FKOO 2 39 

0.0 ' ,0.0 ,0.0 _ , 0.9 1940 1 D-09 ,FMOD 2A0 

-.165031 03- 03. C.7C5 093 C- 09,0. 34 06 SAD- 06 . - * '* 762990-08 . fmqu 2 A 1 

- *55 6 1 A 2 79- C? ( 0.691 077C-05J. 0. 1 5 56 2 60- 07 , - . A 37 5ts90 -07 , F d 2 A 2 


C » 1 o 7 G 00 — 

00'.-. 2 ] 6 78 AC“ 

06 0305220- 

06, 0. 0 

/FMCD 

24 3 





FMOD 

2A4 

C.O 

» C o 0 

o 

• 

© 

* 

* 

O 

♦ 

o 

, F MOO 

2 A 5 

C.O 

» 0 a 0 

,0.0 

o 

• 

o 

* F M 0 0 

2^6 

o 

. 

o. 

,0.0 

O 

• 

© 

, 0.37 64 0 AO— 

07 , FMQC 

24 7 


C . 25 1 C0 30D- 07 , 0. 1 43192C-07,-, 1755 0 30-07,0. I 7562 -J0-07 ,<=."00 2 AC 

-»104o 1600 -07,0. 1 76 579 C- 07. C • a*- 66 1 7 0- 0 7 . 0 • 2 9 6 2 A 40- 0 7 , -MOO 24 c 


. ** , L J u 

A OVD -07 , 

- .45262500- 

06 • 

0*2 60994C- 

06,0, 0 

.0.0 

/FMOD 

23 0 

DATA 

CS53 / 






FMOD 

251 

• 0.0 


C .0 

% 

0.0 

,0.0 

,0.0 

.FMOD 

2 32 

• 0.0 


u *0 


0. 0 

• 0.0 

, 0 . G 

, pi-iOD 

25 3 

• 0.0 


u »u 


0. o 

t 0. 0 

tOsU 

, FM ' jD 

254 

• 0*0 


0.0 


0. 0 

+ 

o 

• 

o 

,0.0 

.FMOC 

255 

• 0.0 


0*0 


0.0 

,0.0 

• 0.0 

.FMOD 

256 

• 0,0 

. 

c.o 


o 

• 

o 

,0.0 

• 0.0 

/FMOO 

257 

END 


. 





FMOD 

250 
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name geodyn 

■ 

PURPOSE BLOCK DATA TO STORE DATE AND SOURCE TAPE NUMBER- OF 

THIS VERS r ON OF GEODYN 

COMMON ELOCKS GEODYN 


BLOCK DATA ' 

IMPLICIT REALvtf (A-H.O-Z) 

CCM.VON/GECDY.N/DATE (5) 

DATA DATE/* GEODYN* * * {720C26) * * * SOURCE «.»TAPE 
END 


GEOS 12 
GEOD 13 
GEOD 14 
• .*326070 */ GF.OD 15 

GEOD 16 
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GEOIDH 

DESCRIPTION 

•This subroutine performs two functions critical 
to the proper evaluation and estimation of surface density 
potentials. 

1. GEOIDH alters the nominal Cartesian coordinates 
of surface density sub-blocks in such a manner 
so as to place, these sub-blocks on the equi- 
potential surface defined by the Earth's average 
global potential as computed by the function 
AVGPOT . 

2. Also computed are the coefficients interrelating 
all surface density values such that adjusted 
surface density values are constrained not to 
conflict with the potential defined by evaluation 
of the spherical harmonic expansion below some 
specified maximum degree and order. 

The GEODYN Systems Description, Volume I provides 
a thorough description of the physical and mathematic 
function performed by this subroutine. 


.KfBODUGIBlUTYOFmB 


% 
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name 


purpose 


Geojdh 

70 POSITION surface density locations cn c.eoid - 
SURFACE AND COMPUTE MATRIX OF CONSTRAINT FOR 
DENSITY ADJUSTMENT 


CALLING SEQUENCE CALL G E 0 l C H ( A RE A , CFN T DR , D'IN CON ) 


SYMBOL type 

AREA OP 

( 1 ) 

CENTER DP 

( 3 , 1 ) 

DENCON DP 
C NCCNST, 1 J 


DESCRIPTION 

INPUT C OUTPUT “ SURFACE DENSITY SUB-BLOCK AREAS 


INPUT 6 OUTPUT - THE GEOCENTRIC COORDINATES OF THE 
SUB— BLOCK CENTERS 

OUTPUT - COEFFICIENTS RELATING CONSTRAINED 
AND UNCCNSTFi AIMED ADJUSTED SURFACE 
DENSITIES 


SUBROUTINES USEC 

CLEAR 

EGR AV 

ON VERT 

AVGPOT 

common blocks 

CSL I M 

CP A R AM 

F MOD EL 

INI TtJK 


XYZ 

VRBLOK 



INPUT FILES 

NONE 

’ 


• 

OUTPUT FILES 

none 




REFERENCES 

# GE 0 DYN 

SYSTEMS 

DEbCP IP I ION * 



VOLUME l - GECDYN DOCUMENTATION 


INTDLK 


SUBROUTINE GEO IDH( AREA, CENTER, DENCON) 

IMPLICIT REALMS (A-H.O-Z) 
logical CN.PGPR 
INTEGER UL 1 .VIT 
COUeLc. precision model 

01 MEN SI UN D ( 1 ) ,ARE A( 1 ) , CENTERt 3 , 1 > , FCT( 3 ) , OENCQN < NC ONST ♦ I ) '* 
CCMMUN/CSL I M/LL I T ( 3 1 ) , UL I ^ I T ( 31 ) 

CO M M J N/ CPARAM/NSTA , NM A S T , N S T E S T . ND I V , M HI AS , NGP C 1 • NGPC 2 , NG PC 

• NCSEST ,C>'FGFR,UM 1 ,LIV 2 , NDE N . NOE N ST , NT I DST, NT I DEN, INNRSW 

• . NCCNST * N DC C h S 

cop.MON/FMUDtL/ index i . index?, i?^dex 3 . indexa ,cs(?.o , 33 ) ,modsl( a 

CCPMJN/IN I T t</ 1G1 ( 50 ) .NOT I ST ,N$Wl { 6 ) 

. CCM.MCN/ InToLK. / IHODT 1 , THOO T 2 , T HC T 2 S , CM , AE , AESO , DUM ( 60 ) 
CCPMuN/XYZ/XY lit ) , R.RSQ , I SAT, I FORCE (2 > 

CO MMON/ V R 6 L UK / X Y S 0 , C USL A v ( 3 1 ) , S I NLA V ( 31 ) , PR .PP 5 I » PL AMO A, 

• P( 33, 30) . ACRN< 30 ) , TPS f M< 35) 

EOU l VA lEnCE (DO ) , SINPSI .P( 1%1 M , (CCSPSI ,P{ 2 . 1 M 
INITIALIZE 

NO 7 1 S T = 0 
THC 1 G= 0«000 




GEO I 

3 fi 



GEOI 

37 



GEOI 

3 F 



GEOI 

39 



GEOI 

AO 

I NDS ( 4 ) GEOI 

A 1 



GE O I 

A 2 

OM. 


GEOI 

'3 

% 


GEO I 

44 



GEO I 

45 

) 


GEC I 

4 C 



GEO I 

4 7 



GEOI 

4 B 



GEO I 

AS 



GEOI 

50 



GEOI 

51 



GEOI 

. 52 



GEOI 

S 3 



GEO l 

54 

_ rfVL 

IT?. 

GEOI 

5 5 
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w r* 

lNOEX2= i NOEx J - 1 



GEO I 

66 

NCENTR-'; * NUcN 



GEO 1 

57 

COMMUTE A Vr.kAou vLLEHL GRAVITATIONAL P3T 

£NTI AL 


GEOI 

C P, 

1 = AVv>PCiT ( «;5 ) 



GEO I 

59 

CALL CLEAR! DEh CON i NCON ST « KOu M 



GFOI 

60 

calculate.- pjtential at each sue-hlock 



GEO 1 

bl 

DC lUOO L — 1 iNCcNTR 



GEOt 

62 

XY Z ( l ) “C L NT cR ! 1 «L > 



GEO! 

63 

XYZ (2 ) — CL NT c R ! 2»L > 



GEOI 

6A 

XY/ : C3 »»CtNTfck ( i*L ) 



GEOI 

6 5 

EVALUATE LCOnNUKc POLYNOMIALS 



GEOI 

6 6 

CALL LGKAV ( 7LETC »RASAT, FCT) 



GEOI 

6 7 

THCT2k=kr. ( Tj-L)TES*CCSPSI >+*=2 



Gf.OI 

6 5 

SL y C- 0*300 



GEO I 

69 

Sum = 0 • ooo 



GEOI 

70 

FN-UODO 



GEOI 

7 1 

SUM TERMS UF POTiiMlAL 



GEOI 

72 

CO 100 NC =2 , I NCEX2 

- — 


GFOI 

7 3 

NS=21-NC 



CEO I 

7 A 

FN = FN*i * 0D0 



GEO I 

f c 

FR - AC KN (NC J 



GEOI 

7 6 

NUL=MAxO( UL IM 17 ( NC ) . 11 



GEOI 

77 

DO SO MC=1*NJL 



GEO I 

70 

MS=2h-MC 

. 


GEOI 

79 

FI sFi<*P( MC j NC ) 



GEOI 

EO 

F=FF *F1 



GEOI 

fl 1 

CC$5=CS!NC» MC ) <COSLAM(MC KCS(NS,MSI *SINLAM<MC) 


GEO I 

L 2 

S U M 0 — S U M 0 + F l * C C S S 



GEO I 

S3 

50 SUV=5LM*F*CC5S 



GEO I 

V*- 

100 CONTINUE 



OtU I 

•}:: 

CALCULATE POTENTIAL DIFFERENCE ABOVE GECID 


GEU I 

56 

UOsCM/R + SUilO 



GEO I 

07 

POTCl F = 0, DOOf-h 4 THDT?PfU0 -RF.FPQT 



GEO I 

30 

CALCULATE PARTIAL CF POTENTIAL V.ITF RESPECT TO HEIGHT' 


GEO I 

e ^ 

PARPG7 = -Th0T2F-i(U0 4 SUM ) / R 



GEO I 

9 0 

CALCULATE NEW SCc-ELOCk. HEIGHT 



GEO l 

°i 

D R -Pu TUIF/PARFCT 



GEO I 

92 

RNE *=R4DR 



GEO I 

93 

CORRECT 5UU~bLUCK AREA 



GEOI 

9A 

ARE A( LJ --AREA ( L ) * ( R NE W /R } * * 2 



GEO I 

95 

RCl =kNEv. , «COShS I 



GEOI 

96 

RECALCULATE X ■» Y » l « S OF SU3-FJLOCK 

• 


GEO I 

97 

CENTER! 1 . L ) =RCL*COSLAM( 2 J 



GEOI 

93 

CEN1cR(2 . L ) =RCL*SI NLAM( 2 ) 



GEOI 

99 

CENTER! 3«L )=RNtW*S INPSI 



GEOI 

100 

INC=(L43)/W 



GEOI 

10 1 

NC C R = 0 



GEOI 

102 

A = A FE A < L 1 


- 

GEOI 

10 3 

R A = RN LA/At 



GEOI 

to* 

K N = l . 000 



GEOI 

1 0 E 

COMPUTE CONSTRAINT EQUATIONS FOR SURFACE 

DENSITY ADJUSTMENT 


GEOI 

106 

DO 50 0 N= l * ND CONS 



GEOI 

107 

EN=RN*RA 



GEOI 

100 

SNA -k NS A 



GFOI 

109 

N1 =R4 1 



GEOI 

1 10 

00 £00 Ml -1 |N 1 



GEO I 

1 1 1 


% 


8.0-286 



GE0ID1I 

Page 4 of 6 

October 1972 

* 


KCCA^NCJN +1 ' - 

RNF («-}•< NA* P( Ml , M 

OtiNCCN( NCGN . I NCI sDENCUN C NCON * IMDHRM’A <CO‘;L-'*M (Ml)- 
lF(M.Lu.l) (iL TO ?.00 
.NCCfx — KCUN+ 1 

Cfc NcON( NCON , I NC ) =Dt N*C£1N (NCON* I ND } f R I Nl. AM ( M 1 ) 

500 CONTINUE 
1000 CONTINUE 

1 F { NUtN ST *L £ • C > RETURN 

NAC j=nuensi -nccnst 

N A D J 1 = 'i AD J + 1 

C INVERT SUUkL SdGf'tNT CF CONSTRAINT MATRIX 

CALL DNVzk'T (NCCnST.DCNCOM 1 ,NACJ1 ) * NCONST » P} 

LR = 2 

1F(NDLN*GT ( NJ; hST 1 LM - \ 

INDSI n = 1 

I N 0 S ( 2 I =NAl>J 
I N C S ( 3 ) -NOL NS T -<1 

l N0S( 4 ) =N JbN " ' ' 

C COMMUTE Cull^ F I C 1 CnT S R E LA T I N G ' C C NS T R A I N E C AND UNCONSTRA I NED ADJUSTED 
C SURFACE DENSITIES 

CO 2500 L- 1 *L h . 2 
Kl= iNOstL ) 

K 2 = i NCS ( L * 1 ) 

DO 25 00 K =K 1 I K 2 
DO 20 CO 1=1* ivC C N S T 
A = 0 o 0 L 0 

DO l»0O J=1 .NCCNST 
J1 sr J+NADJ 

1 500 A = .Mlc?JCCN( ! . Ji > «’DE^Ca.N(.J.K } 

A A A f f V i # 

lC U U V U i A # n 

DO 2500 1-1 .NCCNST 
2500 Cfc*NCOMl.Ki=C(l) 

RETURN 

END 


GEO I 11? 
GEOl 113 
CFO I 114 
GEO I 115 
GEO I 116 
GEO I 117 
GEO I 116 
GF.O I no 
Groi i?o 
GEO I 12 1 
GFOI 122 
GEOl 12? 
GEO I 124 
GEO I 125 
GEOl 12C 
GEOl 127 
GEOl 1 2 P 
GEOl 12E 
GEO I 1?0 
GFOI 1 3 1 
GEDI 1?? 
GEOl 133 
GEOl 134 
GEOl 135 
GEOl 13E 
GEOl 137 
GEOl 1 3P 
GEC I 13R 
GEU ! 140 
GEC I 1 v I 
GEOl is £ 
GEOl 143 
GEOl lft a 
GEO l I -*■ 5 
GEOl 145 
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NAME 


CE.OSRD 


PURPOSE 


TO READ OBSERVATION DATA IN CEOS FORMAT AND 
PARTIALLY PrtEFRQCESS THE 0 P. SC rt V AT I t'J NS 


CALLING SEQUENCE 'CALL GEOSRD (NSTAfJDl 


SYMBOL TYPE DESCRIPTION 


NS T ARD I* 

input - 

NUMBER OF 
CARDS 

STATIONS THAT 

WERE READ 

FROM 

SUBROUTINES U5BO 

CLEAR 2 

RANDwR 

D I NR AD 

EOUATR 

SATCLC 


KUMbft2 

ID 1 F 

NUKBR A 

BIAS 

SATCL2 

YMDAY 


COMMON BLOCKS 

INPUT F.1LES 
OUTPUT FILES 


fiP ARAM 

CGECS 

FRC BLK 

C T l ME 

CEPHEM 

CPARAM 

'cstinf 

ST ANUM 

CONSTS 

I NTDLK 

SIGOLK 

TPEDLK 

SRFBLK 



IDTAFE - 

INPUT FILE 

NLMDEP S 



PRINTER 






SCRATCH FILES 


CAT P - 10 
IS C R — 11 


REFERENCES 


•GEOCYN OPERATIONS DESCRIPTION* - APPENDIX C 
VOLUME 3 - GECCYN D OC L V.L N T A T I CN 


SUBROUTINE 06 OSRD ( N'ST AR D J ' 

IMPLICIT ft L A L * 6 (A-H.O-Z) 

LOGICAL*! GEUS2F, UKSAT. Vt-FCPN, PREPPC.LA 3T . SE LSW 
LOGICAL T IN, IV .NORATEiNEkVTAP 
LOGICAL SATSAT 

IN T cGt«C2 l FkE y R , I NDPRE . IMT YPE . I S TN C , CUL L ♦ M l NU S . D ST A . IS. CHANEL . 

• ‘ N.MLAS. NT YPE .PRETYP .ESTANC. I STANO . 1 ST AMD, STANDS . I T MOD » I TSCL, 

» IML'O.SELST A ,MTP , I STA, I T4 , I C * , ISATNC. J JAS3 * K JASE 

INTEGER A « O A T F .R EC NO « OUT P 

REAL TDlr , 5 A T C L C . S AT CL 2 . GS2R.GINTEK .SIGSTD.SIC. 1 ♦ S I G2 , D A Y I NT , 

» SI GCHG « r.F IN CX , S IGMA1 . S IGMA2 • S4 , S CPR N T , RF NDX 

DOUBLE HRECIS1CN NAVE. JN A ME. ICARD 

DIMENSION A < 1 2 ,4 ) . X< 3 ) . LAST ( 4 ) , I SAT (4 > ,MTP(4 ) , I ST4 C4 1 , 1 T4 ( 4 ) , 

• ISTAAt A) . I Ys( A ) . I H 4 ( 4 > , S 4 ( A ) . IDA t A ) ..JFNDXt ?) 

COMMON/ AH ARAM/ JnPAR, INPAR I , NS I A S . MS T S T A . N S A T . NGP ARC ( 5 ) 
CCMMON/CGbOS/ 1 S A T 2 (2) . IPPEPPI a ,50) , FF INDXI 2 .50) » I NDPRE < 2 .50) . 

• NPRe. . NS1 C . SCULL . S I GC H G ( 5 C ) » I v, T YP C ( S 0 ) , 1 S T NO ( 50 > , CULL < 2 * 1 00 > 
CO MMJ N/PRtOLS/CAY, CP Sl.O PS 2, SIG(?),5RFNTX.ISTA,M TYPE. .NME AS » 

• IS ATNU ,PRE I YP , C F AN EL . VhFCHN .PREP FO . R1C. NO 
CCM*ON/CT I ME/L AT AEG . DAYREF , C A YE . DAY 5TP , J A Y I NH ! S > 
CCMVUN/CcPhLM/ JNAM £• (331 ) . I S TARC ( 3 31 ) , I S T A NU ( 2L l ) ♦ I ST ANC(, 3 36) 
COMMON/ CP Aft AM/hST A .NS’AST ( 1 3 ) 

Ca«VUN/CST I SF /JOASE ( 233 ) . KO AS C ( 2F 3 ) .LBASE 
CCMMOS/oT ANLM/SAML (220) . ST ASCS ( 210 ) .MOST JR 


GEOS 32 
GECS 33 
GEC5 3 A 
GECS 35 
GECS 3-f 
GECS 37 
GEOS 35 
GECS 35 
GECS 40 
GEOS 41 
CEOS 42 
GECS 43 
GECS 4A 
GECS AS 
GECS Afe 
GeCS 47 
GECS Ae 
GECS 4 c 
GECS 50 
GEOS 51 
GEOS 52 
GEOS 37 
GEOS 54 
GECS 55 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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CCFi<’C Is/Cc-Ni fS/LP! . DTV/OP! .D2P.S2R GECS 

CCMMJN/Jfxl 1 OLK/L3TA 1 cool • DT I l^t I roo ) » t-FRt -'J( 600 > • I Y3I ( l 00 ) . IltSI ( 1 00 ) *GrCS 

• *Y E2( 10UI* 11-32 ( 1001,1 TPOCC 2L6 « 1 i 1.1 TSuL (100). IM.O (100). GEOS 

• icLbl A < 1 CO ) .Srj.Sw ( 100 1 . 1 E 3 I AS( 57 6) .. CFOS 

• COV^oN/ lNTuLK/C- INT E< ( 53) i N(1WA T E • 1NT CPK ( 73 ) GECS 

CCM,v.yN/S l Gol.K /S r G 3 TD (301. SGPRNT ( 20 ) » 1 DT AP‘; ( A 1 GEOS 

ccy MjN/If-’tULK/ IM p ,CUTP ( 3 ) , I CO 5 , 1 3C P A( * ) GEOS 

E 0 U I V ALc'NCt ( E 1G1 . 5 I G ( 1 ) ) . ( K K 5 A T , S I 02 ♦ S K> ( 2 1 ) * ( ML AST .LAS T ( 1 ) ) GTQS 

EQUIVALENCE ( hVnDX ( 1 ) . SRFNOX) GEOS 

CAT.A ^cLL.TE/ohCZLZ TF/.ilNDALL/EhENOALL/t NZV.TP/2/ GECS 

DATA . IGhOSA . i CCOSl /( 5591 »6E C 2 9 1/ * GEOS 

CATA IGcOSU . IC-c0S2/CG02I .6*002 1/ GECS 

CATA C/2. *9 ?>2EC 3/ GEOS 

CATA MiNJs/lh-/, ISCP.OATP/1 1 ,10/ GfOS 

C INITIALIZE GECS 

NU^uc«-0 GEOS 

GdC£2f = .VT YPiI • Nfc. 1 GECS 

NCKaT Z= * T KU t • GEOS 

Nth 1 AP= I Ut33 tcC«2. DR • I OGS « EO *3 GEOS 

IOP5=UUD< 1 UOS . ^ ^ GEOS 

S I G ( 1 1 = 0. COG ' GEOS 

S 10(2 ) — u * ODC GEOS 

C DETERMINE NJV.OC.H cr- INPUT UNITS GEOS 

oa tic 1=1,3 . GEOS 

IF ( IQTAPZ ( I ) * C 7. C I GO TO 61C CEOS 

11=1+1 GEOS 

0 0 60 C J- I 1 . *+ GECS 

600 I C TAPtC J- l ) = 1 CTAPL ( J ) GEOS 

ICTAPii(v)=0 GEOS 


‘ .J Q * r C * ’ ♦ I ‘ 1 " • * 

» » a * » r»r- * l , i 

f> I f%*~ t "iun ’Y \ V I A l r* i- A- f t « 4 

If^ (NTAPcI.LT *0 1 NT A Pc = 4 
IF (M APE. GT .0 1 GO TO 612 
NT A P L = I 
I C T AP fc { 1 ) - 2 0 

612 I YV 1N=0 
IH^iN =250000 
I YM AX =>^93 >3 
Ikmax=o 

CALL CLLAR2 ( I Tf-00 . 236 . 1 1 ) 

VL A 5T =0 

0 A YPA V = uAT A 2P 
NJRATE=,TRUE. 

1 S c L = 0 

D JO ASL= YMDA Y ( 5 CO 1 C C . 0 .0 . 0D0 ) 

IF( ICdS.LE. 0) CO TO 620 
c READ SELECT AND uElHTE CARDS IF NECESSARY 
IYVAX=0 
I Y 1* 

613 REAC( INTP, vOOC ) I CARD. IYMD. IFM . I T • 1 £T. I ST A • MTYPf= . LMQD 
IF ( 1CARD. cQ.cNCALL > GO TO 6 20 

I S E L = I SLL + 1 

SEES* ( I ScL)=iC/RD.NE. DELETE 
IF(IT.Lt'.O) 17=935995 
IYS1( 1S-L )= IV^C 
1 H S 1( I5EL)=IHV 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


GEOS 

rr ac 

GEOS 

GEOS 

GEOS 

GEOS 

GEOS 

GEOS 

GEOS 

GEOS 

GCOS 

GEOS 

GECS 

GEOS 

GEOS 

GEOS 

GEOS 

GFOS 

GEOS 

Gtns 

GEOS 

GEOS 

GEOS 

GEOS 

GEOS 

GEOS 

GEOS 


e 7 
5 A 
SC 
60 
61 
62 
A? 
6*- 
i-S 
66 
67 
h 

( 9 
70 
7 1 

72 

73 
7 A 

75 

76 

77 
7 5 

79 
30 
S 1 
ez 

63 

84 

o c. 
» e. 

e 7 

OF 
69 
00 
9 1 
92 

9 7 

3 A 
95 
9c 
97 
9t 
99 
100 
10 1 
102 
103 
10 * 

1 OS 
106 
107 
1 07? 
1 09- 
1 I 0 
1 1 1 
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I YS2( loc-L )= i r 


GEOS 

112 


JHS2 ( 1S^L > = J S T 


GECS 

11 3 


ITS El ( 16 £L ) -MT YPr 


GEOS 

1 l A 


iMOCt ISuL ) = M.D CtLMCDi l ) 

• 

GEOS 

1 1 5 


SEL ST A ( I 5U. J = 1STA 

‘ 

GEOS 

1 16 


IF < 4 NOT .ScLlit, ( IS EL ) ) GO TO CIS 


GEOS 

1 l 7 


I Y V 1 %<-- M I N 0 ( lYMN. I YMD) 


GEOS 

1 1 r 


I H V IN s: I N 0 ( i H V 1 N . IHMJ 


GEOS 

l IF 


IY WAX=.*1AX0 ( I YFAX, I T) 


GEOS 

120 


l M P A X = M A X U ( iH.v AX, 1ST) 


GEOS 

121 


GC TU oJS 


GEOS 

12 2 

READ 

Flf-ST (JcCliKU FROM EACH UNIT 


GEOS 

123 

620 

00 c2S 1 = 1. NT APE 


GEOS 

12* 


I CS'js IDT APE (II 


GEOS 

1 2 S 

622 

Kc AL< IOljS, 2 00 0 ,EkR=622. FNC= 624 > I 5 A T ( t ) ,M TP { I ) . I U4( I ) • 1 ST4 { I ) » 

GEOS 

126 

• 

IT 4(1). 13TA4< 1 ) • I V 4 ( I), IH4< 

I ) i S4 ( I ) , ( A ( J « I ) . J = 1 , 12 ) 

GEOS 

127 


I F ( I5AT2< 1 uec.0) I 5 A T 2 ( l ) = J SAT( I) 

GEOS 

12P 


CO 67 1) JsliNSM 


GEOS 

129 


IF( I SAT ( 1 ) • Nu. IS AT 2( J ) ) GO TO 

670 

GEOS 

130 


GO TO 525 


GECS 

131 

670 

CONTI NUH 


GEOS 

1 32 


GC TO o22 


GEOS 

133 

624 

LAS T( I ) = « TkUI • 


GEOS 

1 34 

625 

CONTINUE 


GECS 

13 S 

630 

I l-A' = I P4 ( 1 ) 


GEOS 

1 36 


1 Y i>— 1 Y »♦ { 1 ) 


GEOS 

1 37 


IF(LAST(1)) iYPD=9959999 


GEOS 

1 3C 


I T A Pfc = l 


GcO 5 

139 


IOlii = ICTAPt ( I ) 

* 

GECS 

1 4 0 


I F < NT A PL .ilG.Ii GO TO 6 4 0 


CEOS 

1 4 ! 

Tu37 

t Af\L i L ii i t i "•! i_ 


^rnc 

i * -> 


00 C'3 o 1=2* NT ATE 


GECS 

143 


IF (LAST ( I ) . CR • IY.VC.LT. I Y4 ( I ) ) 

GO TO 635 

GEOS 

144 


I HMS- IH4 ( I ) 


GEOS 

14 6 


IF ( ImF.lT . 1 HMS .AND. IYM0, £0. IY4 { I ) ) CO TO 6 35 

GEOS 

146 


I TA Ft = I 


GEOS 

147 


I 06 S= 1 DT AFt { 1 ) 


GEOS 

1 4 C 


IhH-lF-MS 


GEOS 

1 4 9 


I YMi> = I Y*+ ( I > 


GEOS 

150 

635 

CO NT I NUc 


GEOS 

151 


IF ( LAST ( I TAPE ) ) GO TO 700 


GEOS 

1 52 


GU TO 640 


GECS 

153 

637 

IFtLASK I TAPE) ) GO TC 630 


GEOS 

154 

READ NEXT KFCu-iO FROM LNIT5 LAST U 

6 ED 

GECS 

1 55 

63S 

RE AC ( IOl>S « 2000 «ERR = 63!3» END— 65 9 

) I SAT( ! TAPE) «MTP< I TAPE) . ID4< 1 TAPE > 

. GEOS 

156 

• 

1ST4( I TAPE ) • I T4 ( I T APE ) » I ST A4 ( 1 T4 FE ) . 1 Y4 { I TAPE) «IH4( I T APE ) . 

GEOS 

137 

« 

64 { I TAPE ) . { A ( J » I TAPE ) . J- l , 12) 

GEOS 

156 


IF < ISTA4( 2 T APE >.EQ .0 ) LA ST < I T APE ) =* TRUE. * * 

GEOS 

159 


C K S rt T - • F A L S ti • 


GEOS 

160 

CHECK SATLLLITc IC 


GEOS 

isi 


DO t to E I - 1 * N3A T 


GEOS 

162 


IFICK^AT) GO TC u6 5 


GECS 

163 


ISA TNC= I 


GECS 

164 


OK5«T=ISAT( 1TAFE ) «EO* ISAT2( I) 

REPRODUCIBILITY of the 

GECS 

16 5 

665 

CONTI NUL 

GEOS 

146 


IF ( *NOr.OKSAT ) GO TO 637 

ORIGINAL PAGE IS POOR 

GEOS 

167 
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CU lb o30 ' 

639 LAST! 1 TaPE) =. TRUE* 

GO U 630 

C RcWIN'J INPUT TAPES *H[!K SELECTION CCMPL ETC 
700 1 S TA-0 

|F(»NCr.KcnT#F> CO TO 20 

wm lu (iME a rp , 2CCO ) ISA T{ I TAPE ) . WTYPE * ID # I ST * I T* 1 ST A, I YMD. I HM • 

» >*( ITAPu ) , { M J. ITAPH ) • J~ 1 . I 2) 

END F lLii Nc HP' 

GO 70 20 

C CHECK FlR AGCLPTAcLE T IMr 

e-VO lr ( IYfO.LT* IV.v IS, OR. ( I Y^D^G, I YMIN. AND. IHM.LT. IHMIN) ) GO TO 637 

• IF ( lVMOfijT* 1 T'V/X i(ir<« ( IYM3.nO. I YMA X » /-NO, lHM.o£, IH-*AX) > GO TO 700 
M7 YFc = MTP< I TAFc > 

I STA= i 6 T A ( i T A F £ ) 

IF t C- c Li 3 2 F ) I ST A = 1ST A/1 0 
I S T P- you ( 1ST A* 10 000} 

IF < i^TA. LO* 0 > CU TC 700 tr * - “• 

IF ( IStL.Lii. 0 ) CO TC 660 
C CHECK IF McAiiUKL-ILNT HAS SEEN SELECTED 
DC6*iol=l»I3cL 

IF ( { . NO T. Sc l » ( 1 ) ) « Cf» . ( M T YP E »Nt • I TS EL ( I 1 • AND • 1 T SOL ( I > . GT» 0 } . OR. 

• ’ (1 aT A • Nil . icLST A ( I ) • AN C « SELS TA ( I ) ,NE. 0 ) .OK . 1 YM : ),lT • 1 YS 1 ( 1 ) • OP • 

O 1 Y MD * G T . 1 Y 6 2 ( I ) ) G O T 3 6 a 6 

I F C IY « I Y £ 1 { I ) * AND. I HM, i_T « I HG1 ( 1 ) > GO TO 6 45 

IFC IYFD-cD* 1YS£( I ) «AND* I HM. G7 • IHS2( I I I CJ TO 645 
I SVGD= I MJO ( I > 

GO TG 60 0 
645 COMIMJc 

* - CiU ru • 00 7 - 

C CHECK IF ^CAiUKt I HAS UttN OtLfc'ttU 
650 DQ cSS J= 1 . IScL 

IF < adL5w( J I .OK * ( MT YPE.NiE. I t SEL < J ) • AND . I T S"L( J 1 .57 , 0 ) * OR. < I ST A 

• iNc. StLSTA { jJ . AND, SSL ST A ( J ) *NE. 0 ) .OR . I YMD.LT, I YS1 ( J ) • OR. 

. IYM.liT.IYii(J)) GO TO C55 

I F ( l Y WD • c U # i Y S l < J ) • A N O . I HM • L T • I H S I ( J > ) GO TO 635 
IF( IY.VU.EO. I YS£( J ) .AND. I HM* OT, IHS2( J) J GO TO 655 
GO 70 o37 

655 CONTINUE > 

660 I S N - l ST A 

I D = 1 D 4 ( I TAPE J 
ITEMH-I5CR 

IF< M.T YPE* EG. 4 ,/NC, I0.EQ.5) t TEMP=0ATP 
IF C *NGT .NUk AT 6 } GO TO 16 

IF( Ml YPt.Nc « 3 «/NC • N'T YPF. NE. 4 ) GO 70 16 

IF(NSlO.Lc.O) CO TO 17 
NK 1=0 

C DETERMINE IF SIGMA IS CHANGED . 

DC 15 t = i « N S I C 

IF<I^N#Nc.ISTNC(I).AN0.1STNO(I).NF.C> GO TO 15 
IF (3. LO. IMTYPt ( I 1 .OP. IMTYPf t I ) *00.0 ) NN1 = I 

15 CCMlNOu 

IF ( NN 1 .GT . 0 « ANC * SI CCHG( NM ) *NE * 0. ) NOR A Tc = ■ F AL 5u • 

GO TO lo 

17 NOR AT c.-*F AL.SL « 

16 1$TA=1SN 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


GCOS 

If i* 

cros 

1«.C 

GEOS 

170 

GEOS 

17 1 

GEOS 

172 

GEOS 

173 

GEOS 

176 

GEOS 

175 

GEOS 

176 

GEOS 

177 

GECS 

'1-»F 

GECS 

1 7C 

GEOS 

1 AO 

GEOS 

7 3 1 

GEOS 

182 

GEOS 

1 43 

GEOS 

tfi* 

GECS 

155 

GEOS 

I3f 

GEOS 

167 

GEOS 

t =38 

GECS 

n: c ' 

GEOS 

1 70 

GcCS 

7 91 

GEOS 

1 ? 2 

GF.OS 

19 3 

GEOS 

l 

GECS 

19 5 

GEOS 

Ft 

VJ U 

* r T 

A *. * 

GFG 3 

lr< 

GECS 

799 

GEOS 

20 0 

GEOS 

20 1 

GEOS 

202 

GFOS 

203 

GEOS 

20f- 

GECS 

20 5 

GECS 

20 6 

GEOS 

207 

GEOS 

2 0? 

GEOS 

2 09 

GEOS 

210 

GEOS 

2 i i 

GECS 

212 

GEOS 

2 l 2 

GEOS 

214 

GEOS 

215 

GEOS 

2 1 6 

GEOS 

217 

GEOS 

216 

GEOS 

27 9 

GEOS 

22 0 

GEOS 

221 

GEOS 

222 

GEOS 

223 
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c 

CFCCK FCR STATION PRESENT 


GEOS 

224 



ISN~NUM’.JR2( IS! A, 1 STAND, N ST A I 


GEOS 

22S 



IF(ISN.GT.O) CC TO 73 


GEOS’ 

226 



I ON sUlMtJii 2 ( I S I A f ISTAKD.NSTAKD> 


GEOS 

227 



I F ( 1SN. GT.OI 0C TO 71 


GEOS 

220 



JSN-NCM5k2( 1ST A, STANDS. NG5TCR ) 


GEOS 

22 9 



IF( 1 3 N r G T oU ) GL TO 71 


GEOS 

23 0 



I F ( 1STa« LU. AND • vT YPE. EO. 5. AND. I D .50 « 4 J GO TO 71 


GEOS 

231 



PRINT 30 0 0. ISIA # 


GEOS 

232 



GC TO 6J7 


GEOS 

•233 


71 

nsta=nsta+i 


GEOS 

2 34 



I S N “NS T A' 


GEOS 

235 



1ST AN U ( I S N T = i 3 T A 


GEOS 

2 36 


73 

IF( 1Si.l.Lc« OJ GO TC 72 


GEOS 

237 



K^MirPE 


GEOS 

23 S 



KTYFi-=FOD (n , IS > 


GEOS 

236 



K-I TMCD( I SN ,NT YPE ) +1 


GEOS 

2A 0 



K=MDO (K. 1 S M CD } 


GEOS 

241 

c 

WRI T 

£ SiLECTED MEASUREMENTS ON SCRATCH FILE 


GECS 

242 



I TMOU ( 1 SN tNTYP E > ~K 


GEOS 

24 3 



IFTK.NE.O) GO TO 627 


GEOS 

24 A 

72 

WR I Tu ( I TEMP , 2C 10 ) I SAT ( I TAPt ) .MTYPE * ID • T ST4( I TAPE I . 

I T4 (I TAPE) • 

GEOS 

2 A E 


ft 

ISN, 1YHD . IFF »_S4 ( I TAPS 1 . ( A< J . ITAPf 1 * J - I . 12 J 


GEOS 

246 



Tf< .NL r.NEV. T AP ) GO TO 637 


CEOS 

247 



K= 1 ST AND ( ISN) « 10 


GEOS 

246 

C 

ENO 

FILL A.NU k'c a 1 N U SCRATCH FILE 


GEOS 

2 49 



tf R I T£ (NEW TP, 2 0 CO } I SAT < I TAPE) . MTYPE . ID . I STM ITA^E ) , 

I T A (ITAPD »K, 

GEOS 

230 


* 

t I Y t-'uJ « I MM .5*+(lTAPt_) « < A ( J i IT A Pc ) « J - 1 i 12) 


GEOS 

231 



GO TO o3 7 


GECS 

252 


20 

cNCFH.d 1SCR 


GEOS 

2 '.j 



REWIND i 5 CR 


GtUS 




ENCF l LE D ATP 


GEOS 

255 



REWIND UATP 


GECS 

25 F 



Vh F CM N= . F AL S E • 


GEOS 

257 



I Y - . T KUE • 


GEOS 

2 50 



IK =0 


GECS 

250 

c 

READ DOi'Pl£R FILE AND FILL FREQUENCY TAhLc 


GECS 

2 f 0 



NDCF=0 


GEOS 

26 1 



DJEASE=YMDAY(SC0100,0«O.CO) 


ceos 

2o2 


30 

RE-AE( DATP.2 020 ,EnO = ^0)OSTA< NDOP+l ) . IYMD . I HM, SEC . riFR 

EQ( NDOPt 1 I 

GEOS 

26 3 



NDCi--f\DjP*i 


GEOS 

2 34 



DT I ME (NO Jp ) = YMC AY ( 1 YMD « 1 FM , SEC )+ 1 • D C/ 1 4k 0 • D 0 


GEOS 

26 5 


• 

IF <fND0P.LT.60C ) GO TO 30 


GEOS 

2o6 



PRINT luOOO 


GEOS 

207 


40 

REWIND oatp 


GEOS 

260 


50 

Rc AC( I SCR , 1 UOC .END =6 0 IIS4TI D * M TYPE . ID » X ST . I T • 1 5N • I YMD . IHM.SEC 

GE 3S 

2 69 

c 

READ F I kS T nECOWD FOR EACH OBSERVATION 


GEOS 

270 



S AT £ AT = • F AL 5 E • 

• 

GECS 

27 1 



C H ANEL= 0 


GEOS 

2^? 

c 

STATION AND T Y P t ZtRG FOR LAST CE) S EF VAT ICN STORED 


* GEOS 

2"' 3 



IF ( IS N.GT .0 ) C-C TO 70 


GEOS 

27<* 


60 

REWIND 1 SCk 


GEOS 

2^5 



1 S T A= 0 


GEOS 

276 



MTYFE=0 


GEOS 

277 



RECKC=klCnO ♦ 1 

1 

GEOS 

27 0 



PRINT a J00 . MJMfcER , < I DTAPE ( t ) * I = 1 , NT APE ) 


GEOS 

2 70 


REPRODUCIBILITY OF THE 
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CALL HANDyjK 
f M = U 

C COMPUTE McAiUntM^M TIME IN A* I CAYS FP?C« REFERENCE JAN 0.0 
OAYS1 P-i_>A Y 

. RETURN .. * 

70 C A Y = Y MD A Y ( iYMC iIHM *St’C) 
i f t i t .« to t n I T = A 
IF< IT .Du* 0. OR . IT . GT* 4 > 1 T= 3 

D AY-OAY+ Tj l F { <5 , I T , C A y ) /».*<. 0 C. 

IF (LAY.LT. OAT A£P I CO TO lao 
IH{CAY«uT«OAYSTP) GO TO 60 
KH?A5=I 
5 I G it— 0 • 
lND = i> 

IPKc=0 

PfiPTYP-0 

I 3 A T.NL=NJMok4 ( ISATID.ISAT2.NSATI 

MTsMTYPe ' ' 

IF(K'TYPt,EO.t) MT=3 
IPIMYl’i.dC.oJ MT=26+ID 
IF ( AT YPi. cU i } > M r = i D 
KST A= ISTANO ILtts) 

C DETC^MIUc Pk £ Pk(J C c 5 3 I N G TO 3c OCKl 
IF ( KPA c.cO. C ) GO TC 100 
CO I = 1 , N P K fc 

75 I F < ( I NJPf<t ( I , I i,EC.O.OP.lNOPS'£( 1 . I ) .EO.KSTA) .and. 

* ( INDPRE ( 2 . i ) .EO . O. OR. I NDPRi C 2 • I ) . EO . MT > ) IND=I 

I r ( INl-.cO.O ) G il TO 100 
SRFtNOXsuF 1 N0X( 1. INC) 

JKl.JP.KtPft 14.,1M ).* 4 G.f>0 )»,OAY^.r.A.Y.'if<t lN.f>X{ 2,. i ryD) /6c «>4i£*» 

IPPt:= IP^iPW ( 1 . 2ND ) 

PWE T YP= I PkL PR ( 2 , I NC ) 

IF ( IPAc-.EO. i i IPPi£ = l- I ST/5 
C DET CRM I ii£. sigma Ch/NGCS IF ANY 
100 NN 1=0 
NN 2 = 0 

I F ( NS I G. £G. 0 ) GO TC 103 

CO 1 Ou 1 = 1. NS 1 G 1 

IF ( KST A. NE . I 5 7 NO ( I ) « AND • I S TNO ( I ) , N E • 0 ) GO TC 106 
I F(MT. Ew* IMTYPi: ( I ) .CP., I MTYPEI I ). EG. C) NN1=I 
IF(MT.GT,7> GC TO 106 

IF ( MT +7. eO. t.M I YPE ( I ) . QP. I MT YPE { I I.EC.O) NN2= I 
106 CONTINUE 

C PROCESS AND Pc AD SECCNC RECORD ACCORDING TO MEASUREMENT TYPE 
C ...OPTICmL. AZIMUTH Cr ELEVATION 

102 GO TO (110. 120.120.130. 150. 160. MO, 170.290) . MTYP£ 

110 REAC(lSCR.lOlC) <M 1 • N 1 . OH SO 1 , 1 S » M 2 . N 2 . Go JJ2 . I Me AN , I E Q AT , S l G 1 * S I G 2 
NME AS =2 

CALL C I NR AD (Ou£ 1 , M 1 , Nil . COSO 1 . MTYPFJ* 1 ) 

CALL DI Nk AD ( U«S2 . M2. N2. UOSO 2, 1 ) 

IF ( IS .cO. M I NL S JOBS2 = DSI GM JES2 I • P C ) 

IF (NNl.ol .0) S IG1 =51 GCHGCNN 1 ) 
lF(NN£.i.T,0 ) S IG2= SI GCHG ( NN 2 ) 

COSD=LCJS ( Zj-Joc ) 

SI C 1= S 1 G1 *S 2R 

IF ( jND.Nt .0 .uh ,NN 1 .GT #0 ) S I G 1 = S l G l / CO SO 


GEOS 

2t’0 

CFOS 

2*3 1 

GEOS 

?:H2 

GEOS 

2 i 3 

GEOS 

?3 f - 

GCOS 

2*5 

GEOS 

23* 

GEOS 

22 7 

GEOS 

2. if 

’GEOS 

23? 

GCOS 

2 v 0 

GEOS 

2? 1 

GECS 

?o 2 

GCOS 

2 r : 3 

GEOS 

2? A 

GEOS 

295 

GEOS 


GEOS 

297 

GEOS 

2 : J f 

GEOS 

29? 

GEOS 

30 0 

GEGS 

30 1 

GEOS 

302 

GEOS 

303 

GEOS 

30 ' 

GEOS 

305 

GECS 

30 1 

GEOS 

30 7 

GEOS 

30 3 

GECS 

90 i 

Or. U 6 

3 1 v 

GCOS 

31 1 

GECS 

212 

GEOS 

312 

GEOS 

31' 

GECS 

315 

GECS 

3 16 

GEOS 

31 7 

GEOS 

3i e 

GEOS 

31? 

GECS 

320 

GEOS 

321 

GCOS 

32? 

GEOS 

323 

GEOS 

22 A 

GEOS 

325 

GEOS 

326 

GCOS 

327 

GEOS 

22C 

GCOS 

32? 

GECS 

330 

GL'GS 

33 I 

GCCS 

332 

GEOS 

333 

GEOS 

33 a 

GECS 

235 
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SI Gt = bl G2 *5 2K 
lr{MYPnN'c.n (.0 TO 4 0 0 
PKETY P=0 

IF ( lNil.tO* 0 » OJ*. IPREPRtA , 1ND 1 .EC. 0) CO TO 4C0 
PK2TYP=1 

IFC la .cU. O.AUu .( ISAT I D. LTC ♦ I CEOEA.CR » ISAT 11). EG. I G»T Jft I 1 1 

• L aY-L/A Y + jnKLCt IV, CAY 4 TO I F< 3 , A * D AY ) //>. oAEk) /3* G4C.4 
IF C iu»hvi,0. A;-*L'- t J 3 AT ID.EC.IGEOSL.OR.IS^T I D ♦ E G • I G 1 0 S ? ) ) 

• CAY = OAY<- 5A T CL 2 ( I Y , day * TC t F ( 3 ,4 , n AY ) / .:■» 0‘-r ) Z3, 64M4 

IF ( 0. a. Ml .t I SAT [ 0* fO, T CEOS 1 .OR . 1 SAT I D.ECe* IGF OS A, OR. 

, lSATIC.CG. KE 0S2.OR. I SAT JD.FC. IGEOSR) ) IPLK-0 
TIK = l FEAN. cZC. 1 

IF < Ti N.ANDv icC FT • EC. 3 i GO TC COO 
0— G A) U J L)«bc 

1 F ( J c. OAT » c U « 2 J D2OATR=0* CO 
IF ( JcCAT • CO , 2 J D*;OATK = DAY 
X( 1 ) = UCGS (ut:5 1 I^CCSD 

X( 2 ) = t>31 N ( Ui)6 1 )^COSD - — - 

X(5)=DSlN(Ot52J 

CALL tiwUA TK (X . CECATK ,T 1 N.'X , CAY «. TRUE. > 

OUS 1=1>ATAN2 (X ( c ) . X ( 1 ) > 

IFtCoSl .lT. O.CC ) 0LS1=0BS1 +CTWOPI 

o y s 2 — oak s i n ( x ( „* j j 
GO TU loo 
C •tiRANGc 

120 A£ AL( loCf; . 1 020 ) OOS1 . ISCCR. ITR , IRC. 1TROP. 51 G 1 .RtFRAC , 

« I VALID » CHANuL 
IF C IV AlIO.LT , c ) GO TO 123 
. I F ( 1 S CO< • GT . \ > I I 5COft=ISCOR~100 
» 0 A r-L A X * Ut- LUa | ( i sCur- i /r • GAG t i 0 

123 IMNM.Ol .O ) S Id =SiGCMOl NN 1 » 

IFfFKLTYP.LO. l.ANO.t I T R O P , E C . 1 .OR • I 7RC J . £0.3)1 PRETYP=0 
IF ( 11 ROP. N£,9 * CR .PRuTYP*LE. 0) GO TO 125 
PREIYP-3 
SRFNLX-kEFR AC . 

125 IF C IPR2.Lt. 0) CO TO A00 

lF(lNC.GT.O) C AY = D AY-CJ6S 1 /< C*S .6404 } 

I PR l= CtUNcL + 1 
GC TO 4U0 

C ... RANGE RATE t OLT-PLER 

120 R£AJ( ISCK . 1 020 ) CO SI, ITR CP , SIGl .CHANEL 

IF (PkLTYP. £U. 1 ,AMO.( ITAOP.EC, 1 . OR • I T ft J P , t 0 . 3 ) ) PRETYP=0 
I F t MT YPt.« tO • 3 ) GO TO 135 
V.TYF£ = 3 

IF (NJLP. tO. 0) CO TC 50 
DO 1<*0 I-l.NOCF 

IF (0AY.6T.JT IME < I > .OR .ISN.NE.DSTAt l ) > G 0 TO 140 
GOSl=C*( t3FPtO< I )-n6Sl J/OSSl 
SI 01 = C*S IG l/PFREOt I) 

135 IF(NNI.GT.U) SI G 1=0.01*51 GC b 0 ( NN 1 ) 

GO TO AO 0 
140 CONTINUE 
GO TO 50 

c ,»,M|MTi1 ack 

iso RsAiiibCHiiMoi OOS1.0DS2 REPRODUCIBILITY OF THE 

si gkai=si csrc ( ; ) ORIGINAL PAGE IS POOR 


CFOS 

’3< 

GEOS 

33’ 

GEOS 

13 w 

GECS 

3? a 

GEOS 

3ft 0 

GECS 

34 1 

GEOS 

24? 

GEOS 

>A3 

Cr OS 

T A ft 

GEOS 

"* *'» 

GEOS 

TA *> 

GEOS 

3 A 7 

GFUS 

3 a -3 

GEOS 

3ft,c 

GEOS 

3E0 

GOGS 

351 

GECS 

35 2 

GEOS 

35 3 

CEOS 

?5A 

GEOS 

2 >5 

GEOS 

33 *■ 

GECS 

35 7 

GEOS 

.356 

GEOS 

■»: n 

GEOS 

3C 0 

GEOS 

35 1 

GEOS 

2 £? 

GEOS 

3 (.3 

GEOS 

15 ft 

GEOS 

3C 3 

CEuS 

3 '• c 

GEOS 

? 5 7 

GEOS 

36F 

GEOS 

2 tO 

GEOS 

3 7 0 

CEOS 

] 

CEOS 

37? 

CEOS 

373 

GC 0 S 

3 7ft 

GEOS 

3’t 

GECS 

3?C 

GEOS 

37 7 

GEOS 

37 H 

GEOS 

370 

GEOS 

3E 0 

GCOS 

23 1 

GECS 

33? 

GECS 

332 

GEOS 

35 a 

GEOS 

•16S 

GEOS 

2 oC 

GEOS 

32 7 

GEOS 

3ri£> 

CEOS 

23 5 

GEOS 

-3D0 

GEOS 

39 1 


1 
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S ! G f' A 2 = d l ('» o T (J ( 12) 

I F ( NN ltoTii/) b 1GVA 1 = 5 I GCHGl NN l ) 

IF (NN2.GT *0 i S I A2-f,IGCHG( NN2 ) 

•s I C 1-Ctfdl v * 2 
S I G2=CJS2**2 

IF ( i 1 o l *LT * 1 . ) S I G 1 = SQRT ( 1 % -S IG1 > 

IF ( i I G2*LT < 1 * J SI G2=SQPT ( 1 . -S 1.02 1 
£ t Gl«i»lv»v.Ai Vl , e-3/S IG1 
£1 G2- SIGKA2* l .t-3/SIG2 
K M E A 5 — 2 
GC 1C 400 
C « • * X~Y ■ /'I'iOLc.S . 

150 ISCR , 1 050 )C0S 1 , GBS2 ,S 101 ♦ SIG2 

NMfAd=2 
COS i=CtlSl *D2 k 
0BS2=Udb2 *t>2P 

IF< N.N 1 *GT .0 ) ii IG1 =S1GCHG (fs!Nl ) 

IF (NNt.CT *0 ) b IG2 = SI GCH.G(NN2 ) 

SI C.1=S1GI 
SI G2=biG2*-3 2,< 

GO 1U 400 

C •♦•TIME uilL«Y. FILING CATC, 2 C J YiAY AVFRAGL 7 RANGE RATE 

170 Rt AL { 1 SCk . I 06 0 ) I T CC-F » I T RCn , J ON, I ST A2 , OlS 1 , CdS2 
. CA Y^GAY+uFLUAT (I TCCR )/« . 640 + 1 0 

I P R c = 1 

u T YFt. = 2o + 10 

SJGNA1-SI Gd TO (1^ TYPE) 

irt N.W 1 . «^T ,0 ) Si GMA 1 = S I GCHG( NN 1 ) 

S I G l« 6 IG*1A1 

ir ( PAdTVP *GT . 0 J Pr lTYP-PhcT YF- 1 + i T R C F 
j|-(PKLi!fKcLt t Ui t>U TO 172 
IND2=0 
RF Nu.X < 2 ) = 0 • 

DO 171 1=1,NPRE 

171 J F ( ( 1 fNiOPkC ( I, r 1. £0.0, OP . IN0PPE <1.1 1 * EQ « ISTA2 ) • AND, 

« ( I NOPrit ( 5 , 1 > . 60* O.OP . INOPCE <2 , I ) .FO * V TYPE ) ) 1102 = 1 

IF(lNt2.GT*CJ hFNpX(2» = HFIM)X( 1,1 NO 2 ) 

172 ISN2=NU-46K2 ( I STA2, ISTANO tNSTA 1 
I F ( 15 62# uT»0) CO TO 175 
ISN2-NUM3K2 ( I STA2 . ISTAPOf NSTAR01 

.IF ( 1SN2 .GT, 0 ) CO TC 173 
I S N2 = NU 4dR2 ( 1 5T A 2, ST ANO S « NO STO R > 

IF < I jN2,GT , C 1 CO TC 173 
PR IKT 3000, 1ST A 2 
GO TO DO 

173 NS T A = NST A * 1 
ISN2-NSTA 

ISTANCI ISN2 )- I STA2 
175 CHAK1L=1SN2 
SIGC2J=0JS2 

I F ( Ld ASC • tC . 0 ) GO TO 166 
CO lit lal.LiiAiE 
IF { ISN.NE . OhAS £ { I 1 1 GO TC IGF 
IF( IaN2,Nt.K.dA£E( 1)1 GO TO 166 
«C IU 190 


106 CONTINUE 


REPRODUCIBILITY OF THE 


ORIGINAL PAGE IS POOR 


or. os 

1 '■N O 

geos 

r 3 

GCOS 

3 r ' 

GFOS 

'135 

GCOS 

296 

GCOS 

a-?7 

GECS 

.19 ? 

GEGS 

3 9 9 

GECS 

AO C 

GCOS 

AO 1 

CFOS 

A 0 2 

geos 

AO 3 

GF.OS 

AC'- 

GFOS 

4 05 

GCOS 

405 

GCCS 

AO 7 

GCOS 

A OF 

GCOS 

A 0 9 

GCCS 

4 1 0 

GEOS 

A 1 1 

GEOS 

4 1 2 

GFOS 

At 3 

GCOS 

A 14 

GCOS 

A 1 5 

GCCS 

A i e 

GCOS 

A 1 7 

GFOS 

a i e 

GCCS 

4 1 9 

GE-OS 

4 20 

CEO 3 

'2 \ 

G EG 3 

•,27 

GCOS 

423 

GCOS 

4 24 

GFOS 

A?5 

GEOS 

426 

GECS 

427 

GCOS 

4 2 F 

GEOS 

429 

GCCS 

A JO 

GCOS 

431 

GCOS 

A 32 

GCOS 

433 

GCCS 

4 3' 

GEOS 

A 3f 

GFOS 

A 3 F 

GCOS 

437 

GEOS 

436 

GCOS 

4 39 

GCOS 

44 0 

GEOS 

AA1 

GEOS 

A^2 

GEOS 

4 1. 3 

GECS 

AAA 

CEOS 

AM 

GEOS 

44 5 


GCOS 4^7 
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1(»3 Lt! A ;L-LiiA S’- ♦ l 

Jt)ASc (LUASl )= ISN 
KllA 5 Z (L JA Sc ) - l £42 
lvo 'uO 10 I 177* 17c .175*1791 • ID 
177 SI G 1 5 l U 1 *1 .06-4 
Gl) 10 4 u 0 

173 *IG1=oIuH1 *0£“6 
GO 10 AGO 

179 OUS2- CAY-Ud52/c.64C+S 
SlGl-Slol M'iOc-2 
GO TO 400 

130 RE AC { l SCK « 1-00 C ) 

GU TO 30 
290 JslC-1 

GO TO <292,392,494). J 

272 RE AC ( luLR » 1 C > £ > 1 R £ F F< » O b S 1 ,S1GI» tRCLAY , CMANtL 

CHANdL-CHANtL- 1 ; 

IF{NNl*CT.U) 3 1G1=SI GCHG(NN1 ) 

GG 10 90 

393 R2Ab{ Ib^R, 1 072 1 1 WEFR . OHS 1 . S I G 1 . I PE LAY 

IFCNNl.OToO) S IGl =S ! GCHG ( N'M 1 ) * 0. 01 
90 |F (PkcTYP. vT# 0 ) PRET YP=F’RE.T YP“ MOG ( 1 nr.FR , 2 ) 

J - 1 $ AT.NO 
J= v.co ( J « 2 M 1 

IK ( I ><t.LA Y « c U « ] S AT 2 ( J ) ) GO TD 92 
PRINT O 00 0 , l R L L A Y 
GO 10 bO 
92 KK. SAT - J 
•MTYPc-lD 


lPRc= 1 


J0S2= CmY 
SAT £AT = . TRUE • 

GO TO A 00 

4 94 Pc AC< 1-SC* , 1 0*4 J IREFR,0H51*£1G1,SIG2,1GEJ.0F 1 S2 
C if < lsT.c.0 ,o ) Call satcl3(Day> 

IF { N.N 1 • vjT • o ) £ JG1 -SI GCHG(NN 1 ) 

1F(NN2.GT«0) b 102 = 5 IGCHG(NN2 ) 


SI 02 = SiG2*0.0 1 

IF.( FiicTYP. GT . 0 ) PRET YP=PFET YP-POCI IFEFR.2) 


N F E AS - 2 
MTYFL=10 


400 IF ( NCOLL* EQ • G ) GO TO 42 0 
C CULL MEASUREMENT 5 

DC 4 1 u 1= 1 * NCULL 
OU 4 16 J-l, NMt AS 

IF ( 1.M4 J-CULL ( 1 *1 > ) 4 15,413,411 

411 I F ( 1M + J • GT • CUL L { 2 , I ) 1 GO TO 41 
413 3IG(J)=0.000 
415 CONTI NUZ 
420 IF = 1>HNMZ AS 

C set Pf-Ef-R jCiis s i no switch 

PRFKRC=1N0«Nl-.C* a\c, npre .ne • 0 
Pfl EF ; ttC"P^ LA A J* C R • M TYPE , GT • 2 6 
I F ( SA 1 5 A T ) PIETRO--. TP.UC. 
PRE1YP- Pf<t-T YP * 10* IPRE 
NUMiicR-NUModR+KMEAS 



REPRODUCIBILITY OF THE 
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GCOS 44 6 
GF05 44? 
GCOS 450 
GCOS 45 1 
GEOS 452 
GLOS 453 
GCOS 45^ 
CEOS 455 
GCOS 456 
CEOS 157 

geos v:»* 

GEOS 459 
GCOS 4 c 0 
GEOS 461 
GEOS 462 
GEOS *6 3 
GEOS 464 
GECS AGS 
GEOS 46t 
GCOS 467 
GEOS 466 
GCOS 469 
GCOS 470 
GEOS 471 
GCOS 4^2 
GEOS 473 
GCOS 474 
GEOS 475 

GCns 476 

CECS 47? 

# T G 
SJU V ^ 

GEOS 479 
GEOS 430 
GCOS 431 
GEOS *6 2 
GCOS 443 
GEOS 4 6* 
GEOS 435 
GCOS 456 
GEOS 437 
GEOS 4PS 
CEOS 439 
GEOS 490 
GEOS 491 
GCOS 452 
GEOS 493 
GEOS 49* 
GEOS 4 ?5 
G30S 49€ 
GEOS 477 
GF.OS 45f 
GEOS 495 
GCOS 500 
GCOS 501 
GEOS 502 
GEOS 502 
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1STA=ISN 

ir(HYPc.«iiT « 7 ) GO TU 425 
CH Aftu L = L HANi_L ■* 1 
lF(JuoGT*0> CH/N£L=0 
t 25 Ri£CN«J=f-i*CNO< 1 

IF ( KJ IAi.* GT « 0 ) CALL BIAS 
CALL i-A.ViJrtk 

s I g <2 >=o* uoo 

GO U 50 # 

10C0 FC R M« T ( I 6 r 2 1 1 * 2 X * 2 11 » 1 X , I 4 * I b « 1 A * r 6 • A ) 

10 10 FCP.‘MT(j3tl2»tS«?*Al*2l?»F A «2if’>>»2I 1 * FX* 2F3* 2 ) 

1020 FC r 'NAT (i)l V«‘3* v 12 I 1 i F 6 * 3 « F 6 * A , 1 X « ] 1 i 1 X t 11 ) 

1020 rCf-:MT I J19, 3, l cx , I l , 1 OX, F3. 2 * 2 X , M ) 

1040 F0^«I(3X *uo» 7 * F F> * 7 ) 

10 50 FUCih'AT(J5*2.;3X«F5*2.22X,2F3.?} 

1 030 FC3F.VA T ( 1 2 . 2 11 * I A ,022. 16*016.3) 

1 092 FC FMAT ( 1 1 . 1) 1 9. 2 . FL • 3 * I e » l 1 ) 

1 C 9 3 FCT^ATII 1 • D 1 9 • C * 2 F F f. • 3 * 1 6 1 l 1 ) 

10*4 FOR Vi A 1(11 *L19*2«F3«1 |F3. 24" II « O 1 6) 

2000 FOF FAT ( 16*211 * PA * A 1 . 15*2 I C . A 4 • A 2 « 1 1 /•«•*■ ) 

2010 FOR'^TUo ,2 i l . M , A 1. 15.2 l£ , A4/A2. 1 1 P*> 

2020 FC 4FAT( 1 4X . I 4 , 15 . I 4, F6* 4/DI 9* 2 1 
3000 FOT-iVaT ( 1 H , 'iUTIGNi Si 1 *' ROT Ff.UMC IN F I LE * ) 

10000 FC^-Al(lHO.tOX,'*v.fn OVER 200 'COPPLLR P A SSL 5— T ABLE OVERFLOW 
4 0 00 FUS MA I { Ac, i 2 l I C . 1 X i 1 f. * 5X ) * 1X*I4*1X* I 1*12) 

5000 “C^f'AT ( 1HJ//3 1 X* 1C * * CUSEKV4T 1 CNS SELECTED FROM MASTER GEOS 

. 1 0 AT A TAPE AUVGFf.tSJ* tAH) 

:,60.00. FCFMmTC ALLAY SATELLITE* * 1C* * NOT PRESENT * ) 

END 


CE 3S 

50^ 

GEOS 

r r0 3 

GEOS 

50/ 

GEOS 

507 

GECS 

& 0 s 

GEOS 

5 09 

GEOS 

510 

GEOS 

5 l l 

gecs 

512 

GE C 5 

vl 3 

ores 

51 a 

GuCS 

El 5 

GHCS 

516 

GcOS 

S17 

GCOS 

51£ 

GEOS 

519 

GEOS 

520 

GECS 

521 

GFCS 

522 

GEOS 

523 

GEGS 

5 24 

GEOS 

52 5 

GEOS 

529 

) GECS 

527 

GEOS 

n n *- 

GEGS 

52 c 

GECS 

3 30 

GECS 

531 

GEOS 

s*2 
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f Y ri\T> r \\ V 

/ CorACure \ 
f'jr TrmcN 

. XM :days / 

\ F^c^n / 

\ Tam o.o / 


^/^PP£.^R>s n ^ 

oc. RA-re 

N V v X>AtA 


iso 


PCT<f emi/oe 


fAXNXTKPOK \ y eS 


"iPc : T<r('r(rix/- ; t: 
Sic, c‘hom^0 5 


x i Y 

AMf } lC 

v 3 >ata 


160 


(02 


I no 


S OPTICAL 

0& f\7.Tn\att\ 
(Z.LC VO Tr.oM 

V Data / 


no 


£ata 
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150 


ISO 


R SgoonjT) 
R<lCc£_3> For 

2>Opptc(L X>r\TA 


R.CAT? S-5CO^Jl> frC<0&> 
Fvsji> Process 

Mxforr^A ck 
3>ata 


T^oppce^ 
. T>M"A 


15S 


'400 


Sv>(\si 

^FRc'VoersjC'f 
TkJ 'D6PPL5P- 
TAC.Lt* 


CCivi V£* (LT 

To 

P-ftMCjC R_ AT<5 


rss' 


fV\flKC£. SX^ m f\ 
OhAMc^e xf 
Access 


v /kO 


£-<?AX> SC<ToO£> 

E-Cco ££ 

r\ «v)i> 

P EjC> c*3 s,s 



J>ATA 

. - 



*/&> 
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GRHRAN 

DESCRIPTION. 

GRHRAN is a real valued DOUBLE PRECISION function 

which 

© Computes the right ascension of Greenwich, 

© Computes the satellite vectors used in the 

calculation of the computed measurements and 
used in the calculation of the measurement 
partials. 


of 5 
1972 
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NAME. 

ENTRY POINT 
GRHRA1 
GRHR AN 


GRH« AN 

PURPOSE 

INI T I At. IZAT ION 

TO COMPUTE THE RIGHT ASCENSION U- GREEN .V I CM AND 
THE SATELLITE VECTORS USED IN COMPUTING 
KEASLREMENT PART I AL S 


CALLING SEQUENCE X = GRHI? A1{CNV«NSTA) 


SYPKOl 

TYPE 

DESCRIPTION 

ENV 

DP 

INPUT - 

ST AT I CN UNIT EAST* NORTH, AND VERTICAL 

( 3. NST A* 

I ) 


VECTORS _ . 

NST A 

I 

INPUT - 

NUM3ER OF TRACKING STATIONS 

GRHR A l 

OP 

OUTPUT 

- NOT LScO 

CALLING SCQUENCE 

X“GRFR AN{DAY* ISTAJ 

symool 

type 

CESCRIPT ION 

DAY 

DP 

INPUT - 

OBSERVATION TIME IN CAYS FROM JAN 0*0 OF 
THE REFERENCE YEAR FO.. THE ARC 

I ST A 

I 

INPUT - 

ST AT I C N INDEX 

GRHRAN 

DP 

CUT F UT 

- RIGHT A SC F NS ION OF GREENWICH 

SUJROUT INES 

USED 

,EPHc M 

TRUER XE~IX YEFIX 


CCMMON tLCCKS 

INPUT FILES 
OUTPUT FILES 
REFEflLNCES 


COT P RD 

/ P ARAM 
CUVECT 


CONST S 
INTCLK 


CLP H£M 
TPU°UL 


CSTHCT 

XYZOUT 


NONE 

NCNE 

•GSOCYN SYSTEMS CE 


<:rn i n t t . ■* 




reproducibility of the 

J ^ ’ * T T> A P I?' TS POOR 


bUUULt PRECISION FUNCTION GFHR A 1 ( FN V ♦ NST A ) 
IMPLICIT REALMc (A-K.O-21 
COUdLt. PRuCISICN MUCOY 
DIM=NSluN LNV ( ;,NOTA, 1) 

CllPMUl./AP Aka'm/ iNPAP (4 > «NSAT .NGPAQC < E \ 
CCMVUN/CON^T S/FI , C Tv. OP l .RAE.WSRC 
CCM.Yi.iN/Ce PH LM/ AO ( 2 k ) , EO * GSPPEM ( F4 01 


GPHR A 9 
GPHR 50 
GRHR 51 
GRHP 32 
GRHR S3 
GRHR 5^ 
GNHP S5 


t 
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CCKKON/CSTHlT /CIVE TG*STHETG 

CUV»/UN/CUV: ; C 1 /CHAT (3 . 2) , XYZ ( 3, 2 ) . PX YZ < 3, 2 I , PENVl 3 ,2 > *9(2 ) ,«SO< 2 I # 
• XYSC<2) 

CCHVJN/lNTLLK/ThCOTl , THDOT2 ,THDT2S . CM ( P« - » • THLITGO * MIVJDY13 3) 

'CC v.vCN/rf<UPCL/T^Uc (31 
CC KKuN/xYZOLT / >YZ I ( 6 .4 ) . 

P L T OR N 

ENTRY CkHkAN( L’PY. ISTA) 

CALCULATE TIMc CU/ATITlfS NEFOEC F CP RIGHT ASCENSION CF GREENWICH 

« 

• • t D AY S UF TIME uF INTEREST *- 

T2 = I«^lNf { JAY ) 

C • ••F-9ACT I CNAL F/lUT OF CAY CF TIKE OF INTEREST 
. T 3 =. C A Y— T 2 

C COMPUTE EQUATIONS CF THE EQUINOXES 
CAL*_ LPhE M ( DA Y , . TRLiT. ) 

C COMPUTE KIGHT ASCtASION OF GREENWICH 

GP HP A N= T Hi T C 0 + T 2 •* T FDD T 1 + T 3 * T MO CT 2 + E C 
G9MPAN = DM0L: ( gRFR AN ,DTWGP I ) 

C TEST IF- ONLY SATELLITE POSITION IS WANTED 
IF { ISTm.EQ. 0 ) PE TURN 
STKcTCsjs 1 N( GT.KP AN I 
CTr- ETC-JC OS (G RERAN ) 

C OBTAIN STATION PJS11ION RELATIVE TO TRUE POLE 
CALL TRUER! OAY * ISTA > 

C C3TAIN EARTH PIXEL POSITION OF SATELLITE 
DC JoO L- 1 , NS A 1 

XYZ<l.L) = XhFIX(XYZHl,L).XYZI(2,LM 
XYZ (2 iL) = YLF I *(XYZI( 1 , L > iXY;i ( 2 • L >) 

"■* X Y Z ( S ♦ u ) -■ X Y 1 1 { c , i. i * - ' 

C CALCULAlu SLANT HANCL 
P S C (L I -0 • uLiO 
Dfl 'jOO l=l.o 

P X Y Z* l I*L) = X Y Z I ItL) — TRUE ( I ) 

RSQ <L I =nS Q( L ) * f XY2 < I * L ) * *2 
200 I C <I,LU. 21 XY E'C ( L ) =RSQ< L I 
“iT(L)-CiOiptT((<iC(L) ) 

C CALCULATE UNIT VECTORS TO SATELLITE 
DO 225 1 = 1 ♦ J 

325 UHATt l.L J =KXY2 (I ,L )/P(L) 

C CALCULATE UNIT LOCAL VECTOR 
DC 250 1=1,3 

350 RENVt I »l) -UCIPhDI UHAT( 1 * L ) * ENV ( 1 , ISTA, II ) 

RETURN 

END 


OFHP 

56 

GPHP 

5 7 

GRHR 

53 

CP HR 

59 

GPHP 

50 

GP.Hr> 

6 1 

GPHP 

62 

GPHP 

A 3 

GPHP 

of 

GPHP 

A f 

GPHP 

A f. 

GPHP 

■ o7 

GPHP 

6 i 

GPHP 

C9 

GPHP 

70 

GPHP 

71 

GPHP 

72 

GPHP 

7 3 

GPHP 

7* 

GRHR 

75 

GPHP 

75 

GP.HP 

-7 7 

GPHR 

"VA 

GKHP 

79 

GPHR 

30 

GP HR 

3 1 

GPHP 

32 

GPHP 

9 3 

GRHR 

QA 

GRi Tt» 

-35 

UKMH 

1C 

GPHP 

*3 7 

GPHP 

Tn 

GPHR 

39 

GHHP 

9 C 

GPHR 

91 

GRHR 

9 2 

GPHP 

°3 

GPHP 

. 94 

GPHR 

9 5 

GRHR 

9t 

GPHR 

97 

GPHP 

9 0 

GPHR 

99 

GRHR 

100 
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Name ‘ 


1 NOENT 


PURPOSE 

i 

TO COMPUTE X ,Y .2 ♦ S AMD AREA UF SURFACE DENSITY 
BLOCKS 

CALLING s 

r .OUENCE 

CALL I NDENT (SI C> * A DC NS . DLNS.E. AREA. CENTER. DLKLOC ) 

SYneoL 

T YPE 

DE SC PI PTI QN 

SIG 
( 1 ) 

' CP 

CUT PUT 

- SIGMAS CF ADJUSTED SUFFACl DENSITY 

ADENSE 
< 1) 

DP 

OUTPUT 

- A PRIORI VALUES OF ADJUSTEC SURFACE 
DENSITIES 

DEN S£ 
( J > 

CP 

OUTPUT 

- surface density VALUES 

AREA 
( 1 > 

DP 

OUTPUT 

- SURFACE DENSITY SU 6- PL OCX AREAS 

CEl>HfR 

(2.1) 

DP 

OUTPUT 

- THE GF.CCEFTPIC COORDINATES DFTFE SUO-B.OCk 
CENT EPS 

fLKLOC 

(2.1) 

CP 

OUTPUT 

- LATITUDE AND LONGITUDE OF BLOCK CENTER 

SUBROUTINES USE 

DELTA Z 

APE" AS 

COMMON E-LOCKS 

C CNST S 

CPA PAM FLXCLK INTBLK VPBLOK 

INPUT FILES 

NONE 

* 

OUTPUT F 1LE S 

NONE 

■ 


SU3ROUT tNE INDENT ( S I G . A D£ NS C » DE NSE , AR£TA, CENT ELR. DLKLOC ) 

IMPLICIT Rl.Al A—H , C— i ) 

LOGICAL C^PCPF 

IN T;.:G.-;P *2 NLA T » NLCN . N2 XT 

REAL OLA 7 tC-LONtSI GO » C 5 N 

dim-:nsi cn sio < : > .ac jns-c u ) .dense a ) . aflau j • center ( 3, i ). 

• OLKLCr. ( l *1 J .N2XT( 675 I 
COMVCN/CONSTG/GPI .TTwaPt .LCG2PC .CF5FC 

COMM J.N/CP/.A t- M/NST/ « N M A S T .N£T T.ST , h r . 1 M , I AS . NGPC 1 « N G,D C 2 * NGPCOM. 
« NC 3r £ T »T f'PGPR .LI “1 « L I M2' . N PL C C K . M/OJi NT I CS T ,NT 1C -N, INMF 5* . 

• ttCJNST iM.CCNS 

COMMON /PL X-.' LK / SLA T{ -3 75 ) . SL C N < 5 7 t ) . t L AT (6 7? ) , ri_GN( 675 > 
COMM^M/lN 1i L* /TK7 C’T S ( 2 ) «GM , A?_ * A^SC. F L AT . FSQJ2 ( SO ) 

COM*.*un/Sr , ' , «L CK / r • : M 6 75 I « S I G r . (67 5 ) .M ft { 6 7 5 ) . NL GN ( 6 75 J i KISUP CR • 

• KSU-F(224} 

DA TA :i6f il.A T .NS--J LCN/2 . 2/ 

osdlf t h ru 1 ’ r t.icCKs sc that rur.sr to pc adjusted ;p peak fiqst 


INOE 

in:e cc 
JNDE A3 
I NX. *J> 
iNDr 42 
IfJDc 4i 
I NOT a? 
I NO : 4 6 

I MO " c 7 
INC-1 4? 
invr c v 
iNGf 52 
I NOT f.l 
I NC £ sc 
INDE 53 
INDF 64 
I Nr l 5? 
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\ 


NSVr.=NSOLAT*NCBLCN 
Fl=l . Jw C-FLAT 
Fl SO =F a <F 1 

F 2F“ C L^ T * ( 2 « Ct C“F L A T ) 

NBLOCK-C 
NADJ =C 
■: I £ LB = C 
M=C 

OC ;0 N*1 .N SUPER * " ' .*'■ 

IF (SI GO (fit .CO. O.JGC TC IC 

ISia>T(M)=N 
10 CONTINUE 

00 2C N — 1 * N SUPF R 
IFMSIGDCN) • Nl' • 0.2GU TC 20 

M = M+1 

. NSXT(M)-N 
20 CONT I NUu 

C THi CO LOOP TC STATEMENT 500 PRCCSSSCS f ACH SUPER FLOCK - 
DO 50 ; N 5 -2 .NSLPFP 
n=n; x k ns> 

LA T=NLA T( M 
LDN=NLCM M 

IF ( SI GO ( N ) • NF « 0. ) NAP J = NAD-M-L*T *LON 

RLAT -DLAT(N) 

RLCN =DLCN(N| 

• * P.L'A T 2 • = R L A T < . 5 r C 

KLON2 = RLON*.5DC 

TLAT =RLAT /OFLCAT < NSBLAT) 

*. TLAT2=TLA T* C. 50 0 
- TLCN = f<LCN/LFLCAT( NSbLCN). 

TLCN2 = TLCN*. SCO 

DuGLATsc SLAT( NJ-r-F LO A T { L AT ) * PLAT 2 
PL. GLOW- £LCN(M-OFLCAT(LCKJ * c LCN2 

C THL DO LOOPS to toe AND A 5 0 PRCCtSS EACH FLOCK IN A 5PPEF BLOCK 
no 4 50 L T = 1 *L A T 
5CGLN “32-GLCN 
CUNLA T = B::GLAT + RLAT2 
00 4C-J LN=! .LON 
NPLCC K=NF Lt’CK + 1 

C STORE. BLOCK DtNSITY AND UNCERTAINTY 
t^NS z ( NPLCC K) =DuN(N) 

IF ( SI GL ( N > .IQ. C * ) G C TC SCO 
AOtNSL( NRLOCK J =CL M N ) 

«IG( NBLDCK) =SIGC(NJ 

C STOP:-; LATITLL1 ANC LCNGITUCL CT FLOCK CHUT 2 P 
dLKLUCt l .N5LOCK) =CT. NLAT 
CFNL0f< = 0' GLN4-PLC.N2 

IF (CL NL C N . G- . . 360 3 I C“ N LC N = Cl K L CN - . 36 03 

if (c::nlcn .l t . . o r, 3 2 C~NLTN-cr nlo.+ .3603 

• aLKLOC( 2 .NBLOCK) sCcM.CN 
200 CONTUiUi 

sublat-bfglat 

ZiK:GlM-Cr.LTAZ( SLHLAT2 

C TH« 00 LC -IP TO 3C0 / NO 350 PROCcSS XI CM SUfiLLOCK IN A FLOCK 
C-0 L T £ UP = I . N S ».> L A T 
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I NOD 

5N 

lNOCi 

tr. 

iNcr 

c :. 

not 

5-5 

I NP5 

to 

INDt 

C I 

INDt 

62 

INOc 

t? 

I NDC 

6- 

JNDE 

£5 

INDF. 

C6 

I Njr 

£7 

I NPt 

63. 

I NDC 

C c 

! NDt 

7 r 

IND 5 

72 

I NO C 

72 

i no y. 

72 

JNPr 

7t 

INDt 

7 5 

I NOE 

7 f 

INDt 

77 

I Np" 

7 >. 

I NO i 

79 

INDt 

£ C 

I NDf 

F2 

INDt 

62. 

INDt 

e? 

INDF 

£4 

I NOE. 

SS 

INDt 

F.t 

nor 

e? 

I NDI 

£ £ 

INDt 

P'S 

I NDi”. 


INDF 

c * 

INDt. 

92 

I no r. 


INDt 

Ci 

I NO t 

Gf 

INDt 

<33 

lNpf 

97 

INDt 

93 

INDF 

5 = 

I NDt 

ic; 

INDt 

lc: 

INDt 

20 : 

lNDf 

5 0' 

INPL 

1 C4 

! NDF 

2 C* 

INPE 

1 c ■ 

INDF 

IC 

UPf 

. r t 

IND*. 

j :• 

I NDF 

I 2 * 

T NOT 

I 2 . 
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ZCtO =GL L TAZ ( SU3LAT + TLAT ) 

XNDC 

11? 


PSI-SUOLA T+ 1LAT2 

I NDC 

112 


AR 1/ =ARt AS( ZuirGI NtZENC .TLCN) 

inoe 

114 


CLON =SrGLM TLCN2 • 

INC" 

1 1 rS 


£P£I=3ilH(PSI OtG2KD) 

I NOE 

1 ! 6 


£P SI 30= SP si **2 

lNOf 

117 


■CF £1 =D SCA T( l.CDC-SPSISO) 

JNOc 

1 1 & 


PHO=AiI*“l /v SORT(rl 5G^F2F#SFSISO) 

1 NO F 

11*? 


PC L=F HD <CPSI * 

lNor 

1 ?0 


P£L=r.HU 4 £PSI 

I NOT. 

1 ?! 


CO 3t J LN2Uh=l .NS3L3N 

INO. r . 

1 22 


I 5 Lr, - I SLO + l • 

IMOc 

1 23 

C STOP £ A-:. A CF SLP-6LCCK AN-3 FAKTH riX^- X*Y*Z'S Ur SU E- PLOCK CENTER 

I NOE 

1 2- 


AR t*A (IS LO ) — AR I A • 

I NOE 

1 25 


CdNTrR( 1 , 1 SL*J ) =FCL*CCCS(CLCN*C T C2FC ..... _ 

tNon 

125 


CCNTl R( 2 . I SLED = RCL*DSI N { C L C K *[' i_ C 2 F O ) 

Inoc-: 

127 


Ct N Tt-; R ( 2*ISLP)= C SL * • . 

INOF. 

123 


CLTN=CLCN+ Tl.DS 

INCC 

12? 

IvO 

CONTINUE 

INDF 

1 20 


ZtiL'GlN^ZC NO 

iNcr 

12! 


SU<LAT=ELPLAT+TLAT 

INOc 

1 3 ? 

• 350 

CONTINUE 

I NO.' 

122 


be:gln=°cgln+- LON 

INOL 

i -) > 

A CO 

CONTINUE 

I NOc 

125 

- 

05GLAT— Ft'GLAT+RLAT 

INDF 

1 26 

450 

, CONTI NU: 

INOL 

1 2 7 

500 

COKTINLU 

1NDL 

132 


K£ 1 URN • 

I NOT 

12? 


CND 

INDc 

1 4ft 
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^ INOUPT 

DESCRIPTION 

INOUPT is a subroutine specifically designed as 
a part of the Multi -Arc GEODYN program. 

INOUPT performs four basic tasks for GEODYN. 

The tasks that, are performed by INOUPT are the following: 

1) INOUPT reads the GEODYN Input Cards which 
define parameters common to all arcs. 

2) INOUPT prints the GEODYN run heading. 

3) INOUPT reads the GEODYN INput Cards which 
define parameters for a single arc. 

4) INOUPT prints a heading for each arc. 

INOUPT performs tasks 1 § 2 on the first entry , 
and performs tasks 3 § 4 on all subsequent entries. 
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NAME 

I NOUPT 


PURPOSE 

1 > 

TO READ 

OFTIGN/L carls 


Z > 

TO PM NT 

RUN C ESC R I PT ICN3 


31 

TO CALL 

SUBROUTINES TO PSAS C AT A T/P-IS 


CALLING SGGUCNCtT 

CALL I NOUFT ( NARCS , 

/F CKO I 



SVWDOL 1YP£ 

DESCPI PTI CN 

* 



NAP.es I 

INPUT - 

THE NUMBER 

CF -ARCS IN 

the RUN 


ARC NO I 

I NFUT - 

THE ARC NUMBER 


• 

SUBROUTINES USED 

TDIF 
NUMBP2 
POE N1 
c. RROR 

Y HD AY 
CCEFL 
r.r.cspt 

5Y V I f IV 

OLNDRM 
D COS HD 

ONVyPT 

S 1MRD 

PRNTPR 

DOTARD 

CATES 

CLE43 
ELF M 
P C£ ° D 

COMMON CLOCKS 

ALFMPC 
C CNOUT 
FLXE3LK 

pri cm 

VPcJLOK 

APAFAM 
CONST S 
F MODEL 
SI GFLK 

CFLEM 
CCPtil 
1 K IT OK 
S RFELK 

CFPhEM 
CP AR AM 
INTEL K 
TPt BLK 

C GEO S 
CTIMF 

p rt:bl k 

VMAT 

INPUT FILES 

I N TP - 

INPUT CAOD5 


• 


OUTPUT FILES 

C L TP - 

PRI NTER 




SCRATCH FILES 

SC RC - 

1 6 



• 


SUBROUTING lMC>Ut>T ( /NARC S/ ./AF.CNQ/) 

IMPLICIT RlAL *6 ( A-H .C-Z) 

LOGICAL GS:F?> , KJPLC F *T C c ''f'T »V/hSTP» OR RTS * » XY ZFS* • X Y ZL S* . T} At F C * 
PLTL^iMC^cf T . I M TAt .NT MCFL • SUBS AT . -".MPGPR, PArT GP, P.°M AT, 5 I MO A T, 
PCE SI V .H L VC S Y ,LI TP -TS , ST a RTP , ST APT W , HYPKR ,S * OUT N 
LOGICAL*! VKCH N .PR' PFO ,PLHSW , NANG 3 . NAMfc‘7 

IN Ti G^ S *2 I PFfPR.INCPer .CULL ,ISTNC, I MT Y P: ■ . HP AGNt*. EM ISNO. 

OTYPr ,OSTsNC «r. ST\N3* I ST ANC. I ST / i r , f/TY P", NNV /St PR cTYP* ChANGL * 

, 1 HG XC S « NP ♦ NL « dC S T NC « B TTYP*; 

IN ir.G:T*“ CLTC ,p V TP .CUSU-^R .XYZTP, / FCNU. / OCR. SR/C, FSTST A, OF c,T^ ,»f CNO 
C ATP . C LTP* SC r A .FLCTP ,SCRC . At OPC * Fl.CNOl « CRl. P, ATNO. ST A5 TA, ’ 
STAR TO .GLTSTR .PAR VAX 

FT AL RAC .R £ EC .GPS ! G , R V3TOT ,S I GCF G , / S H . A I T I Ml , PI HS I C . 

si o s to tVA^cnv* ji 5 .p; .tmf.f-ias: .-ioitn.tv.cpi « ri/.ssg. 

» CtiNVRG .A r I NO X . SG PR NT , CUTCCN . S r. .S'sij » DP. i-L. 1S T C 
CD LTL.i FFCC 1 SI CN VODf. L . NA * JNAVF. !TN^ ,mTCTY .'-'SAT .LCV!- 

r i v; si cn c : nav. (32 ) .plhsv. 1 1 ) . i lhs * g c<« , 1 i , : mg x cs t c - 6 c , ? > , 

, I SvJA F ( *,C ?*. ) ,C,P SI G ( 9:0 ) . rod _S It. J , CM NT { ?, :),T I r ;S(7)» 

i GP VAL C ( S6 . ) * A ( 5 » 5 ) * N A v '6 ( A > , COS T v u ( o ?S ) ♦ * *. T Y Pi ( t* 7 5 } » f T 1 5 < C ) . 

. KTAPf StA > . 

CCP-'ON/ALP"K/I TNPS(S) .TIPI NG.GL/Nk, A T Y PC ( 31 ) .UNITS* 15I.PLCUT. 


I NO U 

35 

I NO U 

36 

I NO U 

37 

INSU 

Z 5 

I NO U 

3 9 

l NO 'J 

40 

I NO U 

41 

I NOU 

4 

I NOU 

4*« 

I NOU 

4 4 

! NOU 

65 

I NOU 

46 

I NOU 

4? 

I NOU 

46 

INJU 

6 9 

I NOU 

pr. 

t NO U 

ei 

I NOU 

£?. 

I N ) U 

60 

I NOU 

64 

I NOU 

55 
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• HYPHP 

.COMMON /A PAS AV/I N PAP 1 I NPAF J « NGI AS .HS T5T A . NS AT « NGPAPCt PHCNO 1. 

• NP/.F AM .NO I A St. t PAS MAX 

COMMON/Ct U M/l-Lf MST< 6 .2 ) .OFPLLA (6, 2 ) » XNW « I C, FMSTCT 

CC.WON/C-2 c Hr M/JNA f-' r (3 61 ) .1ST APT ( OF 1 ) « t STAND ( 361 ) « 1ST A NO ( 336 ) 

COMM : )N/CGLO£/l S ! A TIC, ( 2 ) .1 PPVPP (A ,5C 1 « f« M f !■'. X ( 2, SO ) , iN T. C C 2 . 5 f > • 

« NCPJ- FP. ,NSI G » NC LLL , S I GOG ( 52 ) . 1M1 Y p 3 ( o C ) . IS T N C, { «j<T ) , CULL (2. 2 0 0 ) 

CC VMLiN/C ONO LT/I G1 . CUTC CN . V.I N CUT , V/ X OU T , l. IT 7 HS . M AXS AT ( 7 ) » N ST AFC t 

• STU- TP .STAFTVi.STAPTa .STAUTC. I NST.FT .OJTSTP 
CO VM3N/CCNST S/C Pi .O TviCPI ,C‘ F AT . DFSLC 

COMMCtN/CO S3 1 /p ANDLTC 2 ) , PC <=?CT (2 > .PLANT <2 ) . APHT (?. )»PP.*(2) 
COMMON/CPtA AMASTA . N-VA ST . f.S T LS T , NL 1 V , V3 1 AS . NGPCI . NGPC 2, 

• NGPC CM «NC S_ST . C PPG P= .LI Ml »L I V2 . f .G-iN • NC NST , NT I L‘S T « NT 1 C CN * 

• INNA SV. .NCCNST , NDCCNS 

COMMON/C TI MIVC A TAF P , D AY P SF , OST A ST . C AYSTP, CAY I NT .DON HIT. DAYHND. 

• ONATC.DOPUl.DOPeic.GTP^T.IYPrC- 

CO VMOISI/FLXH L« /BS7PT( 9C ? ) .OSLNO ( 9 0C ) . STY PH (9 0C I 
CUMfON/FMPDlL/I MOL X 1 . NL :X2\ I NO*. X 2 . tiZ " X*. . CS ( 3C . 3 3 ) . M O C f.L { 6 ) 
CO.VMOW/INI TPK/I L PYMD .1/ PH V * ~ PS T C * I Y P F , If.N^AX , I NNt.", IN. CONVF G . 

• -OF-iis. L( e .2) . r DI TN .1 NS UPS , I 36 AT (£ ) , OFdTSW . XY l c SVtf , XY 2L S’a, P_ TLSW, 

• * OF Dr SVt » K F. P Lf. P . SUDS AT , FAFTGP . PC-MAT , £ MAT NO, 5 IMCAT . PCHS 1 M . 

« M i SC CG ( 9 J 

COMMON/ INTPLK/THDCTI . TMC CT 2 .THOT2S. CN, J ,r, Al-tSC. PLAT. 

• rS032.F r SQ32 ,G M3 ( 6 ) , B ( 2 ) .SCOT (2 ) « PC (2 J » APCV(2), /PLM( 2) SS, 

• 1 HI TAL ,NCf FAT . T H L T G 0 ,^SCCY (A ) ,S T i PS 2 ( 2 • 2 ) . PL VL p -3 ( 2 ) « FPL HP PC 2 )• 

• C 7DL ( 2 I .PTOl (2 > « STPLCY- <2) .ST 2 FUP ( 2 ) . C-DFS ( 2 . 2 ) , AS AT ( 2 ) . 

• MSATtZ ) , VAPSTP<2 ) .ML VC Sw (2 ) » N L CN (2 ) ».A C. C F (2.) . AC C" C ( 2 )*S-PAD(2). 

• LOW ( 3 ) . TOFf-.F T .N3CCY 

COMMON/ PPL! 1 LK/DAYSTA »C?S1 .CHS2.SIG1 , 5 I G? . S c FnC X . 1ST A. 

• • Ml YPL .Nf-'S A S , PPL TY P (2 ) ML. VHr CHN, PPf PPO. P'.CNO 

COMMON/ PK I DPI A L'! w l N ( 6 « 2 ) ,VA C CCV(C.6.2 ) « T !TL.\ ( 2C ) , P^AGSGC 2) • 

e LRGC SG ( Z ) ,t MlSSG(t) * O PAGO (2 ) * CPGD2 (2 ) ♦ F.MIS S 0 ( 2 ) . CC ( 2 ), 

• COO( 2) ♦( VI SSC 2) 

COMMON/ = I G5 LK/SI GSTD (30 ) ,5G = r.N T ( jC ) , I A F "AY (4 > 

COVMQN/ SPP? LX /PHI ( t 75 ) * X LA f-' (6 75 ) »C P ( 6 7 5 > , CL ( 6 7 5 ) . S O ( 6 7 5 ) . 

• . SSD( C75) .NP(6?S) .NL(675) ,NSD 

COMMON/ TP.vr LK /l NT P , CU T P .0 A T P .X Y 2 T P , KL FT AP. PVT P. PLOT P , I DBS, SCR A, 

• ‘ SC - C .FLTP , G F D TP 

COMMON/ WA T /PKF P L P ( 6 .6 ) .SUV1 (27) 

COMMON/ \S«LCK/b I ASO ( 900 ) . l : I ASSG ( 9C 2 ) . EST ANO (900 > 
cOU VALDNCT ( PSf C .CPSLC) , ( JSTANC .FA NO CT ( 1 > ) . 

• ( INC >C S( 1 .1) .3STPTC ) ) . (GPS 1 G (1 ) , 5 1 ASO ( 1 ) ) . ( PL HS I G < 1 ♦ I ) . 

• b S TF T ( 72 1 ) ) . ( P LH S w ( 1 ) . n T Y PL ( 2 S3 ) ) 

to LI VAL t;NC* ( I S UP' C ( i ) .PHI < 1 ) ) , ( c AF r. I 0 , NA MH3 ( 1 ) ) . ( N AM f 7 , NA M(- 7 J ) 

£.OLI VALPfiC: ( STMO( 1 ) , NP( 1 ) ) . ( 9 FT Y P." ( l ) , NL ( 1 ) ) . ( C.T 1 . r T 15 ( 1 ) ), 

« < T2.DH5U* ) ) .( tb .C TI G (3 ) ) . <T« ,C T 10 (A ) ) , (TS.OTl 5(S ) ) 

DATA fiC AF DS/J 2/ .DASH /I H-/ 

DA7A Cj K; N‘: /CHCFOIT ,6hFAATh . 6 HS A T . 6MT 1 CCS . €. h HCj J I L S. GH CP / C, . 

• CHSUL-SAO .oHCLTPUT ,6 hSI GVA .'jH&TfP « F.HST AT. ST ♦ 6 HCQPP FL . 6H5 I A f. , 

• CM V>- PC C V »<-' Hh C I T .6HF T.SIO . C H F hi C • 6 M *. A F I • (>TUU .6HFLUX . 

• .C H 5T A PUS . V HP -.C CD “ i 6ML AT / *t Hfv/.r P X . 6HS I ML AT , 6 HTCL S • 6M9ST APT. 

• CMSUPF ,CK. LCUT ,6HCr : F .CHFf IAS .AhS'GCAT/ 

DATA ••OMNT/-H: OUATICk.f.HS CP v C T . 2 H I C N . T P V / 9 I AT 1 C . F l-fj.r L F3UA. 

• frfiTICMS/ 

OAT/. UPLirS/AM LUNAR, t.H SCLAP.6H V . NJ S . 7 MM / FT I AM. 7 HJUP I T * p , 

. GtlSATLPN/ 


1NOU 

ES 

I ND U 

£7 

INOU 

se 

I NO U 

50 

INDU 

to 

I N3U 

t\ 

IN3U 

t2 

I NOU 

F3 

INDU 

£4 

THOU 

£5 

I HO 'J 

£6 

I NOU 

67 

I no y 

£6 

THOU 

£9 

I NOU 

70 

1 NO U 

7 J 

I NOU 

72 

! NOU 

73 

I NOU 

7A 

I NO U 

7S 

I NOU 

76 

1 NO U 

77 

I NOU 

7F 

I NOU 

79 

! NO U 

ec 

I NOU 

6 1 

i NOU 

t:7 

I NOU 

E2 

I NOU 


I NOU 

65 

T NO U 

66 

TNDU 

P7 

3 NOU 

eo 

I NOU 

ec 

I NOU 

sc 

I NOU 

9! . 

I NOU 

92 

IN3U 

9 3 

INOU 

9^ 

ZHOU 

90. 

INOU 

96 

I NOU 

9 3 

INOU 

93 

1 NO U 

99 

INOU 

1 CO 

IMOU 

1 Cl 

INOU 

ICC: 

INOU 

1 C.2 

I NOU 

l CA 

I NOU 

1 05 

I NO U 

T C6 

INOU 

107 

I NOU 

j "0 

1 NO U 

IOC 

I NO U 

1 ' f 

INOU 

1 1 1 
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CA 7A Tl Dc S/5HLUNAP.5H ANP , 5 HS 0 L A K , 5 H -FFn.SKTS I . 5PNCLUDt 2H5D / 
DATA HlRT2/rHK-.RT2/,S:0U':N/.r/,LSr./ iKTAPw-'5/At'C/ 

AIT1 '1E( C S7ATT) =TDIF (A .3 .DOT APT ) /0,64 *- 4 
DO f> 0 I = 1 » 3 C 
CC SGPf NTC I > =S1C STD C 1 > 
i«.lm=mttp:- 

IFCA^CNC. N~ «C ) GO TO 100 
C INITIALIZE FOP -COVMCN OPTIONS 

LAKC—NAF-CS . . 

£ TAFx TP = .F ALSC a * 

ST/.A Tw.-,F AL£: . 

£ T A 9 T A - 1 . 

ST^rio-i 

NL>)CiG=C . 

N[- >0*- 0 — C 
INSLPP -2 
NSTAPO- C 

NSD=C ‘ , 

NDCONS-C 

call CLFA K( JMAVL ,1326 .1 I ’ 

CAlL CLr.AF(F?TPT,4C50 .i ) 

■CALL CLtAKC Cl A SO ,2250 ,1 ) 

NS7 ; ;ST=C 

RMSTOT-IOCC. 

NK FC F L — • F AL £ T. • 

GO TO 2 CO 

C INI IX/ LI Z£ FOR ARC CPTI CNS 
ICO 

I F ( A K C N L • L Cl • L A t c ) S2 QUE K = . F A LS L • 
tLCUT^C.COC 

NL* >0? G = N0 XC VI ' • 

JSAT1DC 1 ) =C 
ISAT1DC2>=C 
KC*>0?- 0 = ND XC He. * 

NGP/AC=CGC 
Ar.CHCl =A7CNC 

C SIT DG AG C INTEGRATION DL FAULTS 
DO .1 jO I = l ♦ N £ A 7 

IF (P:-RH H I ) *G 7 t b. CD2 ) GC TC 1 2 G 

IF (OAJ-. LA< 2 ,1 ) . GT. 1 . COG . ANO. COT FFC < L LLMST < 1 * 1 ) * c L 5'MST ( 1 t I ) ) 

4 « .GT. £1 .S259D+1 2 ) GC TO 120 
CO C I >=2 .200 
CK/.GCC 1 )= 2 . 2 ? C 
OK AG SG < I ) - v * sC 0 

120 IT (UK 3: LA (2 .1 > . LT. 1 .OC-2. AND. PC RhT ( I > *GT * 1 *SD3> t T fPS Z ( 1 . 1 ) s 
• P e 9H TC I >« 3. 6495570-3+86 . 72566CC 
Ct DC I ) = C * CD C 
CFG5UI ) = C • CC 0 

of go sac n .u: o 

VAKSTPC I) sCh 5! LAC 2 . 1 > .GT. C.2L0 
IF ( VA -iSTF(! ) J STCPS7CI ,1 > = 25.CGC 

IF C L F \G c C 1) .GT.C'.C:0. AND. . fiCT. VAF£ TP(I)J ST £ pS 2 C I ♦ 1 » = 7 5 . C CO 
IF < £ TEF £2 ( I .1 ) .GT .4 .CT ^ ) ST* CSZCI.! >=4.0 D2 
JOO £T- C ’S7( I «2J=S7i.P3 7CI *1) 

C Kf a; CPT I JN c At 0 

20 0 Ft A*. < IN TP Cl C 4 .ZNC-OCC ) C A F£> I c ,I/*f.AY*LTl«T2*T2,Tc,T5 


I NO U 112 
INOU 1 1 3 
INOU 114 
1 NO U 115 
INOU 116 
INOU 117 
INOU 118 
INOU 119 
INOU 120 
INOU 121 
INOU 1 ?2 
INOU 123 
INOU 1 24 
INOU 125 
INOU 126 
INOU 127 
INOU 12S 
INOU 129 
INOU 1 2 C 
INOU 121 
INOU 132 
INOU 133 
INOU 134 
I NO U 13 5 
INOU 136 
INOU 137 
INOU 133 
1 NO U 13 9 
INOU 2 4 C 
INOU 141 
INOU 142 
INOU lO 
INOU 144 
INOU 145 
INOU 146 
INOU 147 
I NO U 14 3 
INOU 149 
INOU 150 
INOU 15* 
INOU 152 
I NO U 15 3 
INOU 154 
INOU 165 
INOU 156 
INOU 157 

Inou iee 

INOU 159 
INOU 160 
INOU 101 
I NO U 102 
INOU 1 6 3 
INOU 164 
I NO U 16 6 
INOU 166 
INOU 167 
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C DSTLF.MINL T 1PL C" CARD *FAO 
DO 230' 1=1. NCARC 5 

IF (CA^u ID.* Q.CDNAfC ( I ) ) GO T C ( 4 C 0 , 4C 5 . 4 1C , ft 1 5 . 42C » * 2 5. 4 3C , 4 35. 

« 44 O.AftS.ftGQ.ftSG.AAG. 470.4 m ,4B5*ft9 0,475.4.95.rCC»r5C.6C0« 52 5, 

• 3CC, 21 C ,32 0 .34 0 .35 0 ,360 .SCC ,27C . 3 3C > , I 
250 CONTINUE 

C ILLLGAL OPTION CAPO ~ PAINT LFROF MESSAGE ANC STOP 
CALL iR FUR (* 2 »C AFDI D ) 

C fcMATRX CARD 

30V* *JMATNG=f» T I * C. 50 C ' 

PbF* 7 sT2, GT, C • OCO 
GO TO 2 C 0 
C SIMFAT CA=D 

31 0 SlMDATs, TFUF* 

PC f’.SIM— JAFFAY(I ) , C:0, 0 
GO TO 2 CO 
C TGL E C AF D 

32C J- IaFRA >( 1 ) 

K»lAf?i/ Y< 2) *1 0+ I A FRAY (4 ) 

L = T2+0. TO 

IF<ARCrJC.i*O.C ) NDCON S -L 
IF(K.GT.C) N: TX4-MI N’G(30 .MAX0(3 ,K) ) 

IF ( J.fc.O .C) CO TO 32 5 
IF ( J *G T . 2 ) GO TC 325 

(DTI . GT, C . CPC > FTCL ( J) -DTI 
IF ( T2.G 1 . C, CD C) CTCL(*l)=T2 

.. GO TO ?; C 0 . . ‘ 

325 VC 326 J«1 i2 

I c (DTI . GT.C ,OCC) FTCL(0)=DT1 
IF( 72. GT. C. CD C) CTCL(3)=T2 
'326 CONTINUE 
GO TO 2 CO 
C RST/RT C A AC 

3ft0 IF ( A»CNC. N" .C > GC TO 200 ' 

IN ST4 T= 1^ FF AY( 1 ) *1 C+ 1 AFCAY (2 > 

OLTSTR=IaF c AY(3 ) *1 C+ I ARRAY <4 > 

ETA p. TA = C7T + C. 50 0 
STAR TG= 12+ C .SCO 
STA- TA = A‘A *C < 1 *£TARTa> 

C START>J=frAXC< ETA FTC, I ) 

£TART0=1 

£ T AA 1 C -INETRT«GT,0 • - 

ST/A T* = CL7S IF .GT. 0 
GO TO 2 CO 
C SUA C :-.N Cart 

350 IF(aADNC.M . 0) GO TO 200 
N£C = N5D + 1 
EC (N£C } =0 71 
S$C< N50 ) -0ALS(T2J 
PH I ( N 5" ) = 1 T 
>L A^{ MS*~ ) =T4 

FT AC < IMP,1(JC4 .’I N3 = 9 ? ) 1 CAFL IC. . I/FF AY , OT 1 ,T2 ,T 2, T 4 . TO 
IF K-\-f.i:j.F. ; LU<) CALL F S ( 1 c , C*>N A*-i “ < 2--U ) 

Nf ( M CD ) = '■‘t- X C < I A f- P A Y ( 1 ) *10+ lAGW/.Y (2 ) , 1 ) 

NL ( NS y ) = MAXC ( I A F *i AY ( 3 > •! C + I A FRaY (4 ) , 1 ) 

IF OT! .L.* . C.CC 0) CALC C SA.'ji* (l 5 ,CA f Cl C ) 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 

8.0-319 


INOU 

x ce 

INOU 

1 69 

I NO U 

1 70 

I NO U 

1 71 

INOU 

17? 

I NOU 

1 72 

INOU 

I 74 

INOU 

I 75 

INOU 

176 

INOU 

1 77 

INOU 

I 7 8 

INOU 

179 

INOU 

i eo 

I NO U 

te*. 

I NOU 

1 62 

INOU 

l 63 

INOU 

J fa 

INOU 

I P6 

INOU 

1 ec. 

INOU 

1 £7 

INOU 

ies 

INOU 

1 69 

INOU 

1 90 

INOU 

191 

INOU 

192 

INOU 

l 9 2 

INOU 

I 94 

INOU 

195 

INOU 

1 96 

INOU 

197 

INOU 

195 

INOU 

1 99 

INOU 

2 C 0 

I HO U 

201 

INOU 

2C2 

I NOU 

203 

1 NOU 

2 CL 

INOU 

20 5 

•INOU 

2 C 6 

INOU 

2 C 7 

INOU 

2 0 S 

INOU 

2 C 9 

I NOU 

21 C 

INOU 

21 1 

INOU 

212 

INOU 

21? 

INOU 

214 

INOU 

215 

INOU 

21 f: 

INOU 

21 7 

IN )U 

218 

INOU 

21 o 

INOU 

? 20 

INOU 

2 2! 

INOU 

222 

I NO U 

2 23 
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DP(NSD> =DTl 

IF < T2. LF; ,C .OOC ) CALL E ftFOR ( 1 5» ♦ OPT I D 1 

DL(NS01=T2 

JsNP( NSP ) *NL( NSC ) 

NDCN =ND f;N+ J 

IF CSSDC KS2) «GT. 0»0) NCE KST=KCr.NST+J 
GO TO 2CC 
C ELCLT CARD 

360 :-LCUT=r T1 • , ‘ - 

CO TO £00 ‘ 

C EBl*S -C* r O 

376 IF (/.r-.OMC, C.C,0 ) GO TO 200 

J— 1 A R RA XI) *1 (. 0 9+ I AftFAY (2) Ai CL+ I ^ftftAY (3 1 * 10 + I ARRAY ( 4 ) 

IFtJ.LL.O C-O TC 200 

DO 375 1 = 1,5 ' ‘ . 

K=DT1 5< I 1 +C .500 
I F < K • LL’ « 0 ) GO TG 375 
IF(K*j 7 .14) GC TO 375 
IFCN'SIASC.Gn# 6751 GO TO 200 

MB IA S.;=K2 I A £- 4 1 . 

SF. STN9( KB I A 5.' ) ■= J 
Bf T YF>-( Nb I A SL ) =K 
375 CONTINUE 
GO TO 2C0 
C S"6 CAT CARD 

380 IP {ALONG. FO.O) S5 QUO N =. T R U7. « 

GO TO 2 CO . 

C’ Oft 3 IT CAR J 
4 00 C-BTS*=* TRUE'. 

DF AG SG( 1 ) - C • OC C 
CK AG £G( 2 1 =C . 9CC 
DR G? GG { i >=C.OC0 
DftGD S3< 2 ) =0 .OC 0 
XYZ- £**=• TRUE. 

ft V TR> = l C « I Aft A A Y ( 1 )+ I A ft R AY ( 2 1 
e s ~c =i-v> i' r , 

IF (ft VTP .Cl T. C > fcPI Tfc { ft VTP) C START .1 i: FY FD, ICPHM* BSEC. ( EL CMST( 1,1), 
• 1=1*61 
I Y <TR T^DTi+ .500 
I YT-ND =T 3 + • 5 0 0 
1HF=T2/1 CC. C C* 1 .D-4 
SS:C*T2-rFLOATU HM*1 OO) 

dorm t= tv*a y< i ystrt *i hy .srci 

OOft’2 l T-5CRB I T+M TI M£ (DOftOITl 
DA TA’IP — D ft’ I N] ( LA TAt. P.DCRBI t } 

IHF=74/1 JC.r >+l .0~+ 

' r;C=T^“CFLOAT( IHMV1 OC ) 

DA Yr NO - Y MD/. Y< l VEND .IHS'.SFC) 
t* A YE M'J = CA V; K - * A 1 T I MG ( D A Y t. NO 1 
DA YST->=CA Y: NO 
GO TO SCO 

c ih c»-o REPRODUCIBILITY OF THE 

° S ORIGINAL PAGE IS POOR 

J= IG VIA ft ft AY ( 7 ) ♦ I A FRAY <4 > 

IF | J.GT.01 IMt Xjej 


I NO 0 224 
INOU 225 
I NO U 2 2 6 
INOU 227 
INOU 22C 
INOU 229 
INDU 220 
INOU 231 
INOU ??2 
INOU 233 
INOU 224 
I NO U 2 25 
INOU 226 
INOU 237 
INOU 228 
INOU 239 
INDU 2 AC 
INOU 241 
INOU 24? 
INOU 243 
INOU ?44 
INOU 245 
INOU 24 f 
INOU 247 
INOU 24 6 
INOU 24 Q 
INOU 250 
INOU 2 51 
INOU 2 52 
INOU 2 53 
INDU 254 
INOU 255 
INDU 256 
INOU 257 
INDU 25b 
INDU 259 
INOU 2 cD 
INDU 261 
•INOU 262 
INDU 263 
INOU 264 
INOU 265 
INOU 266 
INOU 267 
INOU 26 P 
INDU 260 
INOU. 2 7 C 
INDU 27J 
INOU 2 7? 
INOU 273 
INDU 274 
INDU 2 7*5 
INDU ??6 
INOU 277 
INOU 27p 
INOU 27ft 


v 
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XNU* X1 = PA XO(4 ,1 NOiXl ) 

INtc. X js f'A XC (2 §1 N'D E X 3 ) 

I NO"; X 3- F I KC U NO ?. X 3 ♦ l NCr. XI ) 
IF ( A r * C N C « N v « -3 ) GC TO 2 CO 
IF (DTI. GT.C »?CC) GM-^Tl 
IF ( T2.G 1, C. CC C) 4£=T2 
IF (T2.G 7. C. CD C ) FLAT =73 
N1HCFL-15.G T. C.DO 
IF (T4 *l:*.# C. cc-ci GC TO 2 C 0 
no A 06 J=l,20 

•DO 4 C6 K - 1 «' 3 3 

*C6 C5( J »<> = C ,-jCO 
GO TO 2 CO 
C SAT CARO 

410 J- lAFtfA Y< 1 ) 

IF ( J.CQ • C > GO TO 4J 2 
IF ( J.GT .2 ) GO TO 412 
ASAT< J) *0 n 
MSAT( J) =T 2 
ISATIOt J ) =T3 + C« 50 0 
GD TO 2 CC 

412 DU 41 J j = l , nsa t 
ASA7( J) soil 
MSAT ( J ) = T 2 

413 I£AT10< J) =T2+C. SDO 
GO TO 2 C C 

c C A F "J 

^ 4 C 2 • ! r u< 'x.'. « 0 ) . UO I U V 

LG » - i i i -D 7 i 
LO VI ( 2 ) = T 2 
LO \r < 3 ) ~ T 3 
GO TO 2 CO 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


C BOD I 2 S C A5 i 

420 .J- IAA-:A V( 1 ) 

K-IAFW. Y(2) 

IF (K, GT.C ) K^CDY = MI NC (6 * VA XO {2 * K ) I 

if { j, ;o . c .nr«. j.gt,6 > go to 200 

MDOIJYf J)=L’T1 
GO TO 2 C C 
C OP AG CAPO 

425 Jl -1 ' 

J2=NSAT 

J — I A f ?' A Y( t ) 

IF ( J,CO.G,OF, J.GT.2I GG TO 426 

Jl-J 

J2 -J 

426 00 425 J-Jl « J2 
Ct< J)~f u 

OF AGC( J >=0T1 
CP AG C3( J) -7 2 

IF {C i: . GT. C .or 0) GO TC 427 
T 2 =0 • 6C C 
14^0. A C 

nil c vot j) = i: 

OF GC 0( J ) - T 3 
428 DKG: £T( J) = 74 


INOU 26 C 
1 MO U 2?: 
INOU 262 
IMOU 2 63 
INOU 264 
INOU 265 
INOU 266 
INOU 2P7 
I NO 43 2 65 
INOU 269 
INOU 25C 
INOU 251 
INDU 252 
INOU 253 
INOU 254 
INOU 255 
INOU 256 
INOU 2 97 
INOU 255 
INOU 255 
INDU 3 CC 
INOU 3 C J 
I NO U 302 
INOU 3 03 
INOU 35 4 
INOU 3C5 
INOU 3 C 6 
I NO U 3 C 7 
INOU 306 
INOU 3C9 
INOU 3 l C 
INOU 311 
INOU 212 
INOU 21? 
INOU 314 
INOU 315 
INOU 31 t 
INOU 217 
.INOU 718 
INDU 315 
INOU 220 
INOU 221 
INOU 222 
INOU 323 
INDU 324 
INOU 325 
INOU 326 
INOU 22 7 
INOU 326 
INDU 325 
INOU 33C 
INOU 3 31 
1 NT U 332 
INOU 332 
INDU 3 34 
INDU 325 
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go to z co 

C SOL PAD CATO 
A3 C Jl=l 

J2=NSAT 
J = JAFPA T( I } 

]F(J.iO.C.OP. J.6T.2» GO TO 431 

J1=J 

J2~J 

431 DO 4 3* J~J1 ,02 
E«I SS{ J 1 =L-^l 
cmis<o( j) =: n 

432 EMISSGI =72 
GO TO 2CG 

C OUTPUT cat: 

435 RATiOTl 

1 EC T 1 * Lt: • C *D 0 1 GO TO 436 

OR ATi. “0 Tl +3 Tl *< A1 Tl f-F (r STAPT 47 . DC } - At T I Mf. (05T / PT ) )/ 7 .DC 
CPA TL=C PA TL /6.6404 

426 IF U A.P- A Y( 1 ) . LC. v. AND. I ARC AY (? ) . , 7 C.O ) GO TO 4 37 
>YZ CT $“/= I Apr AY ( 1 ) . O. 1 . OS. I / PRAY ( 1 ) . f 0.3 
>Y2L £4= 1 A SP AY ( 1 } • r C. Z. C F. I ARRAY { 1 ) • r.Q .3 
-gc r-p sk- i array: z ) ,ct, c 
4 37 PL TL S\<= I A?F A Y ( 3 ) .GT.C 
top 2 “ T— T 2 .gt. c.nc 

KLPLi- R-lf PP/Y (1 ) . GT. c . AND. I ARRAY {4 ) „ GT .0 
J- 13+ Vo EC C 

• .«1F (. J * v O-o/j-* O P ... J« E;CU <J )■ -KC-P-TA F ~.J 
PA P T G’- 1 — T4*GTo C. SC- c 
GO T 0 2 C v 
C SIGFA C.4R0 

44 C N £ I G = N S I G 4 1 

I s ta’-o t i + . cr 2 
MT No-rTa+.SC'l ' 

15 TMlit rj « 3 GI = 1 STA 
IM.TYPLt NSIG ) “FTYPL 
£1GCMG< NSIG ) = T 3 
IF (I STA .GT. C) GC TO 2Z0 
IF (MTYPSJ* L; *0) GC TO 44 2 
SGPF KTl N T YPl ) = T3 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


IGfO it. Sf*! KC (1 5 • PAXO <5 '1 cr«o *P ) ) 

446 01=1 
J2~ 4 

l c ( J.SG.C.OF. J.GT.4) GO TO 446 

J1 = J 

J2=J 

4 4C CO 44 7 J = J1 ♦ J2 

I F < 0 T l • G T 4 > : C ) ?T : ;PSZ(J,1 ) =0T 1 

IF ( I-TCEF.GT. r .) rr.rLC. ( J,1 ) "I CM 1 A 


GO TO 2 CC 
44 2 DO 443 1 = 1 * 2C 

443 SG Pk NT( I ) = T 2 
GO TO 2 CC 
C ST? P C'A C C 

4 4 D J= I A A- A Y( 1 > 

IOPC; IAFF AY{ 3 ) *1 C+I AFPAY (4 > 
IF ( I n-.C i. P « L ? • C ) GO TG 44 6 


INOU 336 
I NO U 3 37 
I NO U 3 38 
INOU 3 35 
INOU 34 C 
INOU 341 
INOU 242 
I NO U 343 
1 MO U 3 4 4 
JMOU 34 5 
I NO U 34 6 
I NO U 247 
I NO U 3 4 C 
t NO U 349 
JNDU 350 
INOU 3 51 
INOU 352 
INOU 353 
t NO U 354 
INOU 355 
INOU 356 
1 NO U 35 7 
IMOU 250 
INOU 359 
INOU 363 
INOU 361 
INOU 362 
JNUU 36c 
INOU 3 64 
I NT U 365 
INOU 366 
INOU 267 
INOU 366 
INJU 369 
INOU 37C 
THOU 3 7 J . 
INOU 272 
INOU 373 
INOU 374 
INOU 275 
INOU 376 
INOU 377 
IMOU 378 
INOU 379 
• INOU 36 C 
INOU 361 
INOU 3 62 
INOU 3e2 
INOU 2** 
INOU 36= 
INOU 366 
IMOU 3R7 
INOU 3 P 0 
INOU 2 fq 
INOU 290 
INOU 351 
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IF C J .GT .2 ) GO TC 44 7 
IF < T2,G T. C. CO C) HLVTFC(J)=T2 

*ir< tj«g t. c« c:* ci 03 l::fb( j) =i3 

IF < Ta.c 1. :* cr 0) STL PUF( J) =T4 
IF c T5.G 7. C. COO STPLOM Jl =T 5 
W F STP ( J ) -I AW4A*Y( 2> . GT, 0 
HLVOSV.f J)=I/.= WAY<£).EC,2 
44 7 CONTI MUf! 

GO TO 2 CC 
C STAr. ST CA-C 

430 IF (AFCfJC. s; r , 0) GO TO 20C 
I 5N=OTl +C ,£t 0 

1 S T=NL’-1ft c 2< I SN , I STANC ,NST:ST > 

IF < l ST. G T.C ) GO TO 452 
N S TZ S T= N S 1~ ST* 1 
tST = NSTZ£T - 

4 52 IS TAN^< I ST) -I SN 
S.ST4N0( 1 $ T } -I SN 
J£N=T ; j+ C, SO G 

IF ( J5N. U . C .OF. J5N. SO. I SM GC TC 453 
5i$lANJ( I ST) = J SN 
GO TCJ 2CC 

453 p LhSv.( I ST ) = IAkFAY( 1 ) . KZ . 1 
NMAGT-NVA ST 4 1 
PLHSI G( 2 , I S 1) =T4 
IFtPLHSM I ST) )GC TO 454 
PLHSI Gl 1 , I S 1) =T2 
FLHsU( 2,I51)*TJ 
GU TO 2 CO 

454 PLHSIGf 1 . I ST) =T? *FSCC 
PLHSI G( 2 » I ST) »T3*PSHC 
GO TO 2 CO 

C C03K2L CAAC . ■ 

455 ISNOTlt.SOC 
IS 1 = 0 

IF (N ST_ ST.GT.C) I S7-NU*OP2( ISN, I S T A N C ♦ N$TFS T ) 

IF { I ST, GT. 0 ) GO TO 457 
NSn ST = NS II ST*; 

I S 1=NSTF ST 

457 I S7A\‘J( I ST) =1 SN 
PLHSI GC 4 . I ST) -T2 
PLHSI G( S . I ST) =T3 
PLHSlGt t » I ST) -T4 
GO TO 2 C C 
C 6 I A S C A r 'D 

460 IF (AGCNC.LI ,C) GO TC 465 
Nb I A S=N? I AS + 1 
Bl AS C( Mb! AS >=CT1 
01 ASSG( Nb H S> =T2 
I WI - T 3 / 1 . OF 6* ! . CL- 3 
T 2 =T 3- 1 « Of oC^LCATt f YN'O) 

ihv=t j/i . :: 2* 1 . 00-4 

s:c = T 3~ 1 , C3 2*r FLOAT < IHMJ 
IF ( I Y iG 1, C ) , : i 5 T i- t ( sn j AG) =y » OAV ( IY f*[ . I HM, s SC ) *AIT IM C. ( OS T APT ) 
IF(lY\ .ro.o !' STTT< r.fa/5) =C AT 
IYNO«T4/I,CCfe«l* 00- e 




I NO U 

392 

I NO U 

393 

Z NO U 

394 

INOU 

295 

INOU 

3 96 

1 NO U 

297 

INOU 

390 

I NDU 

399 

INOU 

a or 

J NO U 

AC! 

I NOU 

4 C2 

INOU 

4 C 3 

1 NOU 

AC4 

INOU 

4 C5 

INOU 

4 06 

INOU 

4 C 7 

INOU 

4CF 

INOU 

4 09 

INOU 

4 t 0 

INOU 

41J 

INOU 

412 

INOU 

413 

INOU 

4 1 4 

I NOU 

4 IS 

INOU 

416 

INOU 

4 1 7 

I NOU 

41 e 

INOU 

4 1 9 

INOU 

420 

INOU 

421 

INOU 

422 

INOU 

423 

I NO U 

424 

INOU 

4 25 

INOU 

426 

INOU 

4 2 7 

INOU 

42 O' 

INOU 

4 29 

INOU 

430 

INOU 

431 

INOU 

432 

INOU 

433 

I NO U 

4 34 

INOU 

4 25 

I NOU 

4 26 

INOU 

427 

INOU 

429 

INOU 

429 

INOU 

440 

INOU 

441 

INOU 

44? 

INOU 

443 

INOU 

444 

INOU 

4 45 

INOU 

44 6 

INOU 

447 


to 

ft n - 
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7 4 = T4- 1 « CC d OF LCA T( I Y } 

ihm=t4/i • cr z* i . or~c 

S>‘C~ T4- l.CC ?<CF L0AT< IMF) 

I c ( I Y M . G T « C> »’ Sr NO ( NR I ^ S) -Y^CAY { IY«D» Jhv, s CC) *a:t IM fc*( DSTABT ) 

IF ( I YMl .vC. r> SSI'M < Nhl AS) sD/TAE F 

t*-S1ANO( N5 I A S) =1 COG* I Af'C AY (1 ) +1G 041 AF9/Y <2 ) *10* lAF PAY ( 2) +1 APQAY( A) 
3T VP£< Nf‘1 AS } =T5 + C. 2 uO 
GO TO 2 CO ♦ 

465 J- 1 

¥k IT-.(0L7P.446CC> CAKDIC.J- 
CALL "PNORCIC ,C AFD1 D) 

/ GO TO SCC 

C VAK CO V C A “ . 

470 J= lAR^A Y< 1 > 

KslAKSA Y( 2) 

L=IAFX.AY(3) 

J2 — 1 ‘ . 

Jl~2 

IFC J. 'Q .C.OF. J. GT.2 > GO T c' A 71 
J1 - J 
J2 = J 

472 DO 4 74 J = 01 ,02 
IF(L.GT.G) GJ TC *72 

nr a:< imip,i ccc-3) < vafcov< n. n , j) ,n-i *6 ) 

GO TO 473 

4 72 FL'ADt IN TP .I CC (.3) ( ( VA PC CV ( N » V * J ) «K' = i »6)*N-l«c) 

473 IFtK.iO.C) GO TC *74 

• Cl'. LL Li V S » t 1 * O ) , A . 3 . . T FU2 . .PKjrPLR ) 

CALL ON VLr-T{ 6 ,pkcPLC .6, SUM1 ) 

DO. 467 1*1 it . 

DO 4 q 7 f\ — 1*6 
A < I . n ) = c . cr C 
DO 407 V = 2 t 6 

467 A< = M 1 »M+PKf.PLP (I t M) ^VASCCV (w. N. J) 

CO 46» 1 = 1,6 
DO 4 60 6=1 .6 
PSLM=v* CO C 
DC = 

465 P $L^=P£ L V + A < I , M) «?P KT: FLP ( N t * ) . 

469 VAFC O V( I, N « J ) =P SL M 

474 CONTINUE 
GO TO 2 C C 

C 0A3 1 CA^r 

475 I VST? T = DT1+ *AL C 
I Yi.N0 =T3* .LHC 

INV= T3/1 CC. C 0+ 1 . 0-4 

REPRODUCIBILITY OF THE 

ooR r .ii=A i t i w, t ccpoi ) ♦ oc=9i ORIGINAL PAGE IS POOR 

TOR; f 0=1A 7" AY<i ) ,GT. c 
!HV=T4 /: CC. CCX 1 .0-4 
£1 C = T--DF LCAT< 1HV*1 COI 
DA? •'■*) . = Nw:./ >( 1 Y: AC . 1«-F*V C) 

dcm » : .» : c' v V < a i t i b ~ < go c r.\ 2 ) 

DALIP T-C . 030 
DO 4 7c 1=2, A 


IMOU 
1NJU 
I NO U 
IfiCiu 
INOU 
I fnu 
I NO U 
INOU 
INOU 
l NOU 
INOU 
INOU 
INOU 
INOU 
INOU 
I NO U 
INOU 
INOU 
INOU 
INOU 
I NO U 
INOU 
INOU 
INOU 
INOU 
INOU 

1 NOU 
INOU 

2 NOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
IMOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
1 NOU 
IMOU 
INOU 
INOU 
INJU 


8.0-.V4 


465. 
4 4 *■> 

A so 
451 

4 52 
4 S 3 
4 54 
455 
4 56 
457 
4 65 
4 55 
4 6C 
4 A 1 
462 
4 6 0 
464 

4 65 
4 f d 
467 
4 66 
4 6 9 
4 7 C 

471 

472 

473 
4 ?4 
4 75 
4 76 
477 
4 7? 
47 7 
4 fiC 

4 52 
4 £ 3 
4 6& 
4 £5 
4 56 
4 £ 7 

Aee 

460 

A CC 

4 c« 

4 97 
4 92 
4C4 

495 

496 
49 7 
49£ 
4 9 9 

see 
5c i 

6 C 3 
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*76 O’SrPTiC"?' T*U.:-:*:fLC/.T(!.S‘-;Y(I)> 
i c (C c fr7.L-.v.; : j * " ?» ^ t =6 : . r ; 

ID5A7( 1) 

'O' — t; v » . < 7 o-hi fT,:: >* * jr jMt (soul; ) )/7. o 

o^sTsr^T/sci..:: 

00 to 2: : . 

C £-)IT 

*eO I”CU iuMK = LTl 

1 ” C 7 i • G T • J • C5 C > rvSIOTsTS ... 

no to z : c 

c c’.:si: c./ = o 

*£5 INS L-P r - B I \ A V < 1 ) 

I r ( INSLP^.G 7, 4) INSLPP=3* 

go to zoo 
C p^r f'jo c^c 
4 9C NCPP =NOPK F^4-: 
on iil 1:1,4. 

A 31 !•■>►:=>:- ( I VJFP FC ) = | APP/.Y { I ) 

iNOP-r. ( : **1JPC es jBf.Tl+ilt.C, 
iNOPPf ( 2 .N-JPP P~ ) - T2 + , :cc 

CP : K7 X { 1 ,NOP- P ; ) =T 5 
„ hf I MX ( ? ,N*OPP PC, J = T4 

or to zoo 
C cu^u casd 

495 NC ULL = NC ULL + i 

CULL ( I *NCULL) -r Tl f , 50 C 
OA.L(2 .NS JL L) = T2+ .500 
I r ( i ;* i) m Cji ww 1 c.C C 
■ " nGuLL=n , 2 ull-h 

CULL ( 1 ■ ^iCULL > -T3*.5P0 
CULLI2 .NC JLL) :Ut .500 
GO TO ZOO 

C CtCOL^ (COlr ) CAPD 

SCO N= I APC AVU ) *1 c+ IA PRAY(2 1 
H=IAPPAr{ 3) *1 C+ IAPFAY<4) 

T3=DA£ S< 73) 

T4=DABi(T*> 

I p ( N/iO. C) GC TC 502 
K = 2 

IF< F.^O. C. AN5.N.LT. 3) K=1 

7S1 G- 2 * 1 630-3 * * K 
I c ( T£. G^.C. CCC) GC 70 503 
TE^CCNCF V( N,M) 

DT1=D71*T5 
T 2— 7 2 7 7 5 

XFC T3.LT.TSIG ) T3=T3*T5 
IF( 74 .LT. TSIG ) 74=T4*T5 

T 5~~ 1 . CD C 
GO 70 C2C 

£03 IF ( 7 £. LK .0. CC C) GC TC 620 
DTI =C £ (N »m+ i ) 

T2 = C S< 2 1 “N .33-M) 

620 IF< 72.LL.O. C2 C. CP.APCKO.LO* 0) CS ( N * V + l ) =DT 1 
JF< 7 2.GT. T SIG > 73 =T3 +L A8S (0 TJ ) 

F ( 74 ,G 7 . 7 S I 3 ) T4 - T4 C T2 ) 

$U?1=31“N 


reproducibility of the 
ORIGINAL PAGE IS POOR 


ik* nj 

e r 3 


5 74 

INCH 1 

£G5 

INOU 

£0 6 

INOU 

c : 7 

! NCU 

trr. 2 

I MO U 

SOS 

I NO U 

: o 

INOU 

s ; 1 

IN?U 

c < 2 

INOI f 

c * 3 

INJU 

* t a 

:nou 

C A c 

INOU 

5 \ 6 

IMJU 

£17 

INOU 

57 € 

INOU 

£1 9 

INOU 

cor 

INOU 

£21 

INOU 

C *0 

tn.iu 

£2 3 

INOU 

£2 4 

IK jU 

c?5 

INOU 

£ 2 6 

INOU 

£27 

INOU 

£ ? £ 

I NO U 

£2 9 

INOU 

£3C 

INOU 

£ 21 

INOU 

£ 3 2 

t NO U 

£ 3 3 

INOU 

£24 

INOU 

£ 35 

INQU 

£ 36 

INOU 

5 3 7 

INOU 

£ 36 

INOU 

£ ?9 

INOU 

£ 4 a 

INOU 

£M 

INOU 

£42 

TNOU 

£4 3 

INOU 

£4 4 

INOU 

£ 4 £ 

INOU 

£4 £ 

INOU 

£4 7 

INOU 

£4 8 

INOU 

54 <; 

INOU 

5SC 

INOU 

551 

INOU 

£52 

INOU 

£53 

INOU 

£54 

INOU 

£55 

INOU 

£56 

INOU 

£57 

INOU 

556 

INOU 

559 




ft n Tft r 
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I £ 13 2 = 3 2- V 

.IF (74.L F • v* CSC. CP. APCN-O.mC.O 1 
If (Af-CNC.GT.O) GO TO 6C0 

if (t 2.1*:. c. to r.c tc so: 

NC £:' S T= NC £1 ST 4 1 
GPVALXKCT- 5D-3T1/T3 
OP SI G ( NC S 3 S T > =T 3 
INDXC ={ NC S:*ST .1 > =1 
INC XC 5( NC S~ ST .2 ) = N 
INCXC3( NC S“ ST .3) =.v 
NC G=f» A >0 ( MS X02G » M 

NO XU9 j = .VA XC { NT XHAO . V ) 

501 IF ( T4.L£. C. CC ) GO TC 200 
NC S-.-:ST=NC Sf ST-H 
GP VAL A NC Sr ST ) = T2/T4 
GP $IG'(NCS=S1) =T a 
INDXC S{ NC S'. ST .1 } -2 
INC'XC S( NC ST ST .2 ) =N 
INOXC S( NC S3 £T *3 ) = V 
NO >0 2 z= va x c ( nl- xrrs G * N > 

NC XOP > = VA X C ( NO X C PD . y } 

GC TO 2CC 
SC2 U=V+1 
K - 23 - v, 

I I -J 

IF (*•*. .GT . C } IJ = J-l 
CO SOS I = I X .30 
CS< I . J) -C.GDO 
£05 C S ( 2 1 - 1 .K> = C. COG 
GO TO 2 CO 

tC 0 IF C T3.Lv. C. CC C) GC TO 6 01 

IF (MGPA CC .LC . NS I AS) GC TC 20 0 
blASSGC NGPAFC i = 7 3 
ot »: < ncpap c ) =: 

D$TANJ< NGPAFC)=N*100«-W 
BI ASv(NGPiFC) -G T1 /T3 
NC >CCG = VA XC ( NC XOt G , N) 

Nl >-CPS = VA X C ( NC XC9D .V) 

NCPAPC = NGPAFC-1 
6C1 Jr { T4.L.2. C. COO GO TC 2 00 

' IF (NGPAFC .IF. NSI AS) GC TO 2C0 
EIASSG< NGPAFC J-TA 
: BT NP^{ NGPAF C ) -2 

tElAN 3( NGPA PC ) - N*l 00+V 
P I AS 0( NGPAF C ) =T2/T4 
NC >:»: G = VA XO { NC XC‘J G » N } 

Nl >0~ 0=*A Xt { Nl XCAC . V) 
NGPAAC-NGFA FC-1 
GC* TO 2CC 


JNOU 

CS U9US1 • !SUD2)=T2 INOU 

2 NO U 
INOU 
INOU 
I NO U 
INOU 
I NO U 
INOU 
INOU 
INOU 
INOU 
I NO U 
INOU 
INOU 
INOU 
INOU 
INOU 
t NO U 
INOU 
INOU 
INOU 
INOU 
I NO U 
INOU 
INOU 
I NQU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
1N3U 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
I NOU 
INOU 
INOU 
I NOU 
INOU 

r nou 

I NOU 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


£25 JS1AMC = I A PU- A Y ( 1 I *1 OOC+ I AM' / Y <2 ) *1C:*IAP^AY(3)M04 IAP5 AY < 4 ) 
If t \~CNC. I' (). A ) GC TC 59 0 
C V T OAK 7 A FA l;M* 1 S 
1C t?5 = J? 1A NO /I ;c 
lAAAm Y( U =J STM.C-I DOS #1 CC 

Iaf^v r{ 2) so t: +C.SO*; 


Co- 3^ 


SCO 

561 

562 
5 1 3 
5£4 
5 6 5 
£66 
567 
56 C 
569 
57C 

571 

572 
£73 

574 

575 

576 

577 
576 
579 
5P0 
sei 
E£2 
5 63 
5 £4 
565 
526 
se7 
56B 
569 
£90 
5 c t 

592 

593 
£94 

595 .. 

596 

597 

5 9 r. 
599 
6CG 
6C1 
tC2 
6C3 
ec4 

6 C5 
60fc 
69? 

6oe 

6C9 
6! r 
61 1 
612 
61 3 
C 1 4 
615 


•n A f *"> 
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IAFRA Y< 31 *T2< C. 5D0 
IAP- AVI 4 ) = T2< C 4 500 
jLU3S=2 0 

IF (MJD( IGIOS .4 ) .LC. C) JCPS=21 
DO 530 1-1 » 4 

IF ( J A -#;» A Y ( I ) ) 533,530 ,700 

£20 I/FFAY(I)=C 

1AR? A Y( 1) - j-cc- S 
GO TO 7 C 0 
C STAPOS CAPO 


££0 NSTAiO-C 

PP.D ( 1)=D T 1 
PPL'(2) = 12 

C Ail AC STATION =CSITICNS 

560 P.t* AO ( I N TP ,1 COCO ,.'i NO = 9C9 ) CAFDI D » JS T ANC » DT 1 , N/ V£7 
IF (CAPL ID.£ C.CDKAVL(23) > GO TO 5SG 
NS7APD“NS 7A TO *1 
I £TAr-3( NSTAPC > “ JSTANC 
JN A Mr ( N S T AF L ) -C A P.D I D 


C 


C 


C 


C 


c 

c 


GO TO 5 60 

Sr T CCFMQn PAFAM-TfR INDICATORS 
590 M I NOli T- J $ TA NO /\ 00 

OL7CJN = FLCA 7( FI NCUT) *1 *02-2 
NS7A=NS7F ST 

IF (CUTCCN.LF. C. ) CUTCCN=0*C2 
MA »3UT- JSTANO-I 0 0 *'-’I NCUT 
MI N0UT = VA XCL7 /l 0 
t> i\ /• L* » “ ?• »i ^ o L i -* -•! i t *i C 

Mrt /y U I — NM A-j ( M/» XGU i ,1 | 


HIN.UT=KAXG(MINOUT,n 

LI TPT S--DT 1 . r,T. 0 *G?0 

COMP C Tit FLATTENING * . 

FLAT~i» CD C/FLAT 
■■ FSC3* =1 . e; S */ 3 < :> LAT**2 
FF SO 32 = A5 *F LA T+FSC32 
AC. SO =A.F * *2 
W-MS: RUN TITLl* 

£20 V,9 I T7 ( 0 L T 3 * *»4 & A 7 ) WA PCS 

IF (N5T-: ST,G T. C ) wFl TL ( DUTP A 6 > NS T F 5T 

*K I Tr ( OLTd , 44<,4 9) (DASH ,1-1 *1 5 ) *T I T LS * MAX CUT, C'JT CON , M INOUT 
NC >CMi-NC iDLG 


ND >CM2 = NC XOFD 
N3CCiNS=FA XC (I .NDCCNS) 


NDC3NS= F I NC (NC CCNS , I ND'-.XI -1 ) 
IF (NC'NST.LF.C) NOCCNS=0 
NCOMST = NCCON5 *>( NOC C N S+ 2 I 
PRINT G‘‘n“Q TSNTIAU C Ct F F I C 1 NT S 
CALL COCF L ( CUTP ,NR.S‘CFL) 

PPN- = I.DC/=LAT 

V.R 1 T*c r-LTP , 1 f t 53) (OASN,t=J, 
IF (NOD.Lt.C) GC TO 64 C 
NAT j=*0;-:NST-rJC(.NST 


C 


f. AFT H 


REPRODUCIBILITY OP THE 
■OBIGmAL PAGE IS POOB 


11) ,/t . r°NF,C:V 


IF (liA •) J *L • • C ;nC * NCCNST «GT * c > C ALL L. RF 3 9 < l G , C A c C I C ) 
PF I NT £U'-.*ACf LfNSITI-S 
CALL p.'c.M 

V.5 I T; £U rT ACL riNSITY 1 Nf C P *-»AT I C N CN SCRATCH FRc 


3 NO U 

616 

1 NO U 

617 

INOU 

6 ! S 

INOU 

619 

INOU 

620 

INOU 

62) 

INOU 

622 

INOU 

623 

INOU 

624 

INOU 

625 

INOU 

6 2 6 

INOU 

627 

INOU 

626 

INOU 

629 

I NO U 

62C 

INOU 

621 

INOU 

632 

INOU 

633 

INOU 

£34 

INOU 

635 

i NOU 

626 

I NO U 

£27 

INOU 

€26 

INOU 

629 

INOU 

640 

INOU 

641 

INOU 

642 

I NO U 

64 J 

INOU 

6 44 

INOU 

£45 

INOU 

646 

I NOU 

647 

I NOU 

6 4 C 

INOU 

£49 

INOU 

650 

INOU 

651 

INOU 

65? 

INOU 

653 

INOU 

6 54 

INUU 

655 

INOU 

656 

INOU 

657 

INOU 

65 S 

INOU 

659 

I NO U 

6 £C 

INOU 

661 

INOU 

66 ? 

INOU 

6 62 

INOU 

6£4 

INOU 

£65 

INOU 

666 

I NO U 

667 

INOU 

66 a 

I NU U 

669 

INOU 

6 ?C 

I NO U 

6/1 


8.0-327 
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c 


c 

c 


c 


C/O 63) I 1 =1 ,4CSC %4SC 
12= M I N C ( I 1+ 64 9 ,4050) 

*30 V.I- I T; : < SCFC ) ( I S URF ( I ) . I = I 1 ♦ I 2 I 
DO 625 1 1 =1 *2 C26 ,4 50 
I2=M1 N0< 1 14 44 5,2026) 

*35 VP I Tf.( SCFC) C 6L < I > . I =11 .1 2 ) 

64 0 CO K T 1 NUl- 

if <ncs:: st.lc . c > return 

nr. A DJLSTSO G= CPCTCNTI AL a PPIOPI VALUtS ON SCRATCH F1U ■ 
CO 659 I l -l .NC S’i ST ,225 
12 =*•' I ( NCS/ ST . I 1+224) 

650 VP ITh< SCAC) (GPVALOt I ) . I -J 1 ,12) 

FI TU1N 

DSttRMlN" NLVtrp CP ARC FORCE VCCEL FCJATIONS EXCEPT ADJUSTED 
GlOPOTv.N TI ^ L COEFFICIENTS 

700 N?.ON< i ) =C _ 

KiLCN(2)-C ' " r ‘ “~ r 

IF (093 T £ ii) CO TO 70 2 
INPAP I = 6*NSAT 
J= INPAP I 
00 704 I = 1 * N SA T 

IF (a S\T( I ) . L2 . C . COG . CR. VSAT ( I ) . L2. 3 ,C CO ) CO TO 73 4 

IF (CRAG £G l I ). LiT . 3.000) GO T C 7C 1 

NcCM{ I ) = NTOM 1)4-1 

INPAFI-INFA FI +1 

AD DP ( I > = I KPAF I- J 

701 IF OR5f SG( I ). LI . O.OOC) GCTC703 
NiW( i ) sfv_0 M 1 ) + 1 

INPAR l - I NPAFI + 1 
AD DR D ( I ) - I N FA P I - J 

7G3 IF ( *• MI SSGU ). LT. . O.COO) GC TC 7C A 
Nil ON { 1 ) = N-l QMD+1 
INPAP I =INPA FI *-1 
SPAM l > =1 NPAF I- J 
704 CONTINUE 

print arc description 

7C2 VR, I 7.. (OLTP, 1C322 ) A RC NO . ( 0 ASH , I = \ , 2 2 ) 

IF c I iAT 11 ( 1 ). GT, 0) VPI TE( CUTP «2 0C6C ) C I • IS AT I C ( I ) » I = 1 , NS AT > 

VP IT: (OLTP, 1 C 3 'J 3 ) TITLE 

VR I T*. ( 0 L T P * 1 0 1 5 9 ) I C ASH *1=1 , 8 ) 

IF <0R3TSfc> GO TO 70S 

VP I TzlOLTP, lvlSl ) f NN VAX .CCNVPG . INNMI N 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 

PRINT fvc =c; c: wCPcL DESCRIPTION 
710 J = I NO i X 1 — 1 
K= IND -X2- l 

vFi I T*(OLTP ,;c 14 i) ( DASH ,1 =1 1 > , J,K 

IF (N*> XD1.6 *G T. J) CALL L f R Cf (1 2 . C A F C I C ) 

IF CNC K'.~l ,G T. K) CALL V P R r° (I 3 , C * PC I C ) 

CO 7^5 lsl.fi 

IF ( I * 5T *N: : Cr Y) GC TC 71 S 

IF ( M Y ( I ) i(. T, C • 0 C 0 ) GC TC 720 • 

715 *r lr (oltp. ic 1 54 ) i ,cc: 1 - I ( I ) 


»r.IV.(OLTP,KH2) 
VP I TA.COLTP .10102) 
GOTO 7 1 C 

7C5 *FlT!_(OLTD,lci521 


INOU 672 
INOU 673 
INOU 674 
INDU 675 
INOU 676 
INOU 677 
INDU 678 
INOU 679 
INOU 620 
INOU 6 81 
INOU 6 82 
INOU 683 
INOU 6 8* 
INOU 6S5 
INOU 666 
INOU 6e7 
INOU 686 
INOU 689 
INOU. 690 
INOU 691 
INOU 692 
INOU 693 
INOU 69A 
INOU 69 S 
INOU 696 
INOU 697 
tNOU 698 
INOU 699 
INOU ?C0 
INOU 701 
INOU 7C2 
INOU 7C3 
INOU 704 
INOU 7C5 
INOU 7C6 
INOU 7C7 „ 
INOU 7ce 
INOU 7C9 
INOU 7«0 
INOU 711 
INOU 712 
INOU 713 
INOU 7! 4 
INOU 715 
INOU 716 
INOU 717 
TNOU 718 
INOU 719 
INOU 720 
INOU 721 
INOU 722 
l NO U 7 2 2 
INOU 724 
INOU 725 
INOU 726 
INOU 727 


f>,0 
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GO TO 725 * INOU 

720 VP I TL(OUP, 1C 155) I * ( BOD I C.S ( I ) * J=I »c)i MOODY ( I > .. INOU 

725 CONTINUF INOU 

I F ( ( L'JVt ( 1 ) • “ O. c . C 0 . AN' D » L C V c. ( *1 ) . *- Cl . D r.o ) » C F * C f** DO 0 Y (I ) . 50 . 0.05 0 1 NO u 

• .a t;. ,v3cr y (2 ) .::o. c .ccci ) go tc 3 so inou 

IF ( VpO- Y ( 1 ) ♦'• C. C * CD 0 ) WFl TC tCUTI* .1 JC02I < T I C- S { I ) . 1 = 2 . 7 ) INOU 

IF ( Kb JO Y ( 2 ) • \ C * 0 • A D 0 ) V.Pl TF < CUT F ,1 • C 3 2 ) T I Oi! S { 1) » < T I DC 5 C I ) . 1= A* 7 > INOU 

IF O'EOr 0(1) *Nc. , c« COC . AND. ”LCDY (2J.M.C .C 00 ) W FIT?' (OUTp, 1 1 0*0 2 > T I r 5 5 I NO U 
VP IT.*: (OLTP, li C03) LOVf. • INOU 

GO TO 66 G * INOU 

£53 V,Pi IT? ( CM. TP, j; CC1 ) INOU 

66C DC 74 J 1 = 1. N5A T INOU 

NCPF.N T=A SAT<1 I.GT.CoCCC® ANL • MS A T ( I 1 . ST , 0 »C DC INOU 

VfilT“(C)LTP,lC156) I INOU 

IF.(CD( I ) . G T . C . CD 0 • A NO • NCPF NT ) GC TO 733 INOU 

VP 1T.:( DLTP, 1C1 53) INOU 

GO TO 705 INOU 

730 IF (AO JP ( I ) . r 0 . 0 > uc I TC ( CUT p", I 0 1 5 5) CD ( I ) INOU 

IF(AOOP ( I ). G7.0) VFI 72.( CUTP.10 SC4 ) CO ( I > . CRAGS G < I ) INOU 

IF ( AD )P C ( I) *r C. O. AND. COD ( I ) . GT . C .C [ 0 ) '* f’TT *“ {QUTP» 10157) CUD ( I ) INOU 

IF(/,CjjkG( N .GT.Ol VvPI Tt (CUTP.l C 5C2 ) C T D < J) * D= CDS G ( l ) INOU 

735 IF (5 Ml S S( I > .0 T, C*CD? . ANC. NCPFNT ) GO TC 745 INOU 

VR J T~(0 L7P. 1 Cl GO) INOU 

GO TO 745 INOU 

740 I F ( S- AC* (- 1 ) • t Q • 0 ) WtJ rr ( OUTP.1C 161 ) PPFCSS « CM1SS ( I ) INOU 

IF < RP 4D ( 1 ). GT * C. ) WFI T- < CUTP . » c 6C 3) f PF S R , 5 ^ I SS ( I ) , EM I S SG ( I ) INOU 

745 IF ( NQPP NT ) • VP 1, 7F < CUTP .l 051-4 ) .ASAT < I ) .MS AT ( I ) INOU 


{ DASH .1=1 .21 ) 


’t_P ( I . J) t (l QNI NT ( K » J ) . K= t . 3 ) , J~ 1 , 2 ) 
:( CUTP.l on ? > (STLPS Z< I. J >. (eomintk 


UOMKT{K,l),K“l,3). ST CPS Z{ 


-VKI rr (OLTP. 1 C 1 02 » 

WR IT^tOLTO, 16 1 1 S) 

CO 75 3 1 = 1. NSA T 
VP I TIK OLTP. 1 DU 7) J « ( cr 
IF ( .NOT , VAP <TP( I ) ) WAIT 

• K = 1 » 3) .J=\ .2) 

IF< VARS 1P( I ) ) WFI T( { CUTP .1C 1 21 ) 

If ( VARSTPt I ) ) WFI T= ( CUTP.l Cl 20 > 

• STIP LP( I ) , ST PL C V' ( I ) .DS-LElFfct I ) .HLVLFb ( I ) . { i" GN'.I NT <K , 2 ),K = 1 

• ST2P SZ (1 ,2 ) 

P7CL ( I ) =F 70L( I ) **2 
CTOL( I ) =C TCU i ) **> 

HL 1 ) =H L V:.Pc ( I ) * *2 

750 GOL:‘;P 3( I ) =L LLl F?i( I ) *+2 

C PRINT CUT->ijt RICU'. r $TS 
JJ = INSUPP 

IF OGR-3 1 ,UT. 3. COO. AND. J J. LF , G . ANC. . NOT . ( FLT t_S W . OR * X Y Z FS W .OR 

• .3?.GPf' c «*)) GC TO 765 

VR l T.O ULIP, 10162 > ( T ASH ,1 =1 .23 ) 

IF ( PL TL S *A ) I T:‘( 0UTP.1 Clf. 4 ) ( J T N*f < I | ,1 = 2.4) 

755 I c OC(3 1 .LT.C-.CL'C > GO TC 756 
CALL DA i; : S( C 0~51 . 1 Yf/D . I MV.SC cl 

CALL DA T.. £< : or Cl : ,! Y ML 5 ,1 hi. _ .Si: C( ) 

VP I T;: ( OLTP. 2 v Cl C ) 1 YVO,]HH,S::C, JYN’Gv * 1 HM* » S CC c 

CTl=OR3P7*-,.G<-D4 

VR I T..( OLTP ,2v. CSC ) fit 
IF ( *N IT • TC^i " < ) GO 7 56 

»= i r- (utTp.r : ' osi REPRODUCIBILITy OF. THE 

ORIGINAL PAGE IS POOR 


j > 


i. n. 

» 3 ) . 


vp i t:: { o l 7 p , 2 " o 6 ) 


INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
INOU 
I NOU 
INOU 
INOU 
I NO U 
INOU 
INOU 
INOU 
INOU 
•XYZLSV! NOU 
I NO U 
INOU 
INOU 
•INOU 
INOU 
INOU 
INOU 
I NO U 
INOU 
INOU 
INQU 
INOU 


72 G 
72R 
730 
711 

732 

733 
7 34 

735 

736 
72.7 
73F 
7 

74 C 

741 

742 

743 

744 

745 

746 

747 
74G 
744 
750 
753 

752 

753 

754 
7 55 
7 5 6 
757 
7 5?- 
75P 

760 

761 

762 

76 2 
7t 4 

765 

766 

767 

768 

769 

77 G 
771 
7 72 

773 

774 
77 8 
??6 
777 

770 
779 
7 £ C 
781 
7 02 
7 83 


$.o -%A 


p C\ 7 n ft 
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756 IFC .NJT.< XYZ- SW.09. XY7LSW) > GO TC ?C57 
,IF ( TOrii F T ) V r - I Tr; ( CUTP ic Xo'* ) 

IF ( TO -CF T > »=m'(0Utr,2vC60) 

IFC XYZL £ *.A NC . XY2F Sw) GC TC 757 

IFC XYfF 8* ) Vi- 1 Tc cnurp ,i ci 65 » I T Nf*S ( 1 > ♦ ( IT NMS ( 1 ) , I = 3* 4 ) 
IF(XY'LSW) VF I T-* ( [JUTR ,1 01 6$) ( 1TNMS < 2 ) « I = ?*4 > 

CO TO 7C5£ 

757 kF I Tu ( (i ITPflCloO) I TNf’S (1) , < I T N V S ( I 1 * I = 3 . 5 ) * ( IT M'S ( I) . 1 = 2, 4 ) 
7C56 I c (C.A'3T$k) GO TO 7C57 

IF (F A TC. ,G 7. C, > kPI TV ( CUTP.20C25 ) FAT ;1 
kR I T7; ( O L T P *' i C 1 £ 7 ) 

7C57 if- ( • N JT . O c F 7 S V ) GC TO 758 

CALL DA ir 5( L’OPB I T ,1 WO .IMh.SlC J 
CALL DA 70 EC 0* YiND , I Y»OL . I HMf ,Sf Cc) 

*F I TV ( O L TP , 2 0 c 2 0 ) I Y vd , I H M , S I. C i I Y Kf; C . I H , S F. C t 
teSITiICCLTP.lC 1C6) PA To 
IFCRYTP.G7. C) r: ( CUT P ,2 C 0 3C ) 

758 I F ( G P J F £ V. ) V= I T*.- C OLTP , ’ 01 82 ) IT M'S < 1 ) , < ITNMS < l } , 1 = 3. 4 ) 

760 IFC HP OTSV-.C-R. J J « L 3 « G) GO TO 765 

kr. I Tr (OLTP, 22 040) 

IF (MtOC JJ ,2 ),c 0. 1 > kfcl TV( UUTP.20C4 1 > 

IF(JJ*LC»5> v-rt t>; ( OU’P .200 A ? ) 

IFCW-3M JJ iA).<iT.l J kPI TV ( PUT P ,2C C4 3 ) 

IF C JJ.rCO* u) wf I TV (CUTP ,200*4 ) 

C PT< I K T NOMINAL OPOIT 

765 CO 765 I = l , NSAT 

kP I "i COL TP, 10168) I . < DA SH , J = i , 2 6 ) 
ire;: L •> « G T . C » ~ I T; C Co 7 r 1 2 C i i 0 ) It. L ^ 

• r< I 72 {OLTP* 2 0 i 0 C ) I » 4£r , i . - v-y Mi; , i L h't-'M, LK'b LC * t ;U'M 1 N ( J I 1 ) , J = 1 » 6 J , 

• (O^SOLC J, I ) , J = 1 ,6) 

.76? IFC .N-JT.GFns*) T<: ( OUTf‘,1 017 3) ( (V A R COV C J » K , I > » K = 1 , 6 >. J- 1 , 6 > 

IF ( TCM-T F C } FKT = QPacTfi,OOC 
00 767 K=I , FSAT 
11=1 

CO 766 1=1,6 
DO 765 j=:,e 
£UV1< II )=VAFCCV( J,I ,KJ 

76 6 11=11 + 1 

CALL SYVI NVC 5LM1 .6 , 6 . V A FCCV ( 1. , i , K>) 

11 =1 

CO 767 1=1,6 

00 767 . J=I ,6 
V/.RCOVC J , I , K) =SLM1 ( I 1 ) 

VAFCOVC I , J, k) sSL^l ( I 1 ) 

767 11=11+1 

C'-PPIKT SUGARY OF PF**: PROCESSING I KS T FUCT I DNS 
IF CNO' J A PF .NF, C) CALL FA NT PP ( CUT F ,/ r Y PL } 

C P^IM NUO.ftS GF v"A SUF^. ►"L NTS WHICH A A 5 TC «L CULL'*C 
IT (NCULL.LO.C) GO TG 770 
CO 7 6 'J J=l ,NC LLL 

766 IF CC LLLC 2 , J ). ; C* C) CULL ( 2 , J) =CUL L (1 , J ) 

*‘>i l J: C U TP, 2 7 07'') ( (CULL ( I « J ) .1=1 ) , J = l « NCUL L ) 

C p^iNi sieves to r.; ls:l fca v /sup; ►fkts 

77 0 aait:. c jltp.i ; ;oo 

hriT:-.t.UTP,l.MOI A T Yr ‘ (2 ) ,sc»PA NT {? } 
kA I 7_ (O C TO , 1 'c20 J UNl T G ( 3 ) 


I NO U 

764 

INOU 

7£S 

INOU 

7*6 

I NO U 

7 E 7 

INOU 

788 

INOU 

769 

inou 

7 90 

I NO U 

791 

INOU 

7 9 2 

I ND U 

7 98 

I NOU 

794 

INOU 

7 95 

I NO U 

756 

INOU 

797 

INOU 

758 

INOU 

759 

INUU 

2 CC 

INDU 

en 

IN3U 

6C2 

IMOU 

eo3 

I ND U 

804 

1 NOU 

cos 

IN7U 

8C6 

INDU 

ec7 

I NOU 

S C 8 

INOU 

ec9 

I NO U 

810 

l MJ U 

ei i 

IWJ 

B12 

INOU 

812 

I NOU 

8 1 A 

INOU 

eis 

INOU 

SI 6 

IMOU 

617 

INOU 

£ 1 3 

INOU 

819. 

INOU 

820 

INOU 

621 

INOU 

£22 

INOU 

e.23 

INOU 

824 

INOU 

8?5 

INOU 

e.?6 

INOU 

627 

INOU 

aca 

INOU 

829 

I NO U 

830 

INOU 

6 31 

IN 1U 

832 

INOU 

8 3? 

INOU 

S 34 

INOU 

625 

t NO U 

e?5 

INOU 

8 27 

I NOU 

83C 

INOU 

8 39 


«.n~^o 
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VkP|Ti;(CtTP.lC61 0> ATYPf\<3) , SGPPNT13) INDU 

Vi R I T -• (DtTPi 1CC3 0) * INDU 

*F I If. < OLTP » 1 C670) ATVp;I(4) .SGPRK7 U ) .UNITS (2>»ATVPEt ll)iS6»BNT( 1 J ) I NO U 
*F IT\<'0\TP.1GG2 0) INOLJ 

DO 7HZ 3=1.7 THOU 

JF(I*GT.l«AND,t . LT. 5) CC TO 760 INDU 

I T2(0 LTP . 3 C61 0) ATYFl- < I I * SGPF NT ( I ) r INDU 

IF(I.Ni.C) VP I T7 ( CUTP .1 0620 > UMTSUJ INDU 

• IMI.-0.5} ViA I 72 ( OUTP .1 0625 ) INOU 

teft ITS (OLTP, JC'jI C> A T YP; ( I *7 > .SGFFNT ( I +7 ) I NO U 

if(i*;:c.s) vp i t" ( outp C6c5} . inou 

IF C I •N" .5) VP I TL f OUTP .1 C62.0 ) UNITS (II 1N0U 

78C CONTI NUr INDU 

IF < IC~C $. GT.2 ) VRI7£ ( CUTP. 1C 640 I ( AT Y F £ ( 1 ) , 5 CPRNT ( I ) . 1= 1 5. 2 6 I INDU 

K=( I G-.:C S + i I /2 ~\ Gt CS/4 INDU 

IF ( K * “O • 1 ) vA IT5 ( CUTP ,1 068C ) ( A TYPL' ( I ) # $ GFfi NT ( I ) -» I="27, DO ) I NO U 

IF <N SIG .f;c. C) GC TO 764 \ INDU 

DO 783 I-l.KSIG INDU 

t<<J STNC( I) .LO. 0) GO TO 78 3 _ INOU 

n -lHlYF‘.(l ) I NO U 

IF(II.Lc.C) 11=31 INDU 

MT YPi. = I iATVt=f( 1) | MTYFc C I ) /8) *7 * INDU 

»r ITi(CiLTP,lC61 C> ATYF:; (II ) ,SIGChG( I ) INDU 

feR IT<- (OLTP, 3 C65C > ISTNO(I) INDU 

IF ( v.T YPC.ro, 5 > VRI ( CUTP ,lCt25 ) * INOU 

IF (MTYPi: .60.2 ) API TO (CUTP,! C 62C ) UNIT5(3) INDU 

IF (M-TYPE. uO,' 3. CR.'WTvr-S:. GT, VF ITr (OUT'o, 10630 1 INDU 

IF (M TYPL ,[ 0,27) V=1 Tt (CUTP ,1 0660 ) * INOU 

IF<MlYPS.\0.ae> V F I Tu ( OUT Pi) C&.-3 ) INDU 

IF (MTYPC.6C.1 . OF, MTYPO, GT,5) W F I T 7 f CUT P , 1 0 6 20 ) UNlTS(l) INDU 

I F ( I f-‘ T Y P (. { I )»GT,426) VTYFKM1 INDU 

7fc3 CCNTINUF INOU 

7 £4 mt yp::^i gocs ■ inou 

C f’ c J III a.'CTP.LNlC FI A 5 I NF OP N AT I C N CN SCRATCH f ILL INDU 

VRirr.(SCFC) 6FSTN0 INOU 

VP I T _ ( SCF C ) BliTYF* INOU 

IF(.NlT,S(OL;M GO TO 395 INDU 

CO 39 0 1=1.4 INDU 

lTAPi=KTA P-f <( I ) . . -INDU 

IF ( I T*Pc .c'O .5 ) GO TO 69 0 INDU 

IF< I TAPc.tQ.I AFRAYt I ) > GC TC S9C INOU 

IF ( I TAPI*. Nr- .6 ) Ri VI NC I TAPS* INOU 

89C CONTINUE INDU 

e?S IF ( UP J T £ V ) R- TUAN INDU 

IF (NT- 1 A. £H ,LC • C) GO TO 360 ' INDU 

C P.3 INI -U.CTP'JMC 6IA5CS TC CD 6.X TF ACTC7- INDU 

fck I Ti ( G LTD, «.A ?C 0> INDU 

• k IT'.<U LTP .44 71 C> ( BF. S TNC< I ) ,01'TYFL (I)»I-1»NF IASI- ) IHDU 

6?0Il=lGiU5+l INOU 

C CALL SLF-'-.lUU K c TC F L AC CAT A INDU 

GO TO ( 765,78c. .766 .707 .783 >, II INDU 

»P IT: (OLTP , At 52C ) IG-CS I»)DU 

CALL _MCM7.CA!-DIi;) INDU 

A*. TU<N INDU 

765 CALL J'Ot C-'<(- (M START ) - INOU 

GL TT 7 so INDU 


C.O- 33 / 


840 

641 

642 

640 
G 4 4 
645 
A46 
6 47 
£48 
£4P 
6 50 
esi 
er-2 
6 53 
£54 

ess 

£56 
£5 7 
8 5 6 
£59 
eer 
661 
£62 
£63 

6 £4 
£65 
£66 
£67 
6 5e 
R 69 
£7C 
e7i 
6 7? 
£73 
£74 
<•76 
676 
877 
3 7 6 
079 
£ £0 

££2 

ee? 

664 
BG6 
886 
£R7 
£6? 
fi F9 
R90 
69? 
P 9? 

893 

894 
695 
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766 

CALL G£ C SFO (NSTARD) 



INOU 

656 


GO TO 7 50 



INOU 

es7 

767 

CALL PCt-KD 



I NOU 

65? 


GO TO 750 



I NOU 

859 

758 

CALL SI btC.( NSTARO) 



I NOU 

900 

79D 

lF(ScOUf.N) 03 TO 794 



INOU 

9C3 


00 755 1=1. A 



I NOU 

9C2 


Itapu =i fir r a\< n 



INOU 

9 C 3 


IF < | TAP.“, GT .5 ) PliiMNC 1TAPC 

“ 


INOU 

904 

752 

CONTI NU& 



INOU 

90S 


GO TO 756 



INOU 

9 56 

7*4 

CO 750 Jsl.a 



INOU 

9 C 7 

756 

KTAP:. 3( M =1 ARPAYt I ) 



INOU 

508 

759 

IF (MO I A S .c'0 • C ) i^uTUFiN 



INOU 

9C9 

C PRINT 'ADJUSTED F<IAS IKFCFFATICK 



INOU 

910 


LIN“S = 0 


. 

I NOU 

911 


*P 1TT.;{0 LTP. 1CA1 G) 



INOU 

512 


DO eCI 1 = 1 .NF I AS 



INOU 

91 3 


n=r.sTANC(i) 



INOU 

51 A 


£tS*>ANDC 1 ) =NLPFF2 ( I 1 »I STAND, KSTA ) 



INOU 

915 


Il=bSTANO( t } • 



INOU 

916 


if n a c . o j go to eoi 



INOU 

517 


T2 = T I MI NG 



I NQU 

91 8 


1 2 =B T YP K { n 



INOU 

519 


IF(I 2 • G T • C > T£=ATYPc<J2) 



I NO U 

920 


12=1 2 + 1 



INOU 

921 


IFCM.LT. 15) LNI T=UNI TSC 12 ) 



INOU 

522 


IFtM.L0.27) LNI T = UNI TS (1 I 

' 


INOII 

5 23 


IF (Ii.LO.26) LNIT=H7FTZ 



INOU 

924 


IFtM.GT.2fc) LNI T=UNI TS (a ) 



INOU 

925 


IF ( MOO ( L 1 NL S * 5 ) .5C.C) * R 1 Tt. { CU T P , M 1 0 2 > 



1 NO U 

926 


L! NT' S=L I NO S + l 



INOU 

927 


I TIUC LTP, 1C M 1 ) I STANCt M ) *T2 , F I A S 0 t I ) . UNIT , 6 I AS S C- ( I) 


I NOU 

5 ? P 


IFtS S.NDt I ) .L-.DSTFTCn) ^ I Tti < CUTP, i C A 1 3 ) 



INOU 

929 


IF (EiSTNCt I ) .Lt . 3 STf-Tt I ) ) GO TO 6C1 



INOU 

9 30 


CALL DA Tf 5C PSTPTt I ) ,1 Yf-*01 *IHM ,SCC) 

« 


INOU 

921 


CALL DA T£S(B$:nD{ I ) ,1YMu2 «IHP2 ,S2C> 



INOU 

522 


HP I T|’. ( C L TP , 1 C A I £ ) IYVQ1 , I H M .IYVC2.I HV2 



INOU 

523 

eoi 

CQMIMUF 



INOU 

524 


Fr TUf N 



INOU 

525 

C IF £N( Or “ I L iC L NC CUNT2' 5CC fcl THCUT A PP.cCF.OIMG CATA 

C A° D . TFRMINATS 

I NOU 

5 26 

9C0 

CALL LP PC? ( 6, CAP 01 C ) 



I NOU 

937 


£ T OP 



INOU 

538 

c "CR^AT STATf- MCNTS 



1 NOU 

529 

10002 

Ft'FMATt Li 12 .6 ) 



INOU 

5 AC- 

1 01 £2 

PD-MA T< /1H^ .5 X52H SA T2LLI T1 X ,Y , 2 AND C^CUMO-TPAC* PLOT Pf .0 J CiSTf- C 

J NO U 

54 1 


• F()R»2AC»A2«*4 « c A 6 • A. 3 ) 



INOU 

5 ap 

1 09*j4 

FOr.v A T( Aft ,*I1 ,4T 1 5. 3 .Cl 0.8 > 



T NO U 

5 A 3 

1 041 C 

FORMA Tt 1H 1 , 2? X .4SHNCM NAL FSTIPATfS OF ADJUST T.'"- 

DIAS PA PAM £ 

Tf =>S/ 

I NOU 

544 


• lHJ, ?H ST\ TI CN .5X .THT ARAVtTt c . 1 2X . 15HA PR If. P 1 VALUfS, 

1 2X, 

1 NOU 

5 4 S 


• 2 cHC C VL PAG — - — YYMf-uD HHM*7 1 / X . CM \U v 5- 1 f. - , 

7X » 4 hTYPt , 


INOU 

5 a 6 


2 1 1 X. ANSI ^.HX . SM £ I OVA ,1 1 X ,o Hf • G l N . 1 JX , ) 



INOU 

5 47 

1 C- 41 1 

pf'.' -'.AT( 14X.lt ,5 X ,Af ,LH nr /-s . 2X , 1 Fi.M •2*2X , /o* 1 I 

.3 ) 


I NOU 

54C 

1 CA1 2 

TO-.'S. T< 1H* . 7t x . 1 O .1 \> .6 X .1 o .1 f, ) 



INOU 

5 40 

10433 

FtRMATt 1H* , 73X ,2-iHT I FP -R.7NT MAS FCP FACH PASS) 

' * 


T NOU 

560 

10)03 

nt,'MT( i x > 



INOU 

CM 


ft ,0 
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10117 roPMAT( 1HC »5X , »CO^LL P Rn 9 I CT OP- CG5 R 0. CT Of? FOR S AT « NO • » . I 2. INOU 

• 2(/lCx.t2«* TH OROc.P FOP ••2*3* ASM .. | NO U 

10110 F0PM6 T( 1HI . £X «£ 1HNUVL PI CAL I ST F G F A T | O N/O X « 2 1 A J ) INOU 

loll? ra('!,'.T( qxr t,; , • si: coo fixkh srrp for ••2ab«*s) inou 

10120 FORMA T( 1 c X, «F CP * » 2 A6 i A 5 /l 5 X .C'PKfc* 1 « * INITIAL STOP S I ZF « / INOU 

• J^XfFO.l .« MAXI WJM STJP 5 1 ZF •✓! *>X, FV> • 1 , • MINIMUM ST'P S T Z F. * / INOU 

• siz = incrdasil for fp‘. ; n ct cf-ccrf = ctcp cifffrlncs •* jndu 

• .‘LLSS THAN ‘.1PD7.1*’ mvt F PS • /I £ X , « ST F.P SIZE tl-CRFASCO FC)P *• INOU 

• »P9i£OI CTCR-C Cft^r.CTCR CIFFFFFKCr Om F AT ER THAN « , 1 PO 7 • l . \ M FTFF S • UNO U 

1C121 FORMA T! £ X « • V/ P! Abl.t 5T?F I NT CG R AT I fN U3FCM INOU 

10159 FORMA T{ 1H C * SX ,dH -UN T Y P'J/6 X , b Al ) INOU 

1 C 151 FORMAT! 1H C « 5X . TATA PtiCUCTICN ~’,I3*‘ ITERATIONS OP CONVi'RG 'MCT * « I NO U 

1 «*I7FI N * .2PF 1 , • PER CFM'/IH *7X«*WlTH A MINIMUM 0F«.12. If/JU 

2 • ITERATIONS 1 /) INOU 

1C15 2 FORMAT! 3 HC 5X1 SHQAB I T GENERATOR FUN // ) INOU 

10149 FORMAT C 1 HC .5X11 HrORCC MCfiL / 6X11A1 // 6X INOU 

• ?. 8 HA » GH CFCT1.MTI AL CO£F F 1 C I L NT S / ' INOU 

• 1CX,*LIST:D C C2FF 1 C I C NTS THFCUGH C 5 GP = L ‘ . I 3 . • AND OP COP* * I 3//6X« INOU 


• 22Mt - CTH'ER Ff FTURFAT IONS ) . INOU 

10153 F ORMATl 1HC5 Xl 1HL- APTH MQCTL/ 6X11 Al// 6X15HS CM I MAJOR AXIS 4X INOU 

• 1 CH r LA TT5 Nl NG 4X 22HGRAV1TAT J CN AL CONSTANT / 9 X 8 H( M?. TL'P S ) INOU 

« £2X* 22H< ME T£F S**3/c- C CNDSf* 2 > //e X , F • 1 . 2, 7X • 3H1 . / , F 7 • 3. 7 X* INOU 

• 1PC1 4. 8 //) INOU 

101 = 4 FORMmT( 1H ,fx,H ,2H, »A7 • * GRAVITATION NOT APPLIED*) INOU 

10155 FORMAT! 1H *6X,i:,£H, *A7 , * GRAVITATION APPLIED - RATIO OF »,A7, INOU 

« » Mt«S TC MASS OF FA RTH -**JPC13«6) INOU 

1015c FOB-'-U T( IMG* tX , • SA T. NC, M2,' F L FT J R b A T I ONS * > INOU 

I C lOO F JF.'-'A 7( 10X* • f> * CRAG NOT APPLIF.C* I InOU 

i C i 57 Huh»a fi iiix, -■ i> *aG u'.cr - I C 1 c N i a / I r = 1 * *- f % 4 ) I NO U 

1C159 FORMA T( 1 0> t *b, DRAG A PPLl F.P * /I 5 X , 1 CRAG COEFFICIENT = »,>?. 4) INOU 

1C160 FORMAT! 1 C X, SOL / (V FAOIATICN PRESSURE NOT APPLIED* > INOU 

IC161 FORMA T( 1 C X. *9. SOLAR RAO I AT 1 CN FFE5SUFE APPL 1 F C ’ / 1 5 X , * - SO- A5 *. INOU 

• ’RADIATION P.c=S£UFL ( NO WT CNS / MF. T c R* 4 2 ) = • , 1 PH 1 0 . 3/ 1 5 X, INOU 

.. 16H- Rt.-LFC TI VI TY * ,C- ®F 7,3) INOU 

1 0502 FORMAT! 1 5 X, ♦- A PRIORI CP^G C07. F F I C I NT RATS ='.F0-A/15X* INOU 

• »- 5 TA NC ABU Du VI ATI C N CF A PRIORI CPAG CC= F F I C 1 CNT PATE =', INOU 

« F8.4J INOU 

10=03 FOB MAT! 1H »9X,^4H9* ADJUSTIC SOLAR RACIATICN PRESSURE A»PL I 50/ 1 5X , I N'OU 

• 47 H- SOLAR PAOIATICN PRuSSURu. < N C V, T t NS/ MhT t R* * 2 ) = • 1 P C 1 0 . 3/ 1 5 X • INOU 

• 25H- A PRIORI FLFLLCT1VI7Y =*C P C 7.3/15X« ’ 1NDU 

44h- A 'PRIORI R**F LCCTI VI TY STANDARD ORVIATIGN =.F7,3) INOU 

1C5G4 FORMAT! lOx.AoHe, DRAG ARPLTFC WITH r R / G CCJEFFICIc'NT ATJUSTEO/ INOU 

• • 1 5 X » 2 5H— A Pp I CP I CPAG CCLFFICICNT =,^8.3/ INOU 

• 1 5 X 1 5 1 M~ STANDARD OLVIATICN CF A FPICPI CR*%G C.OS“FICI:NT =,F8.2)IN3U 

IC514 FRPM4T! I*jX,4{:H- SAT? 1. LI V~ CROSS SF-CTJCNAL AREA (M^T TTS* *2 » =, INOU 

« 1P01 C . 2/ 1 5 X ,3 CH- SATELLITE V/LS (KlLCG^AVS) Ol 0 . 1 > INOU 

1 Cl 62 FOR 1 *"/ T( iHi / .b X , «SP? Cl / L CU^FUT RfCJLSTG'/lH , 5X , 2 1A 1/ ) INOU 

1C164 FORMAT! 1H0 .5X .2dH-)I NARY cNSICUAL T/ f-C. RTCUFSTFO FOP »2A6, A3.A4* INOU 
1 2A c • A 3 ) INOU1 

1C165 FCRVA T( 1H : 5 X A 7H SAT LL I T~ X.Y.Z /NO GP 3UNC TRACK P'EOU’CSTED FOP INOU! 

• 2A t • A3 »A4 .2AG » A3 I IN0U1 

1 C 1 1 6 FOI'MA f( t X *5H:. V.'.p Y *F5. 3 W2H 17 C CN C £/ I HC ) INOU’ 

2 ;iG7 . C rj-MA T( 1 H 7 X 1 R H A T f. A T A POINTS // ) iNOUt 

) wl 7J Ff c f - A T( 1 H : , 5 X *P 6H VA P I A»»C /C C V A R I ANC c MATRIX // 1NOU1 

• lAXIHX 14X1HY 24 Kl H 7 13XARX'*. PT J * X 4 H Y SOT 1 1 X 4 H 2 DOT // INOU1 

• 7X, 1H X,2X ,1 Po::i 5.7/7X ,1 MY ,,7X ,'•»! 5 *7/7X« IMZ. 2X *6f;15i 7/ INDU1 




9 52 
952 
954 
9 55 
956 
9 e 7 

958 
9 5 9 

960 

961 

962 
9 63 

964 

965 

966 

967 

968 
569 
97C 
571 
97? 
573 

974 

575 

576 

577 

578 
5/5 
sen 
sei 

9 82 
5 E3 
S 84 
5 6 5 
5 86 
5 87 

5£8 
q p c 
090 
991 

552 

553 

554 
9 5 5 
95G 

9 C 7 

558 

959 
9C 0 
CC1 
0 C2 
CO? 
074 
OCS 
C 06 
007 
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• 6X »4HXr.01 15»7/6X»AHYDCT ,6£'15,7/6X * 4 HZ COT , 6c IS ,7) 

ltilOO FOS’^AK INI ,£X,'K'CJ-MNAL DROIT SAT, NO,* • J2/6X* 26 A 1 > 

1C 00 5 FORMA T< A 6 ,1 4 ,Dj 5.3 . 3CX , All 

10 3C2 FORMAT! .I HI . ICX.3MARC ,1 3 . • PUN P l.SC P I PT I ON * / 1 h , 1CX.22A1) 

1C3C2 rOSVATt 1 X/3 ( 1 1 X .1 0A8/> > 

iiooi fopmaK 7x,jH7. . rtm ticks nct applied*) 

110C2 FOPMAT( 7X«3H7, . 'EARTH TIDES APPLIED - *,7AS) 

11003 FORMAT! 1 C X , *•- K2 = « ,L9. 3/1CX , «- K3 a * „ ?9 « 3/ 1 C X , * - P HAS E ANGLE =*» 
F7.2,' S • ) 

1 C GO C FO«ma T( 1H1 , 47 X ,31 HHEASURC P'EKT ST AND Am C CAV I AT IONS/ l HO t sox, 

• 7rtS 1A 71 p 1 •! 3X .5MSIGM/./1 H « A 7X , f. HNUMH.;F ,2X,^HTYP^,6X, 

SHVALUr ,?X,5HUMTS/) 

IC610 FORMAT! 1H , SS X , A 6 ,F i G . 1 ) 

1C620 FORMAT! 1H+ .72X.A6 ) 

1 C £25 FORMA T( 1H+ * 70 X , 4-HMI LS) 

1 C639 FGRMa T ! 1 m ♦ 73 X ,6Ht M/S7C ) 

ICG4C FORMA T ( 2< 49 X »4mnCM , 3 X . AG .FI C. 1 »2X,cHNETCPS/)« 3C49X, AhNONc* 3X. 

• A 6 .F I 0 .1 .2 X ,6HC M/SiC/) .49 X ,4 HNPNK. 3X , Ao , FI C . 1 , 2X , 6HMLT Lh: S/ 

• 4?Xi 4HNCK;, i 2 X (Ac « F 1 0 • i if X |4 HC* 1 OS/4 ( 49X < A hNCN'" » 3X » Aft» r I 0 • l * 

. • 2 X,7H Si-C CN r ' 5/J ) 

106 50 FORMA T< JH + P*7X , I 5) 

1G660 r09MA T ( lMf , 7j> X ,7HNA NGSr.C) 

1 CC70 FOPMa T! 46XPHALTVTP ,2x, A6 ,F1 0. 1 ,2X , tb ) 

10600 FORMA T< 49X, 3H/ LL .4 X «AG ,F1 0 .1 ,2X ,7HMAMCj?C/ 

'• A5X, 2HALL ,4X ,AG *F1 9 . 1 ,2X , 1C HM CRCFC FT Z/ 

• 49X.3HALL.4X, 46. F1C.1 . 2 X .CPC M/ SLC.2X.7 HT wc — W A Y / 

• 4 9 X , 3H ALL i 4X .At .Fi 0 .1 .2 X ,6H C F/ S F C * 2 K , 9 FT HP «>.-* AY 1 


IN3U1 OCG 
I NO UI C09 
INOUI CIC 
JNQUi 01 1 
I NOUl C l 2 
INOUI Cl 3 

inoui ciA 

I NO UI Cl 5 

inoui oi e 
I NOUi Cl 7 
1 NOU1 01 S 
! NOU1 01 9 
INOUI 0 2C 
IMOU1 021 
I NOU1 C 22 
INOUI C 23 
INCU1 0 24 
INOUI C 25 
INOUI 0 2£ 
1 NUU1 C 27 
IN lUl C2fl 
INOUI C29 
INOUI 030 
INOUI C31 
INOUI 022 
INOUI C 2 3 
INOUI 024 


1 C69C 

2 C 01 0 

2 C C 2 0 

2CC2S 
2 C 2 30 
2CC40 
2CC&1 

2CC4 2 
20043 

2 CC44 
2005C 
2C060 

2CC62 
2 CO 54 
2CC70 


£C CSS 
2 010 0 


FUH*AT( lM+t7iX.\ Jnv!CPLH':HTZI INOUI C 25 

FORMAT! 1MC .6X .25HOPB1 TAPE RfOUCSTCC FROM ,216. F7. 4. AN TO .216, IN0U03C 

1 F7.4) IN0U1C37 

FORMAT! 1H C,£X ,4 FHSATf.LLI T* X ,Y , Z /■ NC C-ROUND TRACK Rl-OULSTFD FROM , INOUI 0?P, 

» 2I6.F7.A.4H 1C .2I6.F7.4) INOU1039 

FORMA TC 1H , 7X ,5H3 V3R Y ,r 1 C . 2 « 1 2 H SOCCNCS ANC) IN0.U1C40 

FOP^I T( :u C , 5X ,37MPV TA^E r r CU1:ST ?. E r OP FIRST ] T T R AT I ON ) INOU1C4I 

FORMAT! 1HC. 5X . «Ri.:SI DUAL PRINTING HAS t'fEN RCOUCSTtO FOR » ) INOUI C42 

FORMAT! 1H+ ,46 X, 'THE FIRST INNER IT l P AT I ON 1 ON THC FIRST OUTEP «, INOUI C43 

• • MTCPATICN'/) INOUI C4A 

FORMAT! 1H+.4ZX, 'AND*) INOUI C45 

FORMA T< 1H+ ,4oX , 'THE LAST INNER IT FT AT ION ON. T FF LAST OUTER *, INOUI C46 

. * l TP RATI CN ' / 1 * INOUI 0 47 

FORMA T( 1H+ ,4oX , 'ALL I TC PAT I CNS * / I IN0U1C46 

FORMAT! 1H , 6 X ,2 2M OU T PUT PECUF.STLC r V 3 RY , F9 « 2 » 6H SECONCS) INOUI C49 

FORMAT! 1M«- , 1 SX ,4 2HRf_F -RENCEO TC TRJt' LOUATOP ANL-30UINOX OF « INOU1950 

1 1 4 HP r : FI-;pf NC h TIME) INOUI C6) 

FORMA T( 1HC ,S X tOHORFt TAP'D IN2UICS2 

FORMAT! 1HC.SX .9 H.£ PH >' v'/ ^ I 5) . INOUIOSZ 

FORMA T! 1H 1 . 3 7 X , 3 9HI NC I VI ^UAL M F ASUF f Mf'NTS MANUALLY CULL CO. IN0U1054 

1 1 X . 1 7H r RC M THE SPLUTI CN/ l HC .32X , 4 ! I 2HV7SUR -M .-NT .6X)/ It;0'JlC55 

2 1H ,3 5 X ,4 { 7HMJWC.; R5*llX)/lH /25CH «3?X,4{I5, ?H TO. I 5 , 5X > / ) ) I NO UI 056 

FORMAT! 1 x/( i: x , 'SAT: LLI T.E ID FCP S/1, rJC.'.I2,* IS'.IdM IN3UIC57 

forma t(ihc«sx» I no ui esc 

•EPF l-'CcNCS TIM*- - Yi'/r, MONTH, CAY *.16/ INOUI 159 

1HC»*>X.?CH ’PCCM CF CLSM'MS *• , INOUI etc 

1 xl shy: AR , Vi’jMH .DAY It «a XIGMH^-UP.MPjUT i. ,s; CO.NC I4,F7.3//6X indui 9*1 
22H1 KLP1IAL RtCTANGULAR C C C*> t I NAT ' S/ l HC . • iNCUIOt? 

1 6 XlH X2 A X 1 H Y2 1 XI H / / 1 6 X , 3 F ( N ) , 2 4 X , J H ! *•’ )_, 2 4 X , 2 H ( M ) // I NO UI C £ 2 
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20110 
4 4 447 

444 a £ 
4 444 9 


4 4 C-0 0 


4461 0 


44620 


4 4 700 


4471 C 


2 X ,7F3D2 6. 1 0//1 5 X4HXGCT ,2 3X& HY COT » 2 3X4R2DOT/ . .. 1NOU10C4 

15X5H! m/S) .2 2X5H ( M/S ) ,2?x 5H ( N/S )// 2X , 4F3D2P . 1 3 INQU1 0 65 

' /I hC SX 1 en K * P LL P I A N t L i ' r; MS / l HO , 1 1 X , ) h A , 1 i X , 1 h . 1 2 X* 1 H I , 7X , I NO Ul 0 C t 
2 f HP A A SC NC0L A-G PLF-UGFF «UN ANCiV ALY/ 9 X , * r ( Mf T£ RS ) , 1NOU1C67 
I 3 X,4( 4 X ,9H! Du OR. ELS J )/l HC ,C PFl 6# 1 . FI 3.9. 4FI2.6) I NO Ul C6P 

FORMA T( 1HC ,5X . 'CCDS DATA j AS 2 l. LLMl NT S 3T • , 1 5 . ’ US ; D*> iNOUlCfcG 

FORMAT! 1H 1 »2C (/) ,1 OX « ‘MULTI -ARC G~ GC Y N RUN USING FATA FROM** IN0UIC7C 

1 13.* SATELLITE ARCS') INOU1C71 

FORMAT! in ,12X,'*ITH TH c ADJUSTMENT nF',I3.‘* STATION POSITIONS') IMOU’072 

FORMAT! 1H0/IGX, •Fl'N C-ISC^I FT I ON '/l SX , ISA 1// 3 { 1C X, l 0 A r / ) / J C X . 12. I NO Ui 0 72 

1 • GLTFP ITJRATICNS CR CCNVF.PGf.MCA ii I T M I N« • « P~ 4 • 1 • • PER C t NT « I NO Ul C 7 4 

2 /12X»«\\1TH a minimum CF • « 12 » * CUTER I T F P AT I UN S ’ ) INDU1C75 

forma T( lux .20X , « I LLr.GAL CPTICN CARD I N D J r * / 1 HC ♦ 1SX* • “"XPL/NATIDN : IN3U1C76 

1HC OPTION CARS ' ,A6 « ' I 5. I 0 LOCAL IN CONTROL S*T • , I 2 * 1 H ./ 1H 0, : S X* 1N0U1C7? 

’ ‘PKCJGRAM ACTION I CARD IGNCR'FC — F.XF.ClJTJGN CONTINUING.*/) JNOU1C76 

fo 7(ihi.2CXi • illegal option card i npu t * / 1 h s * i s x , * explanation : inou: C79 

THL UPTICK C A PC ‘ .A6 . ' IN CCNTRCL 3 FT ? APC',12.* ~ r CU f ST S THf »/ IN0U1C6C 

2.1 X. 'AS JLSTM3NT CF A CCKVCN ARC P A (■ AMcT F. R . « / 1 HC « 1 S X , • PR 3 GR A M '.TNOUlCEl 
'ACTION : THU REQUESTED CCMVCN par A m; ; -t OP AC JUST M '.NT WIL_ NOT. B0IN3U1CC2 

PL'PF TR MI l *- »/21X.*fX'CUTICN C C NT I -VJ I N G . • / ) JN0U10S3 

FORMAT! lHi • 2 C X . LiXrCUTI CN T7PMI N/TEC C'J c TO IMPFCP'-P 'SETUP.*// JNOUICEA 

1 6 X » *L XP LA, NA ** I CN : DATA T Y P»; INDICATOR CN LPOCH CARS = ♦ , I 2. 1 NO Ul COS 

• GFEATcfi THAN 4») INOU1COC 

FORMAT! JH1 ,20X, *M3ASUR£ m^-nTS FOR WHICH OLf-CTPCN'IC BIASES WILL », IN0UIC67 
PL VO V£r- ♦ /1HC .7 ! I 3HST AT I CN v LAS, AX ) . 13RSTAT ION FT AS / 1N0U1C0S 

7( 3X » 3HNC, ,<* X ,4H TYP- ,3X) .3X , 3HNU . .4 X. «,4 HT Y R 6/ ) XMClU* CF9 

PORMA T! 16. 1 7. HC. 17, 11C. 17, 110.17, 110, 17. UC. 17. I 1C. I 7, 110* 17) l NO Ul CPC 

CND TNnill or.l 
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/Ze/i D 


ofrxoA! 


<!A/zj> 




/)ere/c/>?z*je 
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/ P/UfUT V 
'$copcr€AjTi/u. ccer. 

\pxcze*jrs pajz> J 

\e/?/cr// Menu/ 


yeT£/i/}\?A>e NUA\j3e*z. 

op P/Ce popup /}, 'cti£t 

E<pUATTcsJS 6XCCPT 

/Uxvsrei) ^coPcrcM- 
TTAt POCmCTdKtt 


p/LXfJT 

su/iFpce 
Depisirxe s 


p/HMT _ 
” r A Pd 
J *>££<? f^rprxo A 


copztf svszppce 
J)PA)1Tr y 2" A JFOP- 
At/ITTOAJ O/J 
SCPATC/-0 prop 


P/<LZK> r / 9 PC. 

p0/ZCP /ri C/)CC 

J>psoxxp no/o 


| oop-rre ASrusreD 

| c 7 6c?cre\[TT/iL 

j A p/lzo/iz y P lugs 
I OAJ SCRATCH 
fXL B 


fcerotAf , 


P/lxnT 

OUTPUT 
A-P^cP S T 


PfZIxjT 

A'O/hTAJAL 

oppxt 


reproducibility of the 
ORIGINAL PAGE IS POOR 


PPIAJJ $UA\AXftflX 
OP PPOP/ZTBSSIaL, 
XTAjirpuC txoaj 5 


i 

£0 “=5j?/|a 
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f/cZAJT AJV/Ktff/ZS 
OF /} t erisu/zen 7< f /v T$ 
£0/iXChf TO 

/ 3 e c <jr.ee O 


P& x r adjos re d 
T/Jrojgax ftrzotJ 


ptZA/r sigmas 

'TO useo FC/l 


£eru£/J 


UifllTc 

eiecrromc /3xns 

TaJFO/Otx A TTcrJ 
\ Caj scjza rci4 


Mode 


p ax ait fiecrccA* 
/siascs ro /Se 
Cktaactcd 


?06 


Zeron/J 


f e/frcfc \ 

/c^J2> Or rXU£ 
/€a!Cq UaJ £> 

UsJxrvour a P/ee- 
Y r C£>ZAir ? J)ATA 
\cAfZO, 7 


STOP 


CALL 

Su/ 3 £ 00 TZ/Je TO 
/lead DATA 


REPRODUCIBILITY OF THg 
ORIGINAL PAGE IS POOB 
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NAME . 


I NTRP 


PURPOSE , INTERPOLATION SUBROUTINE 

CALLING SEQUENCE CALL I NTRP( S iM «I CRDER* NN* X * F CT , SUM } 
SYMBOL' TYPE' DESCRIPTION • 


OP‘ INPUT - DESIRED CUTPUT TIME IN FRACTIONS OF A 

STcFSIZE FROM TIME POINT OF SUM ARRAY 


H CP 

IORDER I 

NN I 

A OP 

( 6 . 2 ) 

FCT DP 

(3*2) 


I NPUT - STcPSI ZE 
I NPUT - ORDER 

2 NPUT - NUMBER OF EQUATIONS TO EF. INTEGRATED 
CUTPUT - CUT FUT ARRAY 

INPUT - ARRAY CF A CC E l.E R AT I GN BACK VALUES 


M 

1 

I NPUT 

SUM 

DP 

I NPUT 

SUBROUTINES USED 

COE F 

COMMON 

BLOC K S 

NCNE 

INPUT 

files 

NONE 

OUTPUT 

F 1 LET S 

- NONE 


DISPLACE MFNT INDEX SET EY COWELL 
S.UM ARRAY. . UPDATED BY INTEGRATOR 


C 


SUBROUTINE INTRP< S ,H ,1 OROE R.NN.X ♦FCTif'.SUM) 

IMPLICI TT<EAL *8 (A-H.C-Z) 

DIMENSION Af(tQ) W.VI20) »X(6 * 1 ) »FCT ( 3 » 1 )*SUM(2«3»1 ) 
DATA SI /C.t C/iI Cfr/C/ 

IT ( S.EQ . $ 1 . A ND. I CR. EQ. I ORDER) GC TO 1 


SI =s 

* I GR= I OR.DER, 

DETERMINE I NTERPOLA T J ON coefficients 
CALL CO'T ( S «1 ORDER . AP ,A V) 

I0L2--I OADCR-2 
IOLI -IOLC4I 


2 DO 100 N =1 * NN 
K0=NMf | 

DO 200 J=1.3 
A= O.DO 
fls 0» DO 

DO l C xcl ,1 OL? 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


INTP 
I NTR 
INTP 
INTP 
I N T R 
INTP 
I NTR 
INTP 
I NTR 
INTP 
INTP 
INTP 
INTP 
I NTP 
INTP 
INTP 
I NTP 


S. o~ s 4 o 


39 
AO 
A 1 
A2 
41 
44 

AS 
A 6 
A 7 
A A 

AC 

so 

SI 
S 2 

53 

54 
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KK=K>K 

A=A + AV{ K ) CT( J .KK) 

10 B = 0 + /.( J (K)»AtT(J»KK) 

A=A+AV( I OLl )t?CT( J.KO-l OLl ) 

SUM( 1 , J *N ) 

o=h+sum( i ,j ,r;> >» ( s-i .oo> + sum( 2 , j ♦ k> 
Jc( Jt N> = 3 *2 

X< JO,N >=A*H 

IOC CONTINUE ‘ 

RETURN 

END 


INTP 56 
INTP 57 
INTP 56 
I N T R 59 
1NTR tO 
INTP Gl 
I NT!' £2 
INTP €3 
I NTR £4 
I NTR £5 
I N T P 66 


REPRODUCIBILITY of the 
ORIGINAL PAGE IS POOR 


U' 
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DESCRIPTION 


• 


JANTHG is a subroutine specifically designed for 
the GEODYN system. Its functions are to 


Recover the Greenwich mean sidereal time on 
Jan 0.0 of the reference year (e q) , and 

Set up the solar flux and geomagnetic 
activity variation tables, 

for each arc. 

Note that this routine computes the SI day (3 solar 
rotations) midpoint average of solar flux values for each 
arc . 


© 


© 


REPRODUCIBILITY OF TM 
ORIGINAL PAGE. IS POOR 
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NAML JANTHG 

PURPOSE TC SELECT GFESnwICH VFAN SIDEREAL TIME ON J Ay C.O 

. . O c THE REFERENCE YfK PGR EACH ARC AN C SELECT FuUX 
DATA POP EACH ARC F PCM EL OCX LATA STOP AC- ANO 
COMPUTE AVERAGE SOLAR FLUX VALUES FOR EACH A* C 

CALLING SEQ UENC E JA NTH G ( I E F-Y Mfj « I Y « S FLJX , MGFLUX . MYMl t LYMO ) 

&YMDCL TYPE CESCPIPTICrl 

HPYMJ 1 J-NPUT EPOCH YEAP. MONTH. A NO LAY 

IV • I INPUT - LAST 2 DIGITS OF REFERENCE YEAR 

SPLLX 1*2 INPUT - SOLAR FLUX LATA 

( 1 » 

MGFLUX 1*2 INPUT - MAGNETIC FLUX DATA 

( 1 > 


MYMG I 

1 NPUT - 

START CATE 

FOP. FLUX LATA 

. LYMC I 

I NPUT - 

STOP DATC 

F CP FLUX LATA 

SUBROUTINES USED 

D IFF 



COMMON H LOCKS 

CGCOS 

CONSTS 

flxplk 

INPUT FI.LaS 

N C NE 



OUTPUT FILES 

NONE 




DOUBLE PRECISION FUNCTICN JA NT M G ( I PY MU . t Y • S F LU X , M GFLU X , M YM D t . 
OOL3LE PRECISION THfTGG .CRAG ,GT W C P I , AVrLX t OFLX, KP 
INTEGER * 2 MGF LUX ( 1 > .S^LUX ( 1 ) 

CO MMON/CGC; O 5/GS (2J * THE T GG (15) . GC. (A 23) 

common/consts / c pi 12 ) ,r t acpi . r pal ,cpsr c ( 2 j 

CUMYON/r L>” L* //, Vr LX ( 675 ) *C FLX (675) . K 6(6 7 5 ) 

C RIGHT ASCENSION CF GREENWICH F CP Rf. OFFENCE JAN C .0 
JA NTH js THLTGcl I Y-ri7) *LPAO 

Call jiff (mv'-c ,c .iefymu «o .ioay . isr.c J 

CALL Ul FF < MYMJ .0 ,LYMO ,C .IOAYl . iSTC ) 

C FLUX VALUES A PL F QC \2 MRS. GMT C r T/CJL/R 0 AT c* 

C NEED FLUX VALUES 3.5 LAYS "Jcr OPE FAPUlrST DAT I FOR 1NTLCPATICN 
1L A Y = I D A Y-2 
ltAY2=IOAY 

IF< I .:.4 Y2. LT. ' I 1 JAY 2 =C 
ir(i:RY.LT.O IOAYa45 
K A Y1 =1 LA Y1 ♦; 

DO 2 C I =1 .o7J 
I 1 - I ♦IDAY2 


YMC)J ANT 

« 7 

JANT 

^3 

JANT 

29 

JANT 

AC 

JANT 

*3 

JANT 

A 2 

JANT 

43 

JANT 

44 

JANT 

AS 

JANT 

4 6 

JANT 

47 

JANT 

4 e 

JANT 

40 

JANT 

5 ■) 

JANT 

S J 

J/NT 

E 

J AN T 

5? 

JANT 

54 

J AN T 

55 


,fi n . 7 a 
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ir ( n *g i . u AYl > 1 1 — i o AYl 
KP ( I ) =l*i GF LU X( 12 ) *!• 06-1 
DFLX( I 1 =SFLLX( I 1 > *1 . CH-l 
I 2 -I ♦ICAY + 4 0 

IF C I 2*G T »IO AVI ) I2=IDAY1 

n-! 2 -ec 

A VFL X( l )~C* CD 0 
C COMPCT-.: FLU) AVrPAGC 
■CO 15 J--H.12 

15 AVFLX( I ) =AVFLX( 1) +SFLUX ( JJ 
20 A VFl. Xt I ) =A VFLXl I ) /Cl 0* 000 
RC1UAN 
t ; NC 

COLBL"! PFCCIS10N THE TG3 tOF AD «DT X CP l * AVFLX t DFLX » AP 
INT^G-IF <2 VG- LUX ( 1 ) v Sr LUX { 1 ) 

COVVCM/CGrO'/G5(2> • THF T GO ( 15 ) i-Gt (t23) 

CCf-MQN/CONS 15/0 PI (2) * O T W C P I , r. R. AO «0 r-S C ( 2 ) 

Co VK'lN/r L *3 LK /A V- LX ( t 75 ) »C F LX (67S)*£P(6?5) 

JA N T H. j = T H :: T G C { I Y-57 ) ^C -AD 

CALL 01 rF ( M V'O * 0 . 1 £. FYVD .0 * 10 AY , ISLC ) 

CALL 01 FF ( MYMD » 0 * LY MO *0 * I 0 AY i « I Sf C ) 

If; A Y£ = I CA Y 

IF < IOAY2. LT.C > I 0 AY 2 = C 
IF ( 10AY.L1. 5A ) 10 AY =54 

ID AY 1 = I DA Y 1 +1 
CO 20 1=1 <675 
11=1 + 1 L‘AY£ 

IF U 1 .G 1* IC AYl) • I 1=1 DAY1 
APU) =VGr LUX( 1 1 ) 

CFLX{ I) - SFL LX< I 1 ) *1 . OH-1 
12=1 +10 AY 

IF { 1 2*~G 1. 1L AYl > 12=1 O’ AYl 

11=12-54 
A VFL X( I ) = C* CO 0 
CO 15 J = 1 1 »I2 

15 AVFL X( l ) =aVFLX( 1 ) +SFLUX t J) 

2C A VFLX( I ) =/ VFLXt I ) /550.00 
RE 1 UH? N 
CND 


J ANT 

56 

JANT 

57 

J ANT 

56 

JANT 

59 

J ANT 

6C 

J ANT 

61 

J AMT 

62 

JANT 

£ 3 

JANT 

64 

JANT 

65 

JANT 

66 

JANT 

67 

JANT 

66 

J ANT 

69 

JANT 

7 C 

JANT 

71 

JANT 

72 

JANT 

70 

JANT 

74 

J AN T 

75 

JANT 

76 

JANT 

77 

JANT 

76 

JANT 

79 

JANT 

CO 

J AN T 

63 

JANT 

62 

J AN 

6 J 

JANT 

6 4 

JANT 

ec 

JANT 

6 6 

JANT 

6 7 

JANT 

ea 

JANT 

60 

JANT 

90 

JANT 

91 

JANT 

92 

JANT 

93 

JANT 

94 


REPRODUCIBILITY OF THE 
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NAME ' MULHAT 

PURPOSE TO MULTIPLY THRCE 3X3 MATRICES 


calling sequence 

CALL MULMAT (X «Xl * 

X2 ♦ X 3 ) 


SYMBOL ; 

TYPE • 

DESCRI PTI CN 



XI 

DP 

INPUT - MATRIX OF 

DI MENS I ON 

3X3 

(3*3) 

* 




*2 

( 2,2) 

DP 

I NFUT -MATRIX 0“ 

Cl MENS I ON 

3X3 

>3 

(3*3) 

DP 

IKPUT - MATRIX CF 

Cl MENS ION 

3X3 

X 

(2*3) 

CP 

OUTPUT - PROCOCT 

CF THE THPE 

L 3X3 


SUBROUTINES USED NONE" 
CCMPOrJ BLOCKS NON3 

INPUT FILES NCNE 

, OU T H UT F I Lt S U C NE 


SUBROLTINE MULMAK X ,X! , X2 ,X3 ) 

REAL *3 >(3,j) » X I ( 3 *3) ,X2 (3 .3) ,X3 (3 « 3 I .SUM 
DO AO J-l »3 
DO 1C I =1 »3 

10 XM * J>= C.00 
DO AC K -1 ,3 
SUM=C.OC 
DO 2 C L = 1 . « 3 

20 $UM=5UM+ X2{ K *L> *X3< L « J1 
DO AC I =1 *3 

AO >( I • J) = >( I . J> +SUM+X1 < 1 *K) 

UV. TU-ni 
CND 


MULM ?? 
MU.w 23 
MU_M 34 
MULM 25 
MULM 36 - 
MULM 37 
M LL M ? 8 
MULM 2 ° 
MULM AC 
MULM A 1 
MULM A 2 f - 
M ULM A3 
MULM A A 
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NAME 

PURPOSE 

CALLING SEQUENCE 
SUBROUTINES USED 


NE WARC 

TO INITIALIZE SWITCHES /NO CONSTANTS FOP E/CM ARC 

CALL NEWARC 

CLEAR 


COMMCN BLOCKS 

APARAN 


F LXBLK 


PR I OR I 

INPUT FILES 

NC NS 


CF.LE M 
FFCLC-L 
'TPLPLK 


C.GE.CS 
I NIT SK 
VRELCK 


CON5TS 
INT PLK 


ctime: 

PPEOLC 


OUTPUT FILS S NCNE 


,FLT R, PLCTP, CATP, CJTP. CSTSTAo GT DT=> 


SUBROUTINE NEWARC 
IMPLICIT REAL^e <A~H.O-Z> 

LOGICAL NC 7 1 ST * TONS FT 
JNT'-GcR XTZ TP ,F VTP , 3CRA ,SCPC 
PC AL P.MSTCT ,v;acov ,rp IT N 
DOUBLE PRECISION VOOCL.LCVL 
01 Mi N SI CN SPHO Y ( 6 } . s 3T?; C(2C) 

■ "• COMMON/APAP AM/I NPAP . I NP/ulJ , NLIAS t i‘ 5'T S*T- A * NS AT-V N G PA P'C * NUKCC li'N’A 

• NS 3 I AS iM/ XP/.R 

COMMOV/CF L£. M/E LF YOT (2A) * X NU * F C » F ► S T CT 
COM-4QM/CGLO S/1 SA TI 0 < 202 ) ,NCRtPP (LC 3 > 

C0MM3N/CCNS T5/0PI tE'TuCPI .C P/ <-,,c FS'C 

CO VMON/CT I MC/l> A TAL P( 3 ) » 0 A Y S T R . G A Y I NT * L 0 P G I T »C AY i'.N 0 « CP ATT* D3 RD 1 « 

• II < 2 > . I Y 

COMMON/ F L XFLK/I STORE (46 0 ,9) 

COVMUN/FMCCrEL/I NOdXI .fOCX? . I NOL X 2 . NCS.X 4 , CS ( 2C . 3 3 > . v OC P;L ( 6 I 
COM/CN/INi TDX/I GI (S7 ) 1 

COMMON/ I N7PLK/TH0CT1 * T H O C t 2 • THDT 2.S « 1 G2 < 5C ) ■ FOCUS C6 }. STE-PSZ ( 24 > , 

• lJf-.QN( 6) *LCVS ( 31 » TOFT.FT iNDCC-Y 
COMMON/FFEU LK/OAYSTA , JG7SC5 ) 

COMMON/ PRIORI /LL3MI N(12) .VARCOV C C i 6 * 2 > » T I T L ft ( 3A ) t OR AG C 1 G ) 

COMMO ^/IPiTa LX/INTP,OUTP,DATP,XYZTP,KFFT AP» PVT °i PLOT P « IOBS . SCR A. 

■ • SCRC iFLTFiGfiFTF * - 

COMMCN/VNf LCK/JSTCPF (460 *5 ) 

COU VALf-KCi ( :.C I TN.I G1 ( 33) ) 

DATA NO T1 ST/. FALSE. / * 

OC I TN = 3 . 5 

CALL CL C A p ( IG1( 34) ,24 . 1 I 
IF (N J M ST) GO TO 2C 

SAVi E.-.r AUL1 CONSTANTS UCCO F CP ALL ARCS 
NOnST=.TPUF. 

IN-eSl =1 NC ,X1 

l?^os j-i n:\ xi • 

N6CevS = NE Cr V 
DO 5 I = I »c 
6 SECT Y ( J ) - bOD I P S( I ) 


AM 


sr.wA 

20 

NCWA 

2! 

NFWA 

2? 

ntva 

23 

NCWA 

24 

sr*:wA 

2S 

Nt r WA 

26 

■\ «sr wa 

2? 

NFWA 

28 

NCfcfA 

29 

ns>a 

3C 

vrvfA 

7 J 

N c W A 

2 p 

NU'WA 

32 

NFWA 

34 

N FWA 

35 

N 2wA 

26 

N EWA 

27 

NCWA 

38 

MF WA 

29 

N C HA 

40 

Np WA 

41 

NFWA 

42 

NEW A 

43 

NFWA 

44 

NFWA 

45 

M C WA 

4fe 

NFWA 

47 

N~ WA 

4 £ 

NeWA 

4? 

N E WA 

£0 

NeV/A 

£1 

N?WA 

5? 

NFWA 

£3 

n r>A 

54 

NFWA 

55 
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THDOTl = TKDOn RAD 

nfwa 

-56 

lHOO'T»slMPmi*OTWCPI 

NF.WA 

£7 

THCT2S=T»-rOT2 /G.64C4 

nf wa 

£ 6 

DO 10 I =1 *2 C 

NFWA 

59 

CLEAR ALWAYS AND SE T APC DEFAULTS 

NLWA 

£0 

10 5 S TTP( I JsSTFPSZ t l ) 

SEU'A 

61 

20 DO tb 1=1.20 

NF.wA 

€2 

85' STEPSZC I ) *SS*Tr;p< I > 

NLWA 

C3 

NDOS YsNBCDYS 

NFWA 

64 

, 00 26 1 -1 ,6 

NFWA 

65 

26 BOO IF S( I > -SfcfGOY( W 

NfWA 

66 

CALL Cl.** AR( M' CN .3 .1 ) 

NFWA 

<- f 

TO Rrl r T - • F A L £ I * 

NFWA 

68 

DPATE = 9 55*000 

NFWA 

£9 

DORRIT-C.CDC 

NFWA 

7C 

DA YJ.ND-C . COC 

NFWA 

71 

* DA YSTA= 5 5 9. CO 0 ' 

NFWA 

72 

DA = CO 0 

NFWA 

73 

DORB 1 1 * CO C 

. NFWA 

74 

P.MSTOT=20C. 

n r WA. 

75 

CALL C L E.A P ( V4 PC C V » 04 » 2 ) 

NFWA 

76 

CALL CLfAR( I STOP:: .At>C ,9 ) 

NFWA 

77 

CALL CLt:AR( JSTORil ,A5C .5 ) 

NLWA 

78 

DO 3C I *6 

NFWA 

7 9 

VARCOVf I , I ,1 ) =1 • OOf 1 A 

NFWA 

BO 

30 VA PCQV< I , I .2) =1 . 90 + 1 4 

NFWA 

el 

UIPA»=0 

NC WA 

62 

■*t*'STSTA= C 

NiiWA 

e3 

NPA9A‘*4=C 

N K WA 

CO 

NESIA3-C 

NFWA 

65 

MA>PAR=C 

NFWA 

ec 

N3IAS = 0 

NFWA 

67 

INPARI=C 

NFWA 

68 

CRAG( 1 7 J - l • £0 0 

N FWA 

89 

DRAK 1 ft )*!• tZ 0 

NEWA 

59 

CALL CLFARt K0PPF9 .3 ,1 ) 

N»"WA 

91 

iNDi XI = I NO SI 

'* NFWA 

92 

INDL X3=I NOS 3 

NFWA 

93 

Ki- PTAP=S 

N C WA 

54 

nor-:ci = C 

NFWA 

55 

•NGPAPC=5CC 

NEW A 

56 

N£AT=1 

NEVA 

'97 

1 0 R S = 2 0 

NEVA 

58 

>YZTP=8 

NEWA 

59 

F V TP = 0 

NFWA 

1 CC 

RETURN 

NFWA 

10) 

“NO 

newa 

1 02 
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NAME NUMQR2 

PURPOSE TO SEARCH AN ARRAY TO Of TERMING IT THE ARRAY 

CONTAINS AN ENTRY fcHJCH MATCHES. GIVEN OUTPUT NUMBER 
"V ' IF FOUND THE IMjL-X NJMF^F OP LOCATION IN THE 

• ' '• ARRAY '1A« IS RETURNED. C IS RETURNED IF NO MATCH 

* I S F OUND 

CALLING SEOOEnCE X =NUMDR2 ( K . I A . ! D) 
symbol type description 

K I INPUT - NUMBER OR E I T CCNF I CU f At I CM TO EE LOCATED 

I N ARRAY 

1*2 INPUT - ARRAY TO EE SfAFCHLD 

I INPUT - NUMBER OF l.NTFIES IN ARRAY «IA« 

I OUTPUT - THE NUMBER CF ENTRY TH/T maTCHCC THE 

GIVEN INPUT NUMBER 


SUBROUTINES OSc 0 

NONE 

COMMON BLOCKS 

NCNE 

INPUT-FILES 

NCKE 

OUTPUT FILE S 

NONE 


INTEGER FUNCTION NU»-‘S R2 ( K . I A ■ I D ) 
INTEGER <2 I A( ID) 

NLM9R2- C 

IFCID.LT.l) RETURN 
LO 1C I = 1 » I C 
IF (K „EO . I A { I ) ) GO TC 2C 
10 CONTINUE 
PE TURN 
20 NLVSR2=I 
RE IUTvN 
END 


N UY 3 3 6 

NUN'S 37 „ 

NUMB 3 6 

MU-'B 3 9 

NUMB *C 

NUMB fil 

NU’-'B A£ 

NUMB A3 

N H At 

N U«B AS 


IA 

( ID ) 
ID 
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NAME ' NUM0R4 

R UR POSC TO SEARCH AN A PRAY TO DLT CRM 1 NO l F T HR ARRAY 

V .. CONTAINS AN ENTRY V.HICH MATCHES A GIVEN INPUT . 

•• NOVD r R. IF fCUNO THC iNCfX NUMpRk OR LOCATION IN 
TH£ APnAY * I A * IS RETURNED. 0 IS KTUFNIX IF NO 
* MATCH IS FCUNO 

CALLING SEOUFNCL NUMDR4 ( K , 1 A . I D > 

SYMBOL TYPE DF.SCRI PTI CN- 


INPUT - NUMBER CR EIT CCNF I C-UR AT ION TO BE LOCATED 
IN * I A • ARFAY 


IA 

( ID ) 


INPUT - ARRAY TO EE SEARCHED 


ID I IKPLT - NUMBER OF ENTRIES IN *IA* ARRAY. 

Mjf-'BRA I CLTFUT - INDEX NUMBER OF THE Mt-NPEP OF • IA* ARRAY 

hHICH CONTAINS THE ENTRY fcFICF MATCHES K 


SUBROUTINES USED NCMT 


COMMON BLOCKS 
1NPLT FILES 
OUTPUT F ILE S 


NONE 

NCNE 

NCME 


INTEGER FLNCTICN NUWBR4 ( < . I A . ID > 
INTEGER ^4 I A( ID) 

NLM?R4=C 

IF(Iu«.LT.i) RETURN 
CO 10 1-1 ,ID 
JFtK.CO.lAf I) ) GC TC 20 
10 CONTINUE 
PF. TURN 
20 NLM0R4-I 
RETURN 
END 


[NUMB 35 
jNUMR 36 
;nlmb 37 
[numb 3e 

iNUMp 

|numb 40 
|n UMB 41 
|NUM3 *2 
(NUMB 43 
[VUMP. 4 4 
|NUMB 45 
[ ■ 

S 
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namc numloc 

PURPOSE r . TC SEARCH AN ARRAY TO O LT £ T- *.■ 1 N £ IF T HI’ AP PAY 

CONTAINS ENT PIES WHICH MATCH GIVEN INPUT NUMB C.R • 
IF'rOUNO THE INCtX NUMBERS UP LOCATIONS IN THE 
' ■’ ARRAY MA' AND THE NUMBER CF SUCH MATCHING ENTRIES 

* FOUND APE RETURNED 

CALLING SEQUENCE NUMLOC ( NO »I A .NT . LCC) 

SYMBOL TYPE DESCRIPTION 

I INPUT - NUMBER OR EIT C CNF I GUP^T ION TO BE LOCATED 

1 N ARRAY 

1*2 INPUT - A RP AY-, T O F E SEAFCHFO 


N X I INPUT - NUM9 r K O p ENTRIES IN »IA* ARRAY 

LOC 1*2 OUTPUT - THtT I NOT X NUMtJEF-S OF Tht' Mf'MtJLPS OF * IA' 

(|J ARRAY WHICH MATCH »NC* 

NLMLOC I OUTPUT - THT NUMBER OF ENTRIES THAT M AT C H THE 

GIVEN INPUT NUMBER 

SUBROUTINES USED NUMBR2 

COMMON BLOC ICS NCNE -- • 

INPL1 FILES 
OUTPLT FILES 


REPRODUCIBILITY OF THE 


NO 

IA 
( 1 ) 


INTEGER FUNCTION NU W L CC ( NO « I A * NT ,L DC ) 
INTEGZR *2 LCC(1)*IAU) 

NLMLOC-C 

I j =N UMB P? ( N C . I A « NT I 

IF <11,20.0 RETURN 

N2=NT-I1 

NUMLOC - 1 

LOCC 1 1=11 

00 20 1=1 .NT 

J1 =UOC< NLMLCC )M 

I l=NUMoR2 (NC . I A ( J1 1 ,N2> 

IF < I l ,FC. C I F. IT URN 
NUMLOC = M.MLCC +1 
LCCC MJMLOCJ *1 1+ JI-1 
20 N?=N2-I l 
Rt TURN 
END 


NUMU 36 
M UML 39 
MUM L 40 
N UML 43 
NUML 42 
H UML 43 
N UML 4 4 
MUML 4S 
M UML 46 
M UML 47 
N UML 4 9 
M UML 40 
M UML 50 
MUML 5J 
N L' V L 5 2 

M UML 53 
N UMl 5 4 
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NUTATE 

/ 

DESCRIPTION ; 

Subroutine NUTATE generates the rotation matrix 
to nutate a vector from true to mean equator and equinox 
of date. 

EQN is invoked to compute the nutation in longitude, 
the nutation in obliquity; and the true obliquity of the 
ecliptic. The rotation matrices are constructed by ROTMAT; 
MULMAT evaluates the output rotation matrix as a product 
of the three input rotation matrices. 
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NAME 

NUTATE 


PURPOSE 

TC GENERATE MUT AT I ON ANCLES 
true (Equator a no. equinox tc 

EOUlNOX 

TO TRANSFORM 
Ml AN ECU AT CP 

CALLING SEQLENCF. 

• CALL NUTATE ( DAY t X ) 


SVMBQL TYPE. 

DESCRIPTION 


DAY OP 

INPUT - TIME FCR ANGLES 


X OP 

(2.2) 

OUTPUT - NUTATION FATFUX 


SUOROUTI MCS USED 

BCTKAT MU L MAT E CN 

YMDAY 

COM KQN BLOCKS 

I HI TDK 


INPUT FILES 

NCNtT 

. 

OUTPUT FILES 

NONE 



REFERENCES *GEODYN SYSTEMS DESCRIPTION* 

VOLUME 1 - GFOCYM DOCUMENTATION 


FROM 

AND 


SUBROUTINE NUTATE (D AY ,X> NUTA 

COUf'LE PRECISION L A Y , X ( 3 , 3 ) , 0 JS ASF: * OS L PS I . 0 J . D7PS • EP S i YKD AY NUTA 

REAL*i X 1 ( 3 *J ) ♦ X2 ( 3 *3 ) * X2 < 3 « 3 I N UTA 

COMMON/ I KITEK/I ill (S3) .NCT1 ST *IC2 (4 ) S U^A 

LOGICAL NCT1ST V UTA 

IF(NOTl£T) GO TO 10 NUTA 

C Jc A Sc = 2 Q 3 3 ESI • 50 G— Y VC AY (5GC10C » C « 3 • CC ) NUTA 

NO 11 ST= . 7RUF * NUTA 

1C CJOJJA St ■♦CAY NUTA 

G = EQN( 0 J L^ 51 »DT7PS .EPS) M UTA 

CALL R01MAT{^PS .1 «XI ) NUTA 

CALL kO 1MAK + CFLPSI .3 «X2) NUTA 

CALL AO IMAT(-CPS*DcPS «1 .X3 ) ' NUTA 

CALL **ULMAT< X «X3 « X2 «X1 ) NUTA 

RETURN . NUTA 

END NUTA 


REPRODUCIBILITY OP THP 
ORIGINAL PAGE IS POOR 
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DESCRIPTION 

Subroutine OBSDOT calculates the time derivatives 
of the computed observations. The measurement types 
implemented are: 

.1, Right ascension and declination 

2. Range 

3. Range Rate 

4. Not used 

5. & and m direction cosines 

6. X and Y angles 

■ 7 Azimuth and elevation 

Note that the functions XEFIX and YEFIX are treated as 
transformations. When applied to the velocity vector, 
the output of these transformations differs from' the 
Earth fixed velocity by a term involving the rotation 
rate of the Earth. 
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name • , OUSDOT 

CNTRY POINT ... PURPOSE 

OB SOT I INITIALIZATION 

Of3 5DO T . * TO CALCULATE THE TIME DERIVATIVES OF COMPUTED 

' ' ‘ \ CBSERVATI CJNS 

CALLING SGCUENCE- OB SDT1 (CHAT ,NHAT * ZPAT > 


SYMBOL 

TYFE 

DwSCRI PTi CN 


- 

(£MA 1. 
(2*1) 

DP 

l NPUT - ST AT I CN 

UNIT 

LAST VECTOR 

NHA t 
(3*1) 

DP 

INPUT - STATION 

UNIT 

NORTH VECTOR 


2 HA 1 OP INPUT - STATION UNIT VERTICAL VECTOR 

(2«i> 

CALLING Si'CLENCE CBSDOT < MTYP.’ , 1 ST A . CBS CT 2 ) 

STMEOL TYPE DESCRIPTION 

MTTPE I ' INPUT -‘‘-MeASUKLMf- NT IV PL 

1STA I INPUT - iNTc-PNAL .STATION NUMCFP 

CnSDT2 -DP CLTFUT - TIME DERIVATIVE OF SECOND VtASUFEVSNT 

CB SCO T DP OUTPUT - TI vr CEP I VAT I V f. CF FIRST MEASUREMENT 

SUBROUTINES LSBQ YFF I X D CT PRD XEFIX 

COMMON BLOCKS CLVECT INTRLK PREPLK XY70UT 

inpit files ncne 

OUTFLT “ILFS NC NF. 

Rt S1RICT10NS CCMPUTl. THE TIME DERIVATIVES CF M E.ASU P LMLNT TYPES: 

RIGHT ASCENSION /NL' ELCL 1NAT J CN ■ F/NOr* P/WC-E 
PATE., L AND M DIRECTION COSINES* X AND Y AMOVES. 
AZIMUTH AND “LEV/TICN 


1 G:Z CD Y N SYSTEMS C L SO 1 F* T I CN 1 

vc LU -, e . - g'-ctyn cc:r.uwi.NTAr;n- REPRODUCIBILITY OF THE 

ORIGINAL PAGE IS POOR 


DOUBLE PREC I >1 CN FUNCTION OSSPT l (Em*t ,NHAT , ZMAT > . 

IMPLICIT RE/L*S fA-H.C“ZI 0 a sr» 
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INHG.T *2 I iAT.PlITYP 


OP SO 

56 


ooldl; fm t.isicn nmat 


D BSD 

57 


C> I F i: N S I C N v HA T ( 3 « 1 ) * KM \ T ( j « 1 ) , Z H r T ( 3 » 1 ) , P t LPOTCB), 

C/OLCriTt?) . 

3 n SD 

se 


COMUC'J/CUV'. CT/UHMU .2) *XVZ(3.Z) • PX Y Z ( 3 . 2 ) • r ~NV ( ?« 

r)* c (Z)«^so(2), 

3 PSD 

59 


• XY5QCPJ 


D DSD 

60 


CO I'M / IN 15 LK /TH - TG 3 < 2 ) , THL TZ 5 * G f' , A:' (62) 


ODSD 

■61 


COMMOW/FF; fc LK/3 AYSTAI7) ,ISAT , PFfTYPtS ) 


DP SD 

62 


COMMON/ XYZOLT/XYZI ( 6 *4 ) 


DBSD 

63 


Ri 1UF.N ♦ 

• • 

0 3 SO 

64 


f-.NIFY 03SL 0 T( MTYP r * I ST A .CBSDT2 > 


3 BSD 

65 

c 

CALCULATE SAKLLIT:. J TK~F 1 XZ D VZLCCITY VICTOR 

' 

DPSD 

66 


OP. JOT?- c • c: C 


3 PSD 

67 


03 sjot= c • cr. C 



68 


IF < MTYPr.. 6T.7) FV* TURN 


3 BSD 

69 


Cc.LCOTC 1 > = X 1 , ~ 1 X( XYZ 1(4, I SAT) ,XY 21(5, IS AT)) 


DESD 

73 


OrUiOTI a ) - Y.: " I X( XYZ I {4 , I SAT ) ,XY 2 I (5 . IS AT > ) 


3 BSD 

71 


Dt.LDOTl 2 J-XYZ I ( 6 , I SAT) 


3 BSD 

72 


IF {Ml YPc • NP .2 ) GC TC SO 


DBSD 

73 

■c 

COMPLTu TIME FA IS CF CHANGE OF . • • 


DO SO 

74 

c 



D 0 S f '- 

75 

c 

.•♦FANG*.. *% 4 1 £ 


3 BSC 

76 


Rl $0 = 3£ 1PF3 < XYZI ( 1 , I SAT) ,XYZ1 ( 1 . IS *'T ) ) 


3 B 

77 


R 1 SOF 1 ( A 1 SO) 


3 BSD 

78 


C4=GM/( P 1 JOt^l ) 


3 BSD 

79 


C= 5. *( > YZI ( 3 ,1 SAT ) /F 1) **2-1 .C CO 


0 BSD 

ec 


C2-C-* 2. CC C 


3 ^3D 

61 


C'2 - 0 « HV 6 4 h'". \ a /0 \ cc 





r- ‘ , . v . r-' *n \ */■ /, 


nner> 

8 3 


or LCD T( 1 ) =• c *XYZ( 1 , I SAT ) +THC T2S *C- LC’OT ( 2 ) 


3 B S3 

84 


DoLDu T( 2 ) C * X Y Z ( 2 »I StT)-TH?7?S * C.. 1. r DT ( 1 ) 


3 BSD 

£6 


* Dc. Ol'K 2 ) =- ( 1 . G0C-C2 *C3) *C4?XYZI (3, IS AT ) 


. 3 BSD 

£fc 


Dt LG(JT< I) c LDCT{ 1 ) + TH3T2S *XYZ ( 2 . IS AT ) 

* 

3 DSD 

67 


Cl: LOOK 2) =Z2LC'OT(,?> - TlO T2 S *X Y 2 ( 1 , I A AT ) 


DPS'*' 

60 


CT. LDL Tl 1 ) -Cl L3D T( 1 > + THJ T2 S r LP CT (2 J 


3«S r .' 

£S 


Dc.LD(.*T( 2 > =: lllC-kz )-tkgt2s *c-:lcct ( 1 ) 


3 fi SD 

S3 


FPC.T-DC 1PF3 (DC LOOT , UH AT ( l , I SAT ) ) 


3 PSD 

SI 


CF S:>0T = C£j TPr D ( J 3f LJGT LO CT ) / A < 1 SAT ) + COT FFC (U FAT C 1 * IS AT ), r: lc.pt ) 

3 P SC‘ 

92 


. : n 1 * *2 /A ( I 3m T ) 


DP S3 

9? 


PE1UFM 


3DSD 

94 


50>.C*CLODT( 1 1 Cf.LCCTt 1 ) + TH3 T 2 5 *X Y Z ( 2 » I :• AT ) 


OF SO 

95 


Or LOOK 2 ) OJLL CT ( Z) - THC T2 S *XY Z( 1 » I v AT ) 


3 ? S3 

96 


.PC CT = ->0 IFF 0 (CcLtCTiLHHU , I S f T ) ) 


D P- SD 

97 


GO TO( 1 CC ,2 CO ,?Co ,7CC ,3 30 *60C .6 C5) ,MTY=>“ 


3 OSD 

9« 

c 

...OPTICAL 


3TSD 

99 


ICG C— 1 • Gl O-LHa 7(3.1SAT)*»> 


dps: 

1 CC 


OP St T2 = ( X1Z I < « I SA T ) - LH AT ( 3 * J S AT ) * • 0 OT )/ C F ( IS AT )w 

os cr t ( c ) ) 

’ 3 p S3 

\ ^ I 


Oc* SC OT*t UHAK 1 ,1 SAT) 4C..L2CT (2) - UP/T (2 , IS AT )*Lti.lO 

TCI > )/(4 { I SAT ) *C )3 TSD 

1C. 2 


ft ::’ turn 


3 ° SC 

103 

c 

. , ,Rfr,MG.‘ 


D PSD 

I C 4 


Z^C CSi STOT^FDC^ 


D ? SD 

1 Cf 


P! lb- N 


3 PSD 

106 

c 

,, f KIN I Tf AC * 


DBS; 

1(7 


FuO op zr c7-(c cti •*. : (“..lcot hat < i , :st a > j • a - nv < i , is/t >v 

- >UT )/(■ { IS AT ) 

'( C' C^f\ 

1 C 6 


o-.* :<• i t- (t c~rc nr ,nh/t ( i , ist / j > -fc.nv ( 2 , is /t )v 

FOOT)/ - < ! SA T ) 

3 '• S3 

: C9 

\ 

Rt. T»Jt- ll 


OF* SC 

1 1C 

c 

t , . X- Y bf s 


3° SD 

: ; ) 


■reproducibility of the 
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6QC C=S«O^C-H'NV( 2 ,! SAT) « *2 

OL £DC1T=( f.;-NV( 3 * I SAT) SCOT ( CF.LC-CT ♦ HAT ( l , 1ST A) )• P "NV ( 1* ISAT ) « 

« tOTPf D (lit LOOT • 2HATU » I S T A ) ) ) / (C * £ < I 5 AT ) ) 

, Ofcr£*>T«lMC OTPFOtrV -LuiCT » NH AT ( 1 * I ST A) J--RCOT *K'"NV <2. ISAT ) )/(M ISAT)* 

• * D SQK 1 ( C > ) 

C AZIMUTH AND ILiVATlON 

fcos ,c=i « c::.-r;:nv(3. i sat > **2 

CS SOOT-(A-MV( 2 *1 SAT) *SDTPAO(L ' L C CT * T H AT (1 , 1ST / ) )- P"NV( I* ISVT)* 

• DO TP SO ( D f t OC T » NH A T (I « I S T A ) ) ) / ( C. * ( I S AT ) ) 

* OD SC-T2* (t OTF^CtwCLOCT .ZH/TU »I5T/> ) -I- Z TT * K .‘NV (3» ISmT > )/i? ( ISAT)* 
i D SOFn T( C> ) 

7CC ' PL TUAN . 

END 


D P SO 112 
0 f? SP 113 

o 3 s'* i : * 
D r- so 115 

OrtSP 116 
D 3 SO 117 
OF SO 118 

o a so 1 1 p 
33SD 12C 

onso 121 

OP SO 122 
0 P SO 12 3 
OfiSD 124 
0 PSD 125 
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r 

NAKiE . * ORBl 

« * 

PURF'Oitf TO GENERATE A SATELLITE EPHFMLRIS TAPE IN* CR8 1 

/tape FORMAT 

CALLING SEQUENCE CALL ORS1 ( OROi RT > 

SYMBOL 1YP£ DESCRIPTION ' 


CPblPT CP 

. INPUT - 

CPC31 TAPP. 

CUT PUT PAT f IN 

INTLGRAL 

SECONDS 

SU3F.0LTIN* S LSEO 

0 C 01 T 
L‘CN 

DAY LAP 
OJUL 

ILLY 
DCT PRO 

C AT LS 

ERROR 

COMMON BLOCKS 

CCNST S 
1 NT3LK 

FMODT L 
PRI CRT 

CCLEM 
X YZOUT 

CGDOS 
CT IMH 

COR 6 1 

INPUT FILES 

NONE 



. 


OUTPUT Flues 

22 - CRB1 FILE 




REFERENCE 

*GEODYN 

VOLUME 

PROGRAM CP 
3 - GLORY U 

ERA. T IONS DESCRIPTION' - 
C CCU ME NT AT ICN 

APP END I X 


SUBROUTINE ORBl < CP 81 RTl 

CONM3N/CT! ML/lATA'.P(2 ) . D AY fEF, CSTAFT . CAY ST P <1L > . OCR 61 . DO? B1 E. 

• OR3F 1C 2) .1 Ytw’G 

RLAl. *'2_ L L E *■' I N ♦ C L , CD D » E V I SS , 5 F C 
COMMON /CONST S/D D I .DTfcCPI .C A AO.DFSEC (2 ) 

PL" AL * -3 KC-CEL. CS . 

COKMON/FFCD LL/1 NDLX l • NO LX 2 * I NO C X2 * INCLX4 . CS ( 30 * 33 ) * MG T 5L ( 3 ) 
P-.AL*6 0?GPAR .f.'M JON . MSUN , AS AT , MS AT 

f<L AL * 3 6LF( 3S 1 ') ,i/jUS(0 ,50 .OCPfl ,1 01-81 ( . OOEIPT.XY ZKNp, rOT^F Dl 

• DA YF L- * TH"_ TGC * THGCT1 * LGN * C J J L , G1 . C-2 . CP LOLA. EL * VST » A £ , GM , 

• CPI iC T V.OPI ,O^AC . V" ,1 STAFT ,D/Yf L'* .GM.XNU, L.C.P- 0* /PHT* PL»8T, 

. PAND CT , PL MOOT .7HDT2S . G3 
fOVMON/CC LEM/t.LTMST 112) . C R r J L : L A ( 12) .XNU.lC. PM* TOT 
CO PM JN/CGiOS/I SAT ID .0,4 (45^ ) 

- COMMON /COR* 1 /RAND CT < 2 ) . -L' .Ft CT { £ ) ,Pf PUT ( 2 ) . / PHT ( £ 1 t PRO ( 2 ) 

CCKMJN/ IN Tj Lk/ThD CT 1 ♦ THCCT2 (2 ) . 7K T 2 5 . G.M * A l , A LS 0 1 A A ) . T hS T GO > 

. MM “ON « PSLN « MR GO Y ( 4 } * AS A T ( 2 > • f'S / T ( ? ) , V APST P ( 2C ) 

COKMON/PF If]?! /;" LT Ml M02 ) «CD<£) , CLf ( £ > ,f MISS (£) 

CO KMO.-J/ XY^DLT/XYZi Nr- WO .l^GFAP ( IP ) 

REAL * 3 M N*. S/S99P 9? 99.?C/ 

IN IS G “P TORSI /.? 2/ ,N~ I l.; S/C / 

LO LI V \Lf NCr ( -2 Li" ( t ) * L-UF ( 1 ♦ 1 ) ) 
c OBTAIN 3'OI 1 FDA i'l GlfhlNG C? GRF1 T /PL 
CALL 0( blldn^i) 

C t>L 1 LP HCaLLP P-.C 
CP 1C 1-1*3 SO 


1C HLF{ I ) = C.:-0 

OLF ( : > - 7075E2 91 .DO 


REPRODUCIBILITY OF THF 
ORIGINAL PAGE IS POOR 


DF9 1 

28 

CRD 1 

29 

0=>31 

DC 

ORB 1 

21 

3 P 3 1 

2? 

0 ? D 1 

32 

OF-3 1 

Z u 

DP? 1 

25 

3^3 1 

2 5 

D l 3 1 

37 

3 ? R 1 

35 

DTB1 

29. 

0P3 1 

4C 

OROI 

4* 

OPR i 

A 2 

OPE 1 

43 

OPR l 

44 

0«? 1 

45 

OPBi 

At 

OH? 1 

47 

0PB1 

48 

OF? 1 

49 

OP? 1 

SC* 

OP? I 

5\ 

OP? 1 

5? 

OP D 1 

53 

OPR 1 

54 

OR 3 1 

55 


ft 0-^0 
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1 5 
20 


OUFC 2>= 1 SATID 

CALL 04 NLARCl ORCI .1 YBD • IOAY * ISLC ) 

DOFC * ) = 1 YIO 
BLFC £ )- I T A Y 
DLr<6)=!LiC 

CALL W. M- AS O ORP 1 E . I Y NO 1 1 DAY i I S E C ) 

BUF(7) = I'r>0 
Bunco = IL/.Y 

BUFC 9 > = 1 SIC 4 " 

OY-K» I M 1 ( C4 EU FT *66 A CO. 00+ *500 ) 

BLFC 1)) -Cl 

CA LL CA YEAR (DAYFL'F * I Y VJ ,1 DAY , IStO 
6LF< r!7) =1 Y'-lL 
BLF { 2 U ) - 1 C 4 V 

BLF< -2 9) = THL TG 0+ I 0 J NT ( CAYHclF) *T H C CT 1 f ICN ( C JUL C C AYR LF ) t G 1 * 02* G3) 


CLL-A2 

BLF< 27) =*■!. ^C»CS(2 .1) *CUL * *2 
BLFC 3 3 ) — — 2 « L 3 o*CS (3 ,1 > ’CULvt? 
t)UF( 39} = + 3. 7SD0 *C S(4 .1) 

BLF< A ) « + 1 .tC *C SC5 .1) *CUL**5 
CL 1=1- SOF T ( AL * *3/G M) 

& UF( eo) =C-3( 1 ) 

6LFC 6i) - a SA 71 l ) *1 • 004 
BLFC e^)8MJU(l) *1.00 3 
IF C MM JO N . G T . 0 . 0 3 0 ) 0UF C 91 ) = 1 . C C C 
IF J MS UN idi C. 00 0) BUF < 92 ) =1 . OOC 
CALL LLc M(e‘ LL W 3T, CAHc.' LA .1 * * T RUT. • ) 

|5LF< I Cl ) = <D S TA^ T-CAYFif.F ) *36400. CO/CUT 
OLF< 1 C2 ) =CABi: LA ( 1 } / CUL 
BUFC 1 03 ) =C9H~ LA <2 ) 

BUFC ; 04 ) — XN L 


00 lb l -1 .6 

BLF( 1 + I J-FLFMSK I ) /CUL 

DO 2 C 1=4,6 

DLfC 134 + 1) =F/UF ( 1 04+ I } *CUT 

DLTt 1 11 ) =C SCt *T< C CTPRL CBUF ( 1 C 5 ) , FUF ( 1 C 5 ) ) ) 
BLF( 112) =GSCR 1( C CTPAC Cri'UF ( 1 OG ) . EUF ( 1 OF ) ) ) 


E»LF( 1 14 J = CF bt LA { 6) 


8LF( i i 0 > = cr<er LA ( 5) 
BUFl 1 17 ) = CFCrLA(3> 


BLFC I 1 BJ =34 bi LA C4 ) 

BLFC i 20 ) -Z’ T *0 P I /PAD ( 1 ) 

8LF( 121 > = -:c 

BLFC 122 )=Fc FOOT Cl J *0 P AO *CU T /E«64S4 

BLFC 123J-FA NCCT(1 ) *C F AD *CUT/ P . c 4 C A 

BLFC 1 24 )-PrC C 1 ) /CUT 

BUFC 12b )-P-FH T<1 ) *1 . C 03 /CUL 

BLFC 1 2 A ) iA n HT C 1 ) *1 . 00 + 3 /CUL 

CALL OA 11 SC L START .1 VKC » I M M.« $ LC ) 

1 Y2-I YMO/1CC.O J 
ISfc'M WL—I Yt.*l CCOC 


IMl =10; /l CO 

it i =k -if; *i <ro 

ih=ih2/i o: 

1«Y = 1H 4- In *1 CC 
BUF( 1 01 ) = I YE 
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DPBI 

66 

DR3 1 

67 

DAP 1 

66 

OPEU 

69 

DR31 

60 

DRB l 

Cl 

OPD 1 

62 

DPBl 

63. 

0 PB 1 

64 

DROI 

65 

0 RE) 1 

66 

OF3 1 

67 

3PB 1 

68 

DFB J 

69 

DFBl 

7C 

OPB 1 

71 

DF B i 

72 

3 R*3 1 

7 3 

OPQ I 

74 

D F 3 1 

75 

0FB1 

76 

DRP 1 

77 

DFB 1 

7e 

DFB 1 

79 

0P6 1 

£C 

ORB 1 

G1 

DRdl 

62 

3 F B 1 ' 

63 

ORB I 

64 

OPB 1 

es 

DP3 1 

66 

3PB 1 

67 

ORB 1 

68 

DR3 I 

69 

0RB1 

90 

DR 31 

91 

DFBl 

9? 

DPB1 

93 

3RB 1 

C 4 

DRB1 

95 

ORB \ 

96 

DP31 

97 

OR 3 1 

96 

DP31 

99 

DP^l 

l Cr 

DR3I 

101 

ORB 1 

irs 

DR0 1 

1 C3 

0RR1 

1 C 4 

DPB1 

1 C 5 

OPP 1 

1 C 6 

DFBl 

J 07 

DRB1 

1CP 

DFBl 

1 F9 

DRB 1 

no 

DFOI 

1 1 1 
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DUF ( 2 52 ) = I ME 


- 

3 PD 1 

222 

BUF< l C3 1 = IDE 



3RDI 

1 1 3 

BLF{ 1 54 ) — I H 



3RB1 

2 14 

BLF< 1 *5 5 > = I M 



3R02 

1 1 5 

DLF( 1 56 ) = J 3 1 N T( SEC *10 00. CO f.SCO > 



3PD1 

116 

6LF< 2j0 )=2.CC 



DPB1 

1 1 7 

C WA 1 TL K':A";F. AND DATA 'RECORDS 



D PD 1 

lie 

2 5 kF lTe( TCRE1 )3UF 



3RD I 

2 19 

DO 28 1 =1 ,3 50 



ORB 1 

120 

2 8 B LF{ I ) = C.CO 



3 FBI 

121 

C FILL RlCC:0 J V 1 H - F. LF ML NTS UNTIL C UU 



ORB 1 

1 22 

30 CALL 04 'll- AR < 0 ORB 1 * I Y UD * I CAY * ISC C ) 



3RD 1 

l 23 

DLF< 1 >=I Y«3 



3RD 1 

! 24 

6 L F { 2) = ir-AY 



3RR1 

1 25 

0LF{3>=JE.-:C 



ORB 1 

126 

BLF( A) =DT 



3PB 1 

5 27 

IDL^-l 

• 

* 

3RB l 

128 

4 0 DO 5 C *1 = 1 * 6 



3 PD 1 

125 

50 EF.LF { 1 . IBL- 1-XYZL NC U ) *i . D-*3 ’ 



3 EDI 

1 30 

IF (D05D 1 .G?; .3 ORS1L > GC TC 60 



3RD 1 

1 31 

DA *t O=l> 0RE l 



3RD 1 

232 

DCR3 i =0 CRU1 + 09D1 RT 



ORB l 

1 23 

CALL ORB I T( D0AG1 > 



3RD 1 

134 

I D LF ~ I D LF 4- 1 



3Rdl 

135 

IF ( IDL’F ,LU. SC ) GC TO 40 



3RQI 

1 36 

GO TO 25 



ORB I 

1 37 

C KPr l 1L LAST RCCOPC 



3 RBI 

I 38 

••'CO IT {-i I>U"**L cr.ju) GC TC oO 



3 Pls l 

1 3 9 

nr> i T L i TCF6; ici LF 



DEB J 

1 40 

IPL^=1 



ORB 1 

2 41 

CO 701=1,9 


’ 

3»0 l 

1 42 

?0 BUF ( n- NINE £ 



3RBI 

143 

C TERMINATE TAPE H TH <5 • S 



DPB 1 

144 

80 DO 5G I =1 .6 



0P31 

145 

50 C£ LF( I » IOL- )-NI NES 



3RD 1 

146 

kf ; I TE ( TCP B 1 ) L LF 



3P31 

147 

kR IT- ( TCPD1 }( MMiS,! -1 ,350) 



0R31 

148 

kR I TA ( TCREi )(Mn:s,1 =1 .35 3 ) 



3 r 'D 1 

145 

LNCF-'ILE TCRB1 



ORD 1 

1 50 

NF IL35-NF IL^Sf 1 



3RD 1 

1 51 

PRINT 1 CG »NFI L2 S ,T0PS1 



3RD 1 

1 52 

CALL ERROR! 10 ,NI NES) 



ORB 1 

1 53 

RE T UL N 



3RD I 

1 54 

ICO FORMAT! 1H2 .20*. *FCF THE ARC JUST COMPLETED 

AN 

0RB1 TAPE HAS BEEN * 

/OP 3 1 

15 5 

• 23X* •Steer SSFULLY WRITTEN ON FlLc*«14«* 

OF 

UNIT* , 13, IH./ ) 

3RD 1 

1 56 

END 


• • 

3RD 1 

2 57 
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